2021-04-28 16:49:39 +02:00
|
|
|
After calling CICS commands with the ``++RESP++`` or ``++NOHANDLE++`` options, the return code should be tested.
|
|
|
|
|
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
== Noncompliant Code Example
|
|
|
|
|
|
|
|
|
|
----
|
|
|
|
|
EXEC CICS DELETEQ TS *> Noncompliant; WS-STATUS should have been tested before the MOVE
|
|
|
|
|
QNAME(WS-TS5FTARF-NAME)
|
|
|
|
|
RESP(WS-STATUS)
|
|
|
|
|
END-EXEC.
|
|
|
|
|
MOVE WS-EIBTASKN (4:4) TO WS-TS5FTAR1-NAME-TSKID.
|
|
|
|
|
----
|
|
|
|
|
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2021-04-28 16:49:39 +02:00
|
|
|
== Compliant Solution
|
|
|
|
|
|
|
|
|
|
----
|
|
|
|
|
EXEC CICS DELETEQ TS
|
|
|
|
|
QNAME(WS-TS5FTARF-NAME)
|
|
|
|
|
RESP(WS-STATUS)
|
|
|
|
|
END-EXEC.
|
|
|
|
|
IF WS-STATUS ...
|
|
|
|
|
|
|
|
|
|
MOVE WS-EIBTASKN (4:4) TO WS-TS5FTAR1-NAME-TSKID.
|
|
|
|
|
----
|
2021-04-28 18:08:03 +02:00
|
|
|
|
2021-06-02 20:44:38 +02:00
|
|
|
|
|
|
|
|
ifdef::rspecator-view[]
|
|
|
|
|
== Comments And Links
|
|
|
|
|
(visible only on this page)
|
|
|
|
|
|
|
|
|
|
include::comments-and-links.adoc[]
|
|
|
|
|
endif::rspecator-view[]
|
