HP NonStop Pathway/iTS Programming Manual page 668

Error Handling Example Program
Example 14-1. Handling Errors (page 23 of 26)
/
1000-DISPLAY-ERROR-OBJTYPE.
* Get the ERROBJECTTYPE token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-TYPE OF WS-ERROR TO PARAMETER OF WS-DECODE
PERFORM 1400-DECODE-OBJECT-TYPE
DISPLAY "
MOVE OBJECT-FLAG OF WS-DECODE TO OBJECT-FLAG
MOVE NAME-TKN
.
/
1100-DISPLAY-ERROR-OBJNAME.
IF OBJECT-HAS-NAME OF WS-ERROR
* Get the ERR<object>NAME token:
ENTER TAL "SSGET"
IF WS-SS-RESULT NOT = ZSPI-ERR-MISTKN
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
* Decode the error object name:
MOVE OBJECT-TYPE OF WS-ERROR TO PARAMETER OF WS-DECODE
MOVE SPACES TO OBJECT-NAME-1 OF WS-DECODE
PERFORM 1500-DECODE-OBJECT-NAME
* Print the error object name:
MOVE 1 TO INDENT OF WS-PRINT
MOVE SPACES TO IMAGE OF WS-PRINT
STRING "
PERFORM 1600-DISPLAY-OBJECT-NAME
END-IF
END-IF
.
1200-DISPLAY-ERROR-INFO.
* Get the (optional) ERRINFO token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
IF WS-SS-RESULT IS ZERO THEN
IF INFO OF WS-ERROR IS NOT ZERO THEN
DISPLAY "
ENTER TAL "NUMOUT"
NonStop Pathway/iTS Management Programming Manual—426749-002
ZPWY-TKN-ERROBJECTTYPE,
OBJECT-TYPE OF WS-ERROR,
WS-FIRST-OCCURRENCE
ERROR OBJECT: "
OBJECT-TYPE-NAME OF WS-DECODE
OF WS-DECODE TO NAME-TKN
USING ZPWY-DDL-MSG-BUFFER,
NAME-TKN OF WS-ERROR,
OBJECT-NAME-AREA,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
OBJECT-NAME-2 OF WS-DECODE
OBJECT-NAME-3 OF WS-DECODE
ERROR OBJECT NAME: " DELIMITED BY SIZE
INTO IMAGE OF WS-PRINT
WITH POINTER INDENT OF WS-PRINT
END-STRING
ZPWY-TKN-ERRINFO,
INFO OF WS-ERROR,
WS-FIRST-OCCURRENCE
ERROR INFO: " INFO OF WS-ERROR
USING NAME OF WS-NUMOUT
INFO OF WS-ERROR
BASE OF WS-NUMOUT
WIDTH OF WS-NUMOUT
OF WS-ERROR
OF WS-ERROR
14 -24