Pathway/iTS Management Programming Manual

Error Handling Example Program
NonStop Pathway/iTS Management Programming Manual—426749-002
14-25
MOVE SPACES TO IMAGE OF WS-PRINT
STRING " " DELIMITED BY SIZE
"(%" DELIMITED BY SIZE
NAME OF WS-NUMOUT DELIMITED BY SIZE
")" DELIMITED BY SIZE
INTO IMAGE OF WS-PRINT
END-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: "
WS-SS-RESULT
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 TO OBJECT-TYPE-NAME OF WS-DECODE
MOVE PARAMETER OF WS-DECODE TO OBJECT-NUMBER OF WS-DECODE
MOVE 0 TO REQ-NAME-TKN OF WS-DECODE
MOVE 0 TO NAME-TKN OF WS-DECODE
SET OBJECT-HAS-NO-NAME OF WS-DECODE TO TRUE
ELSE
MOVE OBJECT-TYPE-NAME OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
OBJECT-TYPE-NAME OF WS-DECODE
MOVE OBJECT-FLAG OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
OBJECT-FLAG OF WS-DECODE
MOVE REQ-NAME-TKN OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
REQ-NAME-TKN OF WS-DECODE
MOVE NAME-TKN OF
WS-OBJECT-TYPE-NAMES ( PARAMETER OF WS-DECODE ) TO
NAME-TKN OF WS-DECODE
END-IF
.
/
1500-DECODE-OBJECT-NAME.
EVALUATE PARAMETER OF WS-DECODE
WHEN ZPWY-OBJ-LM
MOVE ZLINKMON OF ZPWY-DDL-LMNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-PMREQUESTER
MOVE Z-I OF ZPWY-DDL-PMREQUESTERNAME TO OBJECT-NUMBER OF
WS-DECODE
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-PROG
MOVE ZPROGRAM OF ZPWY-DDL-PROGNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE 1 TO OBJECT-NAME-COUNT OF WS-DECODE
WHEN ZPWY-OBJ-PROGTERM
MOVE ZTERMTYPE OF ZPWY-DDL-PROGTERMNAME TO OBJECT-NAME-1 OF
WS-DECODE
MOVE ZPROGRAM OF ZPWY-DDL-PROGTERMNAME TO OBJECT-NAME-2 OF
WS-DECODE
MOVE 2 TO OBJECT-NAME-COUNT OF WS-DECODE
Example 14-1. Handling Errors (page 24 of 26)