Manualshelf

EMS FastStart Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series
111112113114115116117118119120
COBOL85 Program Example
EMS FastStart Manual–133701
C-8
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-ACTION-ID
DISPLAY "Egen Error: ** Egen-initialize-action-id, error #55 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-ACTION-ERROR
DISPLAY "Egen Error: ** Egen-initialize-action-error, error #56 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-TEXT-ERROR
DISPLAY "Egen Error: ** Egen-initialize-text-error, error #57 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-TOKENS-ERROR
DISPLAY "Egen Error: ** Egen-initialize-tokens-error, error #58 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-INITIALIZE-SSGETTKN-ERROR
DISPLAY "Egen Error: ** Egen-initialize-ssgettkn-error, error #59 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-WRITE-EVENT-WARNING
DISPLAY "Egen Error: ** Egen-write-event-warning, error #60 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-WRITE-EVENT-ERROR
DISPLAY "Egen Error: ** Egen-write-event-error, error #61 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-MISSING-PARAMETER-ERROR
DISPLAY "Egen Error: ** Egen-missing-parameter-error, error #70 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF return-code = EGEN-RECORD-NOT-INITIALIZED
DISPLAY "Egen Error: ** Egen-record-not-intialized, error #71 **"
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record
ELSE
IF ( return-code < EGEN-GENERATE-EVENT-OK ) OR
( return-code > EGEN-RECORD-NOT-INITIALIZED )
DISPLAY "Egen Error: ** Invalid return code, error # " WITH NO ADVANCING
DISPLAY return-code
DISPLAY "Error Detail: " WITH NO ADVANCING
DISPLAY egen-error OF egen-record.
END-PROGRAM.