TS/MP 2.5 Management Programming Manual

Example 3 TS/MP Configuration Program
* NB: Pathmon requires that SPI clients be low-pin or be named. Set the
appropriate linker flag.
* The source search path must include the ZSPIDEFS subvolume.
* To compile from Guardian, add this define; it must name the subvolume of the
SPI source files.
* ADD DEFINE =_SOURCE_SEARCH, CLASS SEARCH, SUBVOL0 ($system.zspidef)
* On TNS/E, use this command:
* ECOBOL /IN <source>/ <program> ;SUPPRESS;RUNNABLE;ELD (-SET RUNNAMED ON)
* For TNS COBOL, add this define. It must name the subvolume of the COBOL
library files.
* ADD DEFINE =_OBJECT_SEARCH, CLASS SEARCH, SUBVOL0 ($system.system)
* COBOL /IN <source>/ <program> ;SUPPRESS;ENV COMMON,CONSULT COBOLEX0;SEARCH
CLULIB;SEARCH COBOLLIB
IDENTIFICATION DIVISION.
PROGRAM-ID. PATHWAY-SPI-EXAMPLE.
?SAVE STARTUP
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP-NONSTOP.
OBJECT-COMPUTER. HP-NONSTOP.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PATHMON-FILE ASSIGN TO #DYNAMIC.
DATA DIVISION.
FILE SECTION.
FD PATHMON-FILE.
COPY ZPWY-DDL-MSG-BUFFER IN "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).
* 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.
Configuring Pathway 319