Example 13-1. Pathway/Its Configuration Program - HP NonStop Pathway/iTS Programming Manual

Management Programming Examples
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.
OBJECT-COMPUTER.
SPECIAL-NAMES.
FILE "$SYSTEM.SYSTEM.COBOLLIB" IS COBOL-LIB
FILE "PWYUTIL"
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
88 OK-TO-CONTINUE
88 EOF-HIT
88 NOT-OK-TO-CONTINUE
05 WS-VOLUME-PORTION
05 WS-STARTUP-VOLUME
05 WS-STARTUP-VOLUME-LEN
05 WS-FIRST-OCCURRENCE
* 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
05 WS-COBOL-VAL-TRUE
05 WS-COBOL-VAL-ON
05 WS-COBOL-VAL-YES
05 WS-COBOL-VAL-FALSE-X
05 WS-COBOL-VAL-FALSE
05 WS-COBOL-VAL-OFF
05 WS-COBOL-VAL-NO
NonStop Pathway/iTS Management Programming Manual—426749-002
TXP.
TXP.
IS PATHWAY-UTILITIES.
NATIVE-2
PIC X(30)
PIC X(28).
PIC 9(4) COMP
PIC S9(4) COMP VALUE 1.
NATIVE-2
REDEFINES WS-COBOL-VAL-TRUE-X
PIC X(2).
REDEFINES WS-COBOL-VAL-TRUE-X
PIC X(2).
REDEFINES WS-COBOL-VAL-TRUE-X
PIC X(2).
NATIVE-2
REDEFINES WS-COBOL-VAL-FALSE-X
PIC X(2).
REDEFINES WS-COBOL-VAL-FALSE-X
PIC X(2).
REDEFINES WS-COBOL-VAL-FALSE-X
PIC X(2).
13- 2
Configuring Pathway/iTS
VALUE 0.
VALUE 0.
VALUE 1.
VALUE 9999.
VALUE "VOLUME ".
VALUE 0.
VALUE -1.
VALUE 0.