TS/MP 2.5 Management Programming Manual

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 " REQUEST COMMAND: "
COMMAND OF WS-REQUEST
ELSE
DISPLAY " REQUEST COMMAND: "
COMMAND-ENTRY OF WS-COMMAND-NAMES ( PARAMETER OF WS-DECODE
)
END-IF
END-IF
.
/
600-DISPLAY-REQUEST-OBJTYPE.
* Get the REQOBJECTTYPE token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-TKN-REQOBJECTTYPE,
OBJECT-TYPE OF WS-REQUEST,
WS-FIRST-OCCURRENCE
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 " REQUEST OBJECT: "
OBJECT-TYPE-NAME OF WS-DECODE
MOVE OBJECT-FLAG OF WS-DECODE TO OBJECT-FLAG OF WS-REQUEST
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"
USING ZPWY-DDL-MSG-BUFFER,
REQ-NAME-TKN OF WS-REQUEST,
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 object name:
MOVE OBJECT-TYPE OF WS-REQUEST 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 object name:
MOVE 1 TO INDENT OF WS-PRINT
MOVE SPACES TO IMAGE OF WS-PRINT
STRING " REQUEST OBJECT NAME: " DELIMITED BY SIZE
INTO IMAGE OF WS-PRINT
WITH POINTER INDENT OF WS-PRINT
END-STRING
PERFORM 1600-DISPLAY-OBJECT-NAME
END-IF
END-IF
.
/
800-DISPLAY-PARM-ERROR.
* Get the (optional) PARM-ERR token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZSPI-TKN-PARM-ERR,
ZSPI-DDL-PARM-ERR,
WS-FIRST-OCCURRENCE
367