TS/MP 2.5 Management Programming Manual

GIVING WS-SS-RESULT
IF WS-SS-RESULT IS ZERO THEN
DISPLAY " PARAMETER ERROR"
PERFORM 1700-DISPLAY-TOKEN-NUMBER
DISPLAY " ERROR INDEX: "
Z-INDEX OF ZSPI-DDL-PARM-ERR
DISPLAY " ERROR OFFSET: "
Z-OFFSET OF ZSPI-DDL-PARM-ERR
END-IF
.
900-DISPLAY-ERROR-CMD.
* Get the ERRCOMMAND token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-TKN-ERRCOMMAND,
COMMAND OF WS-REQUEST,
WS-FIRST-OCCURRENCE
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 " ERROR COMMAND: "
COMMAND OF WS-REQUEST
ELSE
DISPLAY " ERROR COMMAND: "
COMMAND-ENTRY OF WS-COMMAND-NAMES ( PARAMETER OF WS-DECODE
)
END-IF
END-IF
.
/
1000-DISPLAY-ERROR-OBJTYPE.
* Get the ERROBJECTTYPE token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-TKN-ERROBJECTTYPE,
OBJECT-TYPE OF WS-ERROR,
WS-FIRST-OCCURRENCE
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 " ERROR OBJECT: "
OBJECT-TYPE-NAME OF WS-DECODE
MOVE OBJECT-FLAG OF WS-DECODE TO OBJECT-FLAG OF WS-ERROR
MOVE NAME-TKN OF WS-DECODE TO NAME-TKN OF WS-ERROR
.
/
1100-DISPLAY-ERROR-OBJNAME.
IF OBJECT-HAS-NAME OF WS-ERROR
* Get the ERR<object>NAME token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
NAME-TKN OF WS-ERROR,
OBJECT-NAME-AREA,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
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
OBJECT-NAME-2 OF WS-DECODE
OBJECT-NAME-3 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
368 Error Handling Example Program