TS/MP Management Programming Manual (G06.24+, H06.03+)

Error Handling Example Program
NonStop TS/MP Management Programming Manual—540082-001
17-19
PERFORM 500-DISPLAY-REQUEST-CMD
PERFORM 600-DISPLAY-REQUEST-OBJTYPE
PERFORM 700-DISPLAY-REQUEST-OBJNAME
PERFORM 800-DISPLAY-PARM-ERROR
PERFORM 900-DISPLAY-ERROR-CMD
PERFORM 1000-DISPLAY-ERROR-OBJTYPE
PERFORM 1100-DISPLAY-ERROR-OBJNAME
PERFORM 1200-DISPLAY-ERROR-INFO
EXIT PROGRAM
.
/
100-INITIALIZATION.
MOVE ZPWY-TKN-LMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-LM )
MOVE 0 TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PATHCTL )
MOVE 0 TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PATHWAY )
MOVE 0 TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PM )
MOVE ZPWY-TKN-PMREQUESTERNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-LM )
MOVE ZPWY-TKN-PROGNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PROG )
MOVE ZPWY-TKN-PROGTERMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PROGTERM )
MOVE ZPWY-TKN-SCNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SC )
MOVE ZPWY-TKN-SCASSIGNNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCASSIGN )
MOVE ZPWY-TKN-SCLMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCLM )
MOVE ZPWY-TKN-SCPARAMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCPARAM )
MOVE ZPWY-TKN-SCPROCESSNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCPROCESS )
MOVE ZPWY-TKN-SCSTARTUPNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCSTARTUP )
MOVE ZPWY-TKN-SCTCPNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCTCP )
MOVE ZPWY-TKN-SCTERMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-SCTERM )
MOVE ZPWY-TKN-TCPNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCP )
MOVE ZPWY-TKN-TCPLINKNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCPLINK )
MOVE ZPWY-TKN-TCPSCNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCPSC )
MOVE ZPWY-TKN-TCPTERMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TCPTERM )
MOVE ZPWY-TKN-TELLNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TELL )
MOVE ZPWY-TKN-TERMNAME TO
NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-TERM )
MOVE ZPWY-TKN-REQLMNAME TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-LM )
MOVE 0 TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PATHCTL )
MOVE 0 TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PATHWAY )
MOVE 0 TO
REQ-NAME-TKN OF WS-OBJECT-TYPE-NAMES ( ZPWY-OBJ-PM )
Example 17-1. Handling Errors (page 19 of 26)