EMS FastStart Manual
DDL, Copy Libraries and Templates Example
EMS FastStart Manual–133701
D-8
ATM Example, COBOL85 COPYLIB: ATM1COB
*
* Constants and returns code used by the Initialize^egen^record procedure
*
01 EGEN-INITIALIZE-RECORD-OK NATIVE-2 VALUE IS 0.
01 EGEN-INITIALIZE-MISSING-PARAM NATIVE-2 VALUE IS 1.
*
* Constants and returns code used by the Open^egen^collector procedure
*
01 EGEN-OPEN-COLLECTOR-OK NATIVE-2 VALUE IS 0.
01 EGEN-OPEN-MISSING-PARAM NATIVE-2 VALUE IS 10.
01 EGEN-OPEN-INVALID-SYNC-DEPTH NATIVE-2 VALUE IS 11.
01 EGEN-OPEN-COLLECTOR-ERROR NATIVE-2 VALUE IS 12.
01 EGEN-OPEN-COLLECTOR-WARNING NATIVE-2 VALUE IS 13.
*
* Constants and returns code used by the Close^egen^collector procedure
*
01 EGEN-COLLECTOR-CLOSED-OK NATIVE-2 VALUE IS 0.
01 EGEN-COLLECTOR-MISSING-PARAM NATIVE-2 VALUE IS 20.
01 EGEN-COLLECTOR-ALREADY-CLOSED NATIVE-2 VALUE IS 21.
*
* Constants and returns code used by the Complete^egen^operation procedure
*
01 EGEN-COMPLETE-OPERATION-OK NATIVE-2 VALUE IS 0.
01 EGEN-COMPLETE-MISSING-PARAM NATIVE-2 VALUE IS 30.
01 EGEN-COMPLETE-OPERATION-ERROR NATIVE-2 VALUE IS 31.
*
* Constants and returns code used by the Get^egen^event^text^define procedure
*
01 EGEN-GET-TEXT-DEFINE-OK NATIVE-2 VALUE IS 0.
01 EGEN-GET-TEXT-DEFINEMODE-ERROR NATIVE-2 VALUE IS 40.
01 EGEN-GET-TEXT-DEFINEINFO-ERROR NATIVE-2 VALUE IS 41.
*
* Constants and returns code used by the Initialize^event^buffer procedure
*
01 EGEN-INITIALIZE-EVENT-OK NATIVE-2 VALUE IS 0.
01 EGEN-INITIALIZE-TYPE-ERROR NATIVE-2 VALUE IS 50.
01 EGEN-INITIALIZE-EVENT-NUMBER NATIVE-2 VALUE IS 51.
01 EGEN-INITIALIZE-EMSINIT-ERROR NATIVE-2 VALUE IS 52.
01 EGEN-INITIALIZE-SUBJECT-ERROR NATIVE-2 VALUE IS 53.
01 EGEN-INITIALIZE-FLAGS-ERROR NATIVE-2 VALUE IS 54.
01 EGEN-INITIALIZE-ACTION-ID NATIVE-2 VALUE IS 55.
01 EGEN-INITIALIZE-ACTION-ERROR NATIVE-2 VALUE IS 56.
01 EGEN-INITIALIZE-TEXT-ERROR NATIVE-2 VALUE IS 57.
01 EGEN-INITIALIZE-TOKENS-ERROR NATIVE-2 VALUE IS 58.
01 EGEN-INITIALIZE-SSGETTKN-ERROR NATIVE-2 VALUE IS 59.
*
* Constants and returns code used by the Write^event^buffer procedure
*
01 EGEN-WRITE-EVENT-OK NATIVE-2 VALUE IS 0.
01 EGEN-WRITE-EVENT-WARNING NATIVE-2 VALUE IS 60.
01 EGEN-WRITE-EVENT-ERROR NATIVE-2 VALUE IS 61.
*
* Constants and returns code used by the Egen procedure
*
01 EGEN-GENERATE-EVENT-OK NATIVE-2 VALUE IS 0.
01 EGEN-MISSING-PARAMETER-ERROR NATIVE-2 VALUE IS 70.
01 EGEN-RECORD-NOT-INITIALIZED NATIVE-2 VALUE IS 71.
?Section ATM-EVENT-NUMBERS,Tandem
*---------------------------------------------------------------------
* If a file was specified in the USER-DDL-FILE of the ACF, we will
* source it here. We also add these definitions in the COBOL
* definition file to be used by COBOL programs.
*---------------------------------------------------------------------
*---------------------------------------------------------------------
*
* EMS FastStart - T9263C20 - (17MAR91)