EMS Manual

Example of Retrieving Event Messages
EMS Manual—426909-005
A-21
COBOL Source File
* Prepare the startup message with "TYPE" parameter
* for distributor (CONSUMER).
ENTER "PUTSTARTUPTEXT" USING string-portion,
string-value,
cp-list
GIVING error-flag
IF error-flag < ZERO
ENTER "DEBUG"
END-IF
* Start the distributor
ENTER "CREATEPROCESS" USING distr-prog-file, distr-name,
option GIVING error-flag
IF error-flag NOT = ZERO
ENTER "DEBUG"
END-IF
* Construct the name to be used to open the distributor
MOVE SPACES TO distr-name-qual
STRING distr-name DELIMITED BY SPACES,
".#ZSPI" DELIMITED BY SIZE INTO distr-name-qual
ENTER "COBOLASSIGN" USING distr-process, distr-name-qual
GIVING error-flag
IF error-flag NOT = ZERO
ENTER "DEBUG"
END-IF
OPEN I-O distr-process
DISPLAY "Enter CPU number"
ACCEPT cpu-num
* Initialize distr-rec for distributor CONTROL command
ENTER "SSINIT" USING distr-rec, zems-val-buflen,
zems-val-ssid, zspi-val-cmdhdr, zems-cmd-control
GIVING error-flag
IF error-flag NOT = ZERO
ENTER "DEBUG"
END-IF
* Place the connect-source-collector token in buffer
ENTER "SSPUT" USING distr-rec,
zems-tkn-connect-src-coll, coll-name GIVING error-flag
IF error-flag NOT = ZERO
ENTER "DEBUG"
END-IF
* Place the load-filter-from-file token in the buffer
ENTER "SSPUT" USING distr-rec, zems-tkn-filterfile,
filt-name GIVING error-flag
IF error-flag NOT = ZERO
ENTER "DEBUG"
END-IF