TS/MP 2.5 Management Programming Manual

05 WS-BACKUP-CPU PIC S9(4) COMP VALUE 1.
05 WS-SS-RESULT NATIVE-2 VALUE -1.
05 WS-SPI-RESULT NATIVE-2 VALUE -1.
05 WS-COBOL-RESULT PIC S9(4) COMP VALUE 0.
05 WS-ERROR-DETAIL NATIVE-2 VALUE 0.
05 WS-PHANDLE.
10 filler occurs 10 times.
15 filler native-2.
05 WS-TEMPORARY-RESULT PIC S9(4) COMP VALUE 0.
05 WS-TEMPORARY-AREA PIC X(80).
05 WS-PARA-NAME PIC X(80).
05 WS-ERROR-TEXT PIC X(80).
01 PRINT-LINES.
05 WS-BLANK-LINE PIC X(2) VALUE SPACES.
05 WS-STATUS-SC-HEADER PIC X(39) VALUE "SERVER #RUNNING ERROR INFO".
05 WS-STATUS-SCPROCESS-HEADER PIC X(60) VALUE " PROCESS STATE ERROR INFO
#LINKS WEIGHT".
05 WS-DETAIL-LINE PIC X(80).
05 WS-STATUS-SC-DETAIL REDEFINES WS-DETAIL-LINE.
10 SC-NAME PIC X(15).
10 FILLER PIC X(02).
10 RUNNING PIC ZZZZ9.
10 FILLER PIC X(06).
10 LAST-ERROR PIC 9999.
10 FILLER PIC X(03).
10 LAST-INFO PIC 9999.
10 FILLER PIC X(05).
10 FREEZE-STATE PIC X(14).
05 WS-STATUS-SCPROCESS-DETAIL REDEFINES WS-DETAIL-LINE.
10 FILLER PIC X(02).
10 SP-NAME PIC X(06).
10 FILLER PIC X(11).
10 SP-STATE PIC X(09).
10 FILLER PIC X(02).
10 LAST-ERROR PIC 9999.
10 FILLER PIC X(03).
10 LAST-INFO PIC 9999.
10 FILLER PIC X(06).
10 LINKS PIC ZZZ9.
10 FILLER PIC X(04).
10 WEIGHT PIC ZZZ9.
COPY ZPWY-DDL-MSG-BUFFER IN "ZPWYCOB"
REPLACING ZPWY-DDL-MSG-BUFFER BY REQUEST-SAVE-BUFFER.
COPY CONSTANTS IN "ZSPICOB".
COPY CONSTANTS IN "ZPWYCOB".
01 PAR-AREA PIC X(02).
COPY ZPWY-DDL-PAR-START-PATHWAY IN "ZPWYCOB"
REPLACING ZPWY-DDL-PAR-START-PATHWAY BY
==ZPWY-DDL-PAR-START-PATHWAY REDEFINES PAR-AREA==.
01 SEL-AREA PIC X(02).
COPY ZPWY-DDL-SEL-SC IN "ZPWYCOB"
REPLACING ZPWY-DDL-SEL-SC BY
==ZPWY-DDL-SEL-SC REDEFINES SEL-AREA==.
COPY ZPWY-DDL-SEL-SCASSIGN IN "ZPWYCOB"
REPLACING ZPWY-DDL-SEL-SCASSIGN BY
==ZPWY-DDL-SEL-SCASSIGN REDEFINES SEL-AREA==.
COPY ZPWY-DDL-SEL-SCPROCESS IN "ZPWYCOB"
REPLACING ZPWY-DDL-SEL-SCPROCESS BY
==ZPWY-DDL-SEL-SCPROCESS REDEFINES SEL-AREA==.
01 DEF-AREA PIC X(02).
COPY ZPWY-DDL-DEF-PATHWAY IN "ZPWYCOB"
REPLACING ZPWY-DDL-DEF-PATHWAY BY
==ZPWY-DDL-DEF-PATHWAY REDEFINES DEF-AREA==.
COPY ZPWY-DDL-DEF-SC IN "ZPWYCOB"
REPLACING ZPWY-DDL-DEF-SC BY
==ZPWY-DDL-DEF-SC REDEFINES DEF-AREA==.
COPY ZPWY-DDL-DEF-SCASSIGN IN "ZPWYCOB"
REPLACING ZPWY-DDL-DEF-SCASSIGN BY
==ZPWY-DDL-DEF-SCASSIGN REDEFINES DEF-AREA==.
01 STATUS-AREA PIC X(02).
COPY ZPWY-DDL-STATUS-SC IN "ZPWYCOB"
REPLACING ZPWY-DDL-STATUS-SC BY
==ZPWY-DDL-STATUS-SC REDEFINES STATUS-AREA==.
COPY ZPWY-DDL-STATUS-SCPROCESS IN "ZPWYCOB"
REPLACING ZPWY-DDL-STATUS-SCPROCESS BY
==ZPWY-DDL-STATUS-SCPROCESS REDEFINES STATUS-AREA==.
COPY ZPWY-DDL-STATUS-SC IN "ZPWYCOB"
REPLACING ZPWY-DDL-STATUS-SC BY NULL-STATUS-SC.
COPY ZPWY-DDL-STATUS-SCPROCESS IN "ZPWYCOB"
REPLACING ZPWY-DDL-STATUS-SCPROCESS BY NULL-STATUS-SCPROCESS.
/
320 Management Programming Examples