TS/MP 2.5 Management Programming Manual

STRING " ERROR 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
.
1200-DISPLAY-ERROR-INFO.
* Get the (optional) ERRINFO token:
ENTER TAL "SSGET"
USING ZPWY-DDL-MSG-BUFFER,
ZPWY-TKN-ERRINFO,
INFO OF WS-ERROR,
WS-FIRST-OCCURRENCE
GIVING WS-SS-RESULT
IF WS-SS-RESULT IS ZERO THEN
IF INFO OF WS-ERROR IS NOT ZERO THEN
DISPLAY " ERROR INFO: " INFO OF WS-ERROR
ENTER TAL "NUMOUT"
USING NAME OF WS-NUMOUT
INFO OF WS-ERROR
BASE OF WS-NUMOUT
WIDTH OF WS-NUMOUT
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
369