Manualshelf

TS/MP Management Programming Manual (G06.24+, H06.03+)

ManualsBrandsHP ManualsServerHP NonStop G-Series
471472473474475476477478479480
Management Programming Examples
NonStop TS/MP Management Programming Manual—540082-001
15-3
Configuring Pathway
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).
* End of special boolean declarations.
* make space for the largest possible file name
05 WS-PATHMON-PROCESS-NAME PIC X(47) VALUE SPACES.
* length of WS-PATHMON-PROCESS-NAME. needed to keep CLU_Process_Create_ happy
05 WS-PATHMON-PROCESS-BYTES NATIVE-2 VALUE 0.
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 ".
* WS-SERVER-PROGRAM-FILE must contain a valid server program file. If it does not,
* this program will enter the debugger.
* Uncomment the next line and change the value to be a server program file.
* 05 WS-SERVER-PROGRAM-FILE PIC X(36) VALUE "$SYSTEM.SYSTEM.ENABLEGS ".
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.
* make the simplifying assumption that every system has cpu 0 and 1
05 WS-PRIMARY-CPU PIC S9(4) COMP VALUE 0.
05 WS-BACKUP-CPU PIC S9(4) COMP VALUE 1.
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-ERROR-DETAIL NATIVE-2 VALUE 0.
05 WS-PHANDLE.
10 filler occurs 10 times.
15 filler native-2.
05 WS-TEMPORARY-RESULT PIC S9(4) COMP VALUE 0.
05 WS-TEMPORARY-AREA PIC X(80).
05 WS-PARA-NAME PIC X(80).
05 WS-ERROR-TEXT PIC X(80).
Example 15-1. TS/MP Configuration Program (page 2 of 28)