HP NonStop Pathway/iTS Programming Manual page 669

Error Handling Example Program
Example 14-1. Handling Errors (page 24 of 26)
MOVE SPACES TO IMAGE OF WS-PRINT
STRING
DISPLAY IMAGE OF WS-PRINT
END-IF
END-IF
.
/
1300-CHECK-SUBSYSTEM-ERROR.
IF WS-SS-RESULT IS NOT ZERO THEN
DISPLAY "SS ERROR: "
END-IF
.
1400-DECODE-OBJECT-TYPE.
IF PARAMETER OF WS-DECODE IS LESS THAN 1 OR
PARAMETER OF WS-DECODE IS GREATER THAN MAX-OBJECTS THEN
MOVE SPACES
MOVE PARAMETER OF WS-DECODE TO OBJECT-NUMBER
MOVE 0
MOVE 0
SET OBJECT-HAS-NO-NAME OF WS-DECODE TO TRUE
ELSE
MOVE OBJECT-TYPE-NAME OF
MOVE OBJECT-FLAG
MOVE REQ-NAME-TKN
MOVE NAME-TKN
END-IF
.
/
1500-DECODE-OBJECT-NAME.
EVALUATE PARAMETER OF WS-DECODE
WHEN ZPWY-OBJ-LM
WHEN ZPWY-OBJ-PMREQUESTER
WHEN ZPWY-OBJ-PROG
WHEN ZPWY-OBJ-PROGTERM
NonStop Pathway/iTS Management Programming Manual—426749-002
"
"(%"
NAME OF WS-NUMOUT DELIMITED BY SIZE
")"
INTO IMAGE OF WS-PRINT
END-STRING
WS-SS-RESULT
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
OBJECT-TYPE-NAME OF WS-DECODE
OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
OBJECT-FLAG OF WS-DECODE
OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
REQ-NAME-TKN OF WS-DECODE
OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
NAME-TKN OF WS-DECODE
MOVE ZLINKMON OF ZPWY-DDL-LMNAME TO OBJECT-NAME-1 OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE Z-I OF ZPWY-DDL-PMREQUESTERNAME TO OBJECT-NUMBER OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZPROGRAM OF ZPWY-DDL-PROGNAME TO OBJECT-NAME-1 OF
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
MOVE ZTERMTYPE OF ZPWY-DDL-PROGTERMNAME TO OBJECT-NAME-1 OF
MOVE ZPROGRAM OF ZPWY-DDL-PROGTERMNAME TO OBJECT-NAME-2 OF
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
" DELIMITED BY SIZE
DELIMITED BY SIZE
DELIMITED BY SIZE
TO OBJECT-TYPE-NAME
TO REQ-NAME-TKN
TO NAME-TKN
WS-DECODE
WS-DECODE
14 -25
OF WS-DECODE
OF WS-DECODE
OF WS-DECODE
OF WS-DECODE
WS-DECODE
WS-DECODE
WS-DECODE