![HP NonStop Pathway/iTS Programming Manual Download Page 663](http://html.mh-extra.com/html/hp/nonstop-pathway-its/nonstop-pathway-its_programming-manual_165147663.webp)
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)
Summary of Contents for NonStop Pathway/iTS
Page 28: ...Introduction NonStop Pathway iTS Management Programming Manual 426749 002 1 8 SPI Interface ...
Page 270: ...PROG Commands NonStop Pathway iTS Management Programming Manual 426749 002 9 20 START PROG ...
Page 480: ...TCP Event Messages NonStop Pathway iTS Management Programming Manual 426749 002 11 202 ...