HP NonStop Pathway/iTS Programming Manual page 666

Error Handling Example Program
Example 14-1. Handling Errors (page 21 of 26)
400-DISPLAY-SPI-ERROR.
SEARCH ALL ERROR-ENTRY OF WS-SPI-ERROR-NAMES
AT END DISPLAY "PATHMON SPI ERROR: "
WHEN ERROR-NUMBER OF
WS-SPI-ERROR-NAMES ( SPI-ERROR-INDEX ) = WS-SPI-RESULT
DISPLAY "PATHMON SPI ERROR: "
.
500-DISPLAY-REQUEST-CMD.
* Get the REQCOMMAND token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
IF WS-SS-RESULT IS ZERO THEN
ADD 1 TO COMMAND OF WS-REQUEST
GIVING PARAMETER OF WS-DECODE
IF PARAMETER OF WS-DECODE IS LESS THAN 1 OR
PARAMETER OF WS-DECODE IS GREATER THAN MAX-COMMANDS THEN
DISPLAY "
ELSE
DISPLAY "
)
END-IF
END-IF
.
/
600-DISPLAY-REQUEST-OBJTYPE.
* Get the REQOBJECTTYPE token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
GIVING WS-SS-RESULT
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
MOVE OBJECT-TYPE OF WS-REQUEST TO PARAMETER OF WS-DECODE
PERFORM 1400-DECODE-OBJECT-TYPE
DISPLAY "
MOVE OBJECT-FLAG
MOVE REQ-NAME-TKN OF WS-DECODE TO REQ-NAME-TKN OF WS-REQUEST
.
700-DISPLAY-REQUEST-OBJNAME.
IF OBJECT-HAS-NAME OF WS-REQUEST
* Get the REQ<object>NAME token:
ENTER TAL "SSGET"
IF WS-SS-RESULT NOT = ZSPI-ERR-MISTKN
PERFORM 1300-CHECK-SUBSYSTEM-ERROR
NonStop Pathway/iTS Management Programming Manual—426749-002
WS-SPI-RESULT
ERROR-NAME OF WS-SPI-ERROR-NAMES ( SPI-ERROR-INDEX )
ZPWY-TKN-REQCOMMAND,
COMMAND OF WS-REQUEST,
WS-FIRST-OCCURRENCE
REQUEST COMMAND: "
COMMAND OF WS-REQUEST
REQUEST COMMAND: "
COMMAND-ENTRY OF WS-COMMAND-NAMES ( PARAMETER OF WS-DECODE
ZPWY-TKN-REQOBJECTTYPE,
OBJECT-TYPE OF WS-REQUEST,
WS-FIRST-OCCURRENCE
REQUEST OBJECT: "
OBJECT-TYPE-NAME OF WS-DECODE
OF WS-DECODE TO OBJECT-FLAG
USING ZPWY-DDL-MSG-BUFFER,
REQ-NAME-TKN OF WS-REQUEST,
OBJECT-NAME-AREA,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
14 -22
OF WS-REQUEST