Pathway/iTS Management Programming Manual

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-4
Configuring Pathway/iTS
01 DEF-AREA PIC X(02).
COPY ZPWY-DDL-DEF-PATHWAY IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-DEF-PATHWAY BY
==ZPWY-DDL-DEF-PATHWAY REDEFINES DEF-AREA==.
COPY ZPWY-DDL-DEF-TCP IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-DEF-TCP BY
==ZPWY-DDL-DEF-TCP REDEFINES DEF-AREA==.
COPY ZPWY-DDL-DEF-TERM IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-DEF-TERM BY
==ZPWY-DDL-DEF-TERM REDEFINES DEF-AREA==.
COPY ZPWY-DDL-DEF-PROG IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-DEF-PROG BY
==ZPWY-DDL-DEF-PROG REDEFINES DEF-AREA==.
COPY ZPWY-DDL-DEF-PROGTERM IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-DEF-PROGTERM BY
==ZPWY-DDL-DEF-PROGTERM REDEFINES DEF-AREA==.
/
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.
* Get the default volume.
MOVE SPACES TO WS-STARTUP-VOLUME
ENTER "GETSTARTUPTEXT" IN COBOL-LIB
USING WS-VOLUME-PORTION,
WS-STARTUP-VOLUME
GIVING WS-STARTUP-VOLUME-LEN
IF WS-STARTUP-VOLUME-LEN IS NOT NEGATIVE THEN
ADD 1 TO WS-STARTUP-VOLUME-LEN
ELSE
DISPLAY "GETSTARTUPTEXT ERROR"
SET NOT-OK-TO-CONTINUE TO TRUE
END-IF
.
Example 13-1. Pathway/iTS Configuration Program (page 3 of 13)