EMS FastStart Manual

DDL, Copy Libraries and Templates Example
EMS FastStart Manual–133701
D-7
ATM Example, COBOL85 COPYLIB: ATM1COB
03 Z-B REDEFINES Z-C PIC X
OCCURS 24 TIMES.
02 ATM-SERIAL-NUMBER NATIVE-4.
02 ATM-SENSE-STATUS NATIVE-4.
?Section EGEN-INTERFACE-DEFINITIONS,Tandem
*---------------------------------------------------------------------
* EGEN module interface variables definitions.
*---------------------------------------------------------------------
*
* Used to define the EVENT-TYPE field of EGEN-RECORD.
*
01 INFORMATIVE-EVENT NATIVE-2 VALUE IS 1.
01 ACTION-ATTENTION-EVENT NATIVE-2 VALUE IS 2.
01 ACTION-COMPLETION-EVENT NATIVE-2 VALUE IS 3.
01 CRITICAL-EVENT NATIVE-2 VALUE IS 4.
01 ACF-VERSION NATIVE-2 VALUE IS 16896.
*
*
*---------------------------------------------------------------------
* When the EGEN module is invoked, it will return a status variable,
* called Return-code, to the calling program. Please note that this
* return code does not correspond to a file system error, the field
* egen-error of egen-record will contains more information. This
* table lists the possible values returned by EGEN.
*
* Return-Code Description
*
* 0 EGEN successfully generated the event message
*
* 1 The Initialize^egen^record procedure detected that
* there was no parameter passed to this procedure.
*
* 10-13 The Open^egen^collector procedure detected an error
* when opening the collector. The Egen-error field
* of Egen-record contains detailed information.
*
* 20-21 The Close^egen^collector procedure detected an error
* when closing the collector. The Egen-error field
* of Egen-record contains detailed information.
*
* 30-31 The Complete^egen^operation procedure detected an error
* when completing the write operation. The Egen-error field
* of Egen-record contains detailed information.
*
* 40-41 The Get^egen^event^text^define procedure detected an error
* when processing the =_EGEN_ADD_EVENT_TEXT define. The
* Egen-error field of Egen-record contains detailed
* information.
*
* 50-59 The Initialize^event^buffer procedure detected an error
* when initializing the event buffer. The Egen-error field
* of Egen-record contains detailed information.
*
* 60-61 The Write^event^buffer procedure detected an error or a
* warning when writing the event buffer. The Egen-error field
* of Egen-record contains detailed information.
*
* 70 The Egen procedure detected that a required parameter
* was not passed or that the combination of parameters was
* not valid.
*
* 71 The Egen procedure detected that the Egen-record was not
* initialized by the Initialize^egen^record procedure
* before calling Egen.
*
*---------------------------------------------------------------------