HP NonStop Pathway/iTS Programming Manual page 664

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