Filter
Top Products
Cᑍ exception does occur.
Cᑍ
C IF QUSBAVL >
C OPEN QPRINT
C EXCEPT ERRAEPGM
C EXSR DONE
C ENDIF
C EXSR DONE
Cᑍ
Cᑍ End of MAINLINE
Cᑍ
Cᑍ
Cᑍ Return to programs caller
C DONE BEGSR
C EVAL ᑍINLR = '1'
C RETURN
C ENDSR
Cᑍ
Cᑍ Calculate 4-byte aligned offset for next variable length record
Cᑍ
C CALC_VOFF BEGSR
C EVAL BINARY = QUSLD + 12
C DIV 4 BINARY
C MVR BINARY
C IF BINARY =
C EVAL QUSLVR = (QUSLD + 12)
C ELSE
C EVAL QUSLVR = (QUSLD + 12 + (4 - BINARY))
C END
C EVAL %SUBST(RECS:V_OFFSET:12) = QUSVR4
C EVAL V_OFFSET = V_OFFSET + QUSLVR
C ENDSR
Oᑍ
OQPRINT E ERRAEPNT 1 6
O 'Attempt to register exit -
O point failed: '
O QUSEI
OQPRINT E ERRAEPGM 1 6
O 'Attempt to add exit -
O program failed: '
O QUSEI
Retrieve Exit Point and Exit Program Information—OPM COBOL
Example
Refer to “Retrieve Exit Point and Exit Program Information—ILE C Example” on
page 4-13 for the original example.
IDENTIFICATION DIVISION.
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍ
ᑍ Program: Retrieve Exit Point and Exit Program Information
ᑍ
ᑍ Language: OPM COBOL
ᑍ
ᑍ Description: This program retrieves exit point and exit
ᑍ program information. After retrieving the
Appendix B. Original Examples in Additional Languages B-61