EMS FastStart Manual

COBOL85 Program Example
EMS FastStart Manual–133701
C-7
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-OPEN-COLLECTOR-ERROR
DISPLAY "Egen Error: ** Egen-open-collector-error, error #12 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-OPEN-COLLECTOR-WARNING
DISPLAY "Egen Error: ** Egen-open-collector-warning, error #13 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-COLLECTOR-MISSING-PARAM
DISPLAY "Egen Error: ** Egen-collector-missing-param, error #20 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-COLLECTOR-ALREADY-CLOSED
DISPLAY "Egen Error: ** Egen-collector-already-closed, error #21 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-COMPLETE-MISSING-PARAM
DISPLAY "Egen Error: ** Egen-complete-missing-param, error #30 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-COMPLETE-OPERATION-ERROR
DISPLAY "Egen Error: ** Egen-complete-operation-error, error #31 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-GET-TEXT-DEFINEMODE-ERROR
DISPLAY "Egen Error: ** Egen-get-text-definemode-error, error #40 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-GET-TEXT-DEFINEINFO-ERROR
DISPLAY "Egen Error: ** Egen-get-text-defineinfo-error, error #41 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-TYPE-ERROR
DISPLAY "Egen Error: ** Egen-initialize-type-error, error #50 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-EVENT-NUMBER
DISPLAY "Egen Error: ** Egen-initialize-event-number, error #51 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-EMSINIT-ERROR
DISPLAY "Egen Error: ** Egen-initialize-emsinit-error, error #52 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-SUBJECT-ERROR
DISPLAY "Egen Error: ** Egen-initialize-subject-error, error #53 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-FLAGS-ERROR
DISPLAY "Egen Error: ** Egen-initialize-flags-error, error #54 **"
DISPLAY "Error Detail: " WITH NO ADVANCING