HP NonStop Pathway/iTS Programming Manual page 665

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