TS/MP Management Programming Manual (G06.24+, H06.03+)

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-4
Configuring Pathway
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==.
Example 15-1. TS/MP Configuration Program (page 3 of 28)