HP NonStop Pathway/iTS Programming Manual page 671

Error Handling Example Program
Example 14-1. Handling Errors (page 26 of 26)
WHEN ZPWY-OBJ-TCPLINK
WHEN ZPWY-OBJ-TCPSC
WHEN ZPWY-OBJ-TCPTERM
WHEN ZPWY-OBJ-TELL
WHEN ZPWY-OBJ-TERM
END-EVALUATE
.
/
1600-DISPLAY-OBJECT-NAME.
PERFORM VARYING COUNTER OF WS-PRINT FROM 1 BY 1
IF COUNTER OF WS-PRINT IS NOT EQUAL TO OBJECT-NAME-COUNT OF
.
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 "
ELSE
DISPLAY "
END-IF
.
NonStop Pathway/iTS Management Programming Manual—426749-002
MOVE ZTCP
MOVE ZPROCESS
MOVE ZSERVERCLASS OF ZPWY-DDL-TCPLINKNAME TO OBJECT-NAME-3 OF
MOVE 3 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZSERVERCLASS OF ZPWY-DDL-TCPSCNAME TO OBJECT-NAME-1 OF
MOVE ZTCP
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZTERM OF ZPWY-DDL-TCPTERMNAME TO OBJECT-NAME-1 OF
MOVE ZTCP OF ZPWY-DDL-TCPTERMNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE Z-I OF ZPWY-DDL-TELLNAME TO OBJECT-NUMBER OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZTERM OF ZPWY-DDL-TERMNAME TO OBJECT-NAME-1 OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
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
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
TOKEN NUMBER: "
Z-NUMBER OF ZSPI-DDL-PARM-ERR
TOKEN: "
TNM-ENTRY OF WS-TNM-NAMES ( Z-NUMBER OF
OF ZPWY-DDL-TCPLINKNAME TO OBJECT-NAME-1 OF
OF ZPWY-DDL-TCPLINKNAME TO OBJECT-NAME-2 OF
OF ZPWY-DDL-TCPSCNAME TO OBJECT-NAME-2 OF
WS-DECODE
WS-DECODE
ZSPI-DDL-PARM-ERR )
14 -27
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE THEN