HP NonStop Pathway/iTS Programming Manual page 670

Error Handling Example Program
Example 14-1. Handling Errors (page 25 of 26)
WHEN ZPWY-OBJ-SC
WHEN ZPWY-OBJ-SCASSIGN
WHEN ZPWY-OBJ-SCLM
WHEN ZPWY-OBJ-SCPARAM
WHEN ZPWY-OBJ-SCPROCESS
WHEN ZPWY-OBJ-SCSTARTUP
WHEN ZPWY-OBJ-SCTCP
WHEN ZPWY-OBJ-SCTERM
WHEN ZPWY-OBJ-TCP
NonStop Pathway/iTS Management Programming Manual—426749-002
MOVE ZSERVERCLASS OF ZPWY-DDL-SCNAME TO OBJECT-NAME-1 OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
IF ZPROGRAMUNIT OF ZPWY-DDL-SCASSIGNNAME > SPACES THEN
MOVE ZLOGICALFILE OF ZPWY-DDL-SCASSIGNNAME TO OBJECT-NAME-1 O
MOVE ZPROGRAMUNIT OF ZPWY-DDL-SCASSIGNNAME TO OBJECT-NAME-2 OF
MOVE ZSERVERCLASS OF ZPWY-DDL-SCASSIGNNAME TO OBJECT-NAME-3 OF
MOVE 3 TO OBJECT-NAME-COUNT OF WS-DECODE
ELSE
MOVE ZLOGICALFILE OF ZPWY-DDL-SCASSIGNNAME TO OBJECT-NAME-1 OF
MOVE ZSERVERCLASS OF ZPWY-DDL-SCASSIGNNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
END-IF
MOVE ZLINKMON
MOVE ZSERVERCLASS OF ZPWY-DDL-SCLMNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZPARAM
MOVE ZSERVERCLASS OF ZPWY-DDL-SCPARAMNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZPROCESS
MOVE ZSERVERCLASS OF ZPWY-DDL-SCPROCESSNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE "STARTUP"
MOVE ZSERVERCLASS OF ZPWY-DDL-SCSTARTUPNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZTCP
MOVE ZSERVERCLASS OF ZPWY-DDL-SCTCPNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZTERM
MOVE ZSERVERCLASS OF ZPWY-DDL-SCTERMNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZTCP OF ZPWY-DDL-TCPNAME TO OBJECT-NAME-1 OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
OF ZPWY-DDL-SCLMNAME TO OBJECT-NAME-1 OF
OF ZPWY-DDL-SCPARAMNAME TO OBJECT-NAME-1 OF
OF ZPWY-DDL-SCPROCESSNAME TO OBJECT-NAME-1 OF
OF ZPWY-DDL-SCTCPNAME TO OBJECT-NAME-1 OF
OF ZPWY-DDL-SCTERMNAME TO OBJECT-NAME-1 OF
WS-DECODE
14 -26
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
TO OBJECT-NAME-1 OF
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE