Pathway/iTS Management Programming Manual

Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-27
WHEN ZPWY-OBJ-TCPLINK
MOVE ZTCP OF ZPWY-DDL-TCPLINKNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE ZPROCESS OF ZPWY-DDL-TCPLINKNAME TO OBJECT-NAME-2 OF
WS-DECODE
MOVE ZSERVERCLASS OF ZPWY-DDL-TCPLINKNAME TO OBJECT-NAME-3 OF
WS-DECODE
MOVE 3 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-TCPSC
MOVE ZSERVERCLASS OF ZPWY-DDL-TCPSCNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE ZTCP OF ZPWY-DDL-TCPSCNAME TO OBJECT-NAME-2 OF
WS-DECODE
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-TCPTERM
MOVE ZTERM OF ZPWY-DDL-TCPTERMNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE ZTCP OF ZPWY-DDL-TCPTERMNAME TO OBJECT-NAME-2 OF
WS-DECODE
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-TELL
MOVE Z-I OF ZPWY-DDL-TELLNAME TO OBJECT-NUMBER OF
WS-DECODE
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-TERM
MOVE ZTERM OF ZPWY-DDL-TERMNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
END-EVALUATE
.
/
1600-DISPLAY-OBJECT-NAME.
PERFORM VARYING COUNTER OF WS-PRINT FROM 1 BY 1
UNTIL COUNTER IS GREATER THAN OBJECT-NAME-COUNT OF WS-DECODE
STRING OBJECT-NAME OF WS-DECODE ( COUNTER OF WS-PRINT )
DELIMITED BY " "
INTO IMAGE OF WS-PRINT
WITH POINTER INDENT OF WS-PRINT
END-STRING
IF COUNTER OF WS-PRINT IS NOT EQUAL TO OBJECT-NAME-COUNT OF
WS-DECODE THEN
STRING " OF" DELIMITED BY SIZE
INTO IMAGE OF WS-PRINT
WITH POINTER INDENT OF WS-PRINT
END-STRING
END-IF
DISPLAY IMAGE OF WS-PRINT
MOVE SPACES TO IMAGE OF WS-PRINT
END-PERFORM
.
1700-DISPLAY-TOKEN-NUMBER.
IF Z-NUMBER OF ZSPI-DDL-PARM-ERR IS LESS THAN 1 OR
Z-NUMBER OF ZSPI-DDL-PARM-ERR IS GREATER THAN MAX-TNMS THEN
DISPLAY " TOKEN NUMBER: "
Z-NUMBER OF ZSPI-DDL-PARM-ERR
ELSE
DISPLAY " TOKEN: "
TNM-ENTRY OF WS-TNM-NAMES ( Z-NUMBER OF
ZSPI-DDL-PARM-ERR )
END-IF
.
Example 14-1. Handling Errors (page 26 of 26)