Pathway/iTS Management Programming Manual

Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-19
COPY ZPWY-DDL-SCTERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SCTERMNAME BY
==ZPWY-DDL-SCTERMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPLINKNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPLINKNAME BY
==ZPWY-DDL-TCPLINKNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPNAME BY
==ZPWY-DDL-TCPNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPSCNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPSCNAME BY
==ZPWY-DDL-TCPSCNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TCPTERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TCPTERMNAME BY
==ZPWY-DDL-TCPTERMNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TELLNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TELLNAME BY
==ZPWY-DDL-TELLNAME REDEFINES OBJECT-NAME-AREA==.
COPY ZPWY-DDL-TERMNAME IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-TERMNAME BY
==ZPWY-DDL-TERMNAME REDEFINES OBJECT-NAME-AREA==.
/
LINKAGE SECTION.
COPY ZPWY-DDL-MSG-BUFFER IN "$SYSTEM.ZSPIDEF.ZPWYCOB".
/
PROCEDURE DIVISION USING ZPWY-DDL-MSG-BUFFER.
PATHWAY-ERROR.
PERFORM 100-INITIALIZATION
* Get the standard error (RETCODE) token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-RETCODE,
WS-SPI-RESULT,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
* Open the error list by requesting the ERRLIST token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-ERRLIST,
OMITTED,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
EVALUATE WS-SPI-RESULT
WHEN ZPWY-VAL-OK
DISPLAY "NO PATHMON ERROR: "
WS-SPI-RESULT
WHEN 1000 THRU 1999
PERFORM 200-DISPLAY-PM-ERROR
WHEN 3000 THRU 3999
PERFORM 300-DISPLAY-TCP-ERROR
WHEN 4000 THRU 5999
PERFORM 400-DISPLAY-SPI-ERROR
WHEN OTHER
DISPLAY "UNKNOWN ERROR: "
WS-SPI-RESULT
END-EVALUATE
Example 14-1. Handling Errors (page 18 of 26)