HP NonStop Pathway/iTS

Management Programming Examples
NonStop Pathway/iTS Management Programming Manual—426749-002
13-3
Configuring Pathway/iTS
* End of special boolean declarations.
05 WS-PATHMON-PROCESS-NAME PIC X(6).
05 WS-PATHMON-PROCESS-EXT NATIVE-2 VALUE -1.
05 WS-FILE-NAME.
10 VOLUME-NAME PIC X(8) VALUE SPACES.
10 SUBVOL-NAME PIC X(8) VALUE SPACES.
10 FILE-NAME PIC X(8) VALUE SPACES.
05 WS-SPI-INPUT.
10 COMMAND NATIVE-2 VALUE -1.
10 OBJECT-TYPE NATIVE-2 VALUE -1.
10 OBJECT-NAME PIC X(15) VALUE SPACES.
10 OBJECT-NAME-2 PIC X(15) VALUE SPACES.
05 WS-PATHMON-PROGRAM-FILE PIC X(36)
VALUE "$SYSTEM.SYSTEM.PATHMON ".
05 WS-SERVER-PROGRAM-FILE PIC X(36)
VALUE "$SYSTEM.SYSTEM.SERVER ".
05 WS-LOGICAL-FILE PIC X(32) VALUE SPACES.
05 WS-PROGRAM-UNIT PIC X(32) VALUE SPACES.
05 WS-EXTERNAL-FILE-NAME PIC X(36) VALUE SPACES.
05 WS-PROCESS PIC X(6) VALUE SPACES.
05 WS-PATHMON-CREATE-OPTION PIC 9(4) COMP VALUE 0.
05 WS-PRIMARY-CPU PIC S9(4) COMP VALUE 14.
05 WS-BACKUP-CPU PIC S9(4) COMP VALUE 15.
05 WS-SS-RESULT NATIVE-2 VALUE -1.
05 WS-SPI-RESULT NATIVE-2 VALUE -1.
05 WS-COBOL-RESULT PIC S9(4) COMP VALUE 0.
05 WS-TEMPORARY-RESULT PIC S9(4) COMP VALUE 0.
05 WS-TEMPORARY-AREA PIC X(80).
COPY ZPWY-DDL-MSG-BUFFER IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-MSG-BUFFER BY REQUEST-SAVE-BUFFER.
COPY CONSTANTS IN "$SYSTEM.ZSPIDEF.ZSPICOB".
COPY CONSTANTS IN "$SYSTEM.ZSPIDEF.ZPWYCOB".
01 PAR-AREA PIC X(02).
COPY ZPWY-DDL-PAR-START-PATHWAY IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-PAR-START-PATHWAY BY
==ZPWY-DDL-PAR-START-PATHWAY REDEFINES PAR-AREA==.
01 SEL-AREA PIC X(02).
COPY ZPWY-DDL-SEL-TCP IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SEL-TCP BY
==ZPWY-DDL-SEL-TCP REDEFINES SEL-AREA==.
COPY ZPWY-DDL-SEL-TERM IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SEL-TERM BY
==ZPWY-DDL-SEL-TERM REDEFINES SEL-AREA==.
COPY ZPWY-DDL-SEL-PROG IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SEL-PROG BY
==ZPWY-DDL-SEL-PROG REDEFINES SEL-AREA==.
COPY ZPWY-DDL-SEL-PROGTERM IN "$SYSTEM.ZSPIDEF.ZPWYCOB"
REPLACING ZPWY-DDL-SEL-PROGTERM BY
==ZPWY-DDL-SEL-PROGTERM REDEFINES SEL-AREA==.
Example 13-1. Pathway/iTS Configuration Program (page 2 of 13)