NetBase for MPE Reference Guide

NetBase Shadowing
5-49
Post User Exit COBOL Example
Some sample declarations for the call:
01 EXIT-COMMON-AREA.
05 ECA-ACTION PIC S9(4) COMP.
88 ECA-ACT-OK VALUE 0.
88 ECA-ACT-DISCARD VALUE -1.
88 ECA-ACT-SYNC-LOST VALUE -2.
88 ECA-ACT-QUEUE VALUE -3.
88 ECA-ACT-CLOSE VALUE -4.
88 ECA-ACT-IGNORE VALUE 1.
88 ECA-ACT-POST-IT VALUE 2.
88 ECA-ACT-DISABLE VALUE 3.
05 ECA-STATUS PIC S9(4) COMP.
05 ECA-FILE-NODE PIC S9(4) COMP.
05 ECA-THIS-NODE PIC S9(4) COMP.
05 ECA-FILE-NUMBER PIC S9(9) COMP.
05 ECA-FILE-TYPE PIC X.
88 ECA-TYPE-MPE-FILE VALUE "F".
88 ECA-TYPE-KSAM-FILE VALUE "K".
88 ECA-TYPE-IMAGE VALUE "I".
05 FILLER PIC X.
01 EXIT-USER-AREA PIC X(2048).
01 EXIT-HEADER-INFO.
05 EHI-FILE-NAME PIC X(24).
05 FILLER PIC X(2).
05 EHI-DATE PIC S9(4) COMP.
05 EHI-TIME PIC S9(9) COMP.
05 EHI-UPDATE-TYPE PIC X(2).
88 EHI-UPD-DBUPDATE VALUE "IU".
88 EHI-UPD-DBPUT VALUE "IP".
88 EHI-UPD-DBDELETE VALUE "ID".
88 EHI-UPD-FWRITE VALUE "FW".
88 EHI-UPD-FUPDATE VALUE "FU".
88 EHI-UPD-KSAM-ADD VALUE "FP".
88 EHI-UPD-KSAM-DEL VALUE "FR".
88 EHI-UPD-RIO-DEL VALUE "FD".
05 FILLER PIC X(2).
05 EHI-RECORD-NUMBER PIC S9(9) COMP.
05 EHI-DATA-LENGTH PIC S9(4) COMP.
05 EHI-DATA-SET PIC S9(4) COMP.
05 EHI-TCOUNT REDEFINES EHI-DATA-SET
PIC S9(4) COMP.
01 OLD-DATA.
05 OLD-KEY-VALUE PIC X(8).
05 FILLER PIC X(20).
05 OLD-QTY PIC S9(9) COMP.
05 FILLER PIC X(100).