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)
Содержание NonStop Pathway/iTS
Страница 20: ...About This Manual NonStop Pathway iTS Management Programming Manual 426749 002 xviii Change Bar Notation ...
Страница 28: ...Introduction NonStop Pathway iTS Management Programming Manual 426749 002 1 8 SPI Interface ...
Страница 100: ...ZPWY DDL Definitions NonStop Pathway iTS Management Programming Manual 426749 002 5 26 Simple Tokens ...
Страница 180: ...ZPWY MAP Definitions NonStop Pathway iTS Management Programming Manual 426749 002 6 80 ZPWY MAP TELLNUM ...
Страница 270: ...PROG Commands NonStop Pathway iTS Management Programming Manual 426749 002 9 20 START PROG ...
Страница 480: ...TCP Event Messages NonStop Pathway iTS Management Programming Manual 426749 002 11 202 ...
Страница 672: ...Error Handling Example Program NonStop Pathway iTS Management Programming Manual 426749 002 14 28 ...
Страница 694: ...Index NonStop Pathway iTS Management Programming Manual 426749 002 Index 22 Special Characters ...