HP NonStop Pathway/iTS Programming Manual page 630

Management Programming Examples
Example 13-1. Pathway/iTS Configuration Program (page 3 of 13)
01 DEF-AREA
COPY ZPWY-DDL-DEF-PATHWAY
REPLACING ZPWY-DDL-DEF-PATHWAY
COPY ZPWY-DDL-DEF-TCP
REPLACING ZPWY-DDL-DEF-TCP
COPY ZPWY-DDL-DEF-TERM
REPLACING ZPWY-DDL-DEF-TERM
COPY ZPWY-DDL-DEF-PROG
REPLACING ZPWY-DDL-DEF-PROG
COPY ZPWY-DDL-DEF-PROGTERM IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-DEF-PROGTERM BY
/
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,
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
.
NonStop Pathway/iTS Management Programming Manual—426749-002
PIC X(02).
IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
==ZPWY-DDL-DEF-PATHWAY
IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
==ZPWY-DDL-DEF-TCP
IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
==ZPWY-DDL-DEF-TERM
IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
==ZPWY-DDL-DEF-PROG
==ZPWY-DDL-DEF-PROGTERM REDEFINES DEF-AREA==.
WS-STARTUP-VOLUME
13- 4
Configuring Pathway/iTS
BY
REDEFINES DEF-AREA==.
BY
REDEFINES DEF-AREA==.
BY
REDEFINES DEF-AREA==.
BY
REDEFINES DEF-AREA==.