HP NonStop Pathway/iTS

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-2
Configuring Pathway/iTS
Example 13-1. Pathway/iTS Configuration Program (page 1 of 13)
IDENTIFICATION DIVISION.
PROGRAM-ID. PATHWAY-SPI-EXAMPLE.
?SAVE STARTUP
?CONSULT COBOLEX0
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TXP.
OBJECT-COMPUTER. TXP.
SPECIAL-NAMES.
FILE "$SYSTEM.SYSTEM.COBOLLIB" IS COBOL-LIB
FILE "PWYUTIL" IS PATHWAY-UTILITIES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PATHMON-FILE ASSIGN TO #DYNAMIC.
DATA DIVISION.
FILE SECTION.
FD PATHMON-FILE.
COPY ZPWY-DDL-MSG-BUFFER IN "$SYSTEM.ZSPIDEF.ZPWYCOB".
WORKING-STORAGE SECTION.
01 MISCELLANEOUS.
05 WS-RETURN-CODE NATIVE-2 VALUE 0.
88 OK-TO-CONTINUE VALUE 0.
88 EOF-HIT VALUE 1.
88 NOT-OK-TO-CONTINUE VALUE 9999.
05 WS-VOLUME-PORTION PIC X(30) VALUE "VOLUME ".
05 WS-STARTUP-VOLUME PIC X(28).
05 WS-STARTUP-VOLUME-LEN PIC 9(4) COMP VALUE 0.
05 WS-FIRST-OCCURRENCE PIC S9(4) COMP VALUE 1.
* The following declarations facilitate handling boolean values in COBOL.
* When a boolean value is required, the program references the
* alphanumeric fields.
* For more information, see the Distributed Systems Management (DSM)
* Programming Manual.
05 WS-COBOL-VAL-TRUE-X NATIVE-2 VALUE -1.
05 WS-COBOL-VAL-TRUE REDEFINES WS-COBOL-VAL-TRUE-X
PIC X(2).
05 WS-COBOL-VAL-ON REDEFINES WS-COBOL-VAL-TRUE-X
PIC X(2).
05 WS-COBOL-VAL-YES REDEFINES WS-COBOL-VAL-TRUE-X
PIC X(2).
05 WS-COBOL-VAL-FALSE-X NATIVE-2 VALUE 0.
05 WS-COBOL-VAL-FALSE REDEFINES WS-COBOL-VAL-FALSE-X
PIC X(2).
05 WS-COBOL-VAL-OFF REDEFINES WS-COBOL-VAL-FALSE-X
PIC X(2).
05 WS-COBOL-VAL-NO REDEFINES WS-COBOL-VAL-FALSE-X
PIC X(2).