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

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