EMS Manual

Example of Retrieving Event Messages
EMS Manual—426909-005
A-20
COBOL Source File
RECORD IS VARYING.
COPY zems-ddl-msg-buffer OF $system.zspidef.zemscob
REPLACING ==ZEMS-DDL-MSG-BUFFER== BY ==distr-rec==.
WORKING-STORAGE SECTION.
01 actual-len-g.
02 actual-len NATIVE-2 OCCURS num-evt-lines TIMES.
01 coll-name.
02 PIC X(8) VALUE "$0".
02 PIC X(8) VALUE SPACES.
02 PIC X(8) VALUE SPACES.
01 cpu-num NATIVE-2.
01 distr-name PIC X(24) VALUE SPACES.
01 distr-name-qual PIC X(24) VALUE SPACES.
01 distr-prog-file PIC X(30)
VALUE "$SYSTEM.SYSTEM.EMSDIST".
01 ems-err NATIVE-2.
01 PIC 9 COMP VALUE 0.
88 end-of-loop VALUE 1.
01 error-flag NATIVE-2.
01 evt-text-buf.
02 evt-text-line PIC X(evt-text-len)
OCCURS num-evt-lines TIMES.
01 filt-name.
02 PIC X(8) VALUE "$SYSTEM".
02 PIC X(8) VALUE "FILT".
02 PIC X(8) VALUE "MYAPFOBJ".
01 ind PIC 99 COMP.
01 option NATIVE-2 VALUE 1.
01 text-stat NATIVE-4.
01 text-stat-r REDEFINES text-stat.
02 text-stat-high NATIVE-2.
02 text-stat-low NATIVE-2.
01 offset NATIVE-2.
01 cp-list PIC 9(9) COMP VALUE 0.
01 string-portion PIC X(6) VALUE "STRING".
01 string-value PIC X(13) VALUE "TYPE CONSUMER".
?NOLIST
COPY constants OF $system.zspidef.zspicob.
COPY constants OF $system.zspidef.zemscob.
COPY constants OF myapcob.
?LIST
EXTENDED-STORAGE SECTION.
COPY zems-ddl-msg-buffer OF $system.zspidef.zemscob
REPLACING ==ZEMS-DDL-MSG-BUFFER== BY ==event-buf==.
COPY zems-ddl-msg-buffer OF $system.zspidef.zemscob
REPLACING ==ZEMS-DDL-MSG-BUFFER== BY ==save-buf==.
PROCEDURE DIVISION.
startt.
* Get an unused process name
ENTER "CREATEPROCESSNAME" USING distr-name