
Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual— 426749-002
14 -26
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 14-1. Handling Errors
(page 25 of 26)
Summary of Contents for NonStop Pathway/iTS
Page 28: ...Introduction NonStop Pathway iTS Management Programming Manual 426749 002 1 8 SPI Interface ...
Page 270: ...PROG Commands NonStop Pathway iTS Management Programming Manual 426749 002 9 20 START PROG ...
Page 480: ...TCP Event Messages NonStop Pathway iTS Management Programming Manual 426749 002 11 202 ...