Pathway/iTS Management Programming Manual

Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-21
MOVE ZPWY-TKN-REQPMREQUESTERNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-LM )
MOVE ZPWY-TKN-REQPROGNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PROG )
MOVE ZPWY-TKN-REQPROGTERMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PROGTERM )
MOVE ZPWY-TKN-REQSCNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SC )
MOVE ZPWY-TKN-REQSCASSIGNNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCASSIGN )
MOVE ZPWY-TKN-REQSCLMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCLM )
MOVE ZPWY-TKN-REQSCPARAMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCPARAM )
MOVE ZPWY-TKN-REQSCPROCESSNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCPROCESS )
MOVE ZPWY-TKN-REQSCSTARTUPNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCSTARTUP )
MOVE ZPWY-TKN-REQSCTCPNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCTCP )
MOVE ZPWY-TKN-REQSCTERMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCTERM )
MOVE ZPWY-TKN-REQTCPNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCP )
MOVE ZPWY-TKN-REQTCPLINKNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCPLINK )
MOVE ZPWY-TKN-REQTCPSCNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCPSC )
MOVE ZPWY-TKN-REQTCPTERMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCPTERM )
MOVE ZPWY-TKN-REQTELLNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TELL )
MOVE ZPWY-TKN-REQTERMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TERM )
.
/
200-DISPLAY-PM-ERROR.
SEARCH ALL ERROR-ENTRY OF WS-PM-ERROR-NAMES
AT END DISPLAY "PATHMON ERROR: "
WS-SPI-RESULT
WHEN ERROR-NUMBER OF
WS-PM-ERROR-NAMES ( PM-ERROR-INDEX ) = WS-SPI-RESULT
DISPLAY "PATHMON ERROR: "
ERROR-NAME OF WS-PM-ERROR-NAMES ( PM-ERROR-INDEX )
.
300-DISPLAY-TCP-ERROR.
SEARCH ALL ERROR-ENTRY OF WS-TCP-ERROR-NAMES
AT END DISPLAY "TCP ERROR: "
WS-SPI-RESULT
WHEN ERROR-NUMBER OF
WS-TCP-ERROR-NAMES ( TCP-ERROR-INDEX ) = WS-SPI-RESULT
DISPLAY "TCP ERROR: "
ERROR-NAME OF WS-TCP-ERROR-NAMES ( TCP-ERROR-INDEX )
.
Example 14-1. Handling Errors (page 20 of 26)