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

Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-5
Configuring Pathway
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.
/
PROCEDURE DIVISION.
100-ENTRY.
PERFORM 200-INITIALIZE
PERFORM 300-START-PATHMON
PERFORM 400-OPEN-PATHMON
PERFORM 500-MAINLINE
PERFORM 1800-TERMINATE
STOP RUN
.
200-INITIALIZE.
MOVE "200-INITIALIZE" TO WS-PARA-NAME
* Null structures for later comparisons.
MOVE "SSNULL of ZPWY-MAP-STATUS-SC" TO WS-ERROR-TEXT
ENTER TAL "SSNULL"
USING ZPWY-MAP-STATUS-SC,
NULL-STATUS-SC
GIVING WS-SS-RESULT
MOVE "SSNULL of ZPWY-MAP-STATUS-SCPROCESS" TO WS-ERROR-TEXT
ENTER TAL "SSNULL"
USING ZPWY-MAP-STATUS-SCPROCESS,
NULL-STATUS-SCPROCESS
GIVING WS-SS-RESULT
Example 15-1. TS/MP Configuration Program (page 4 of 28)