O\
OQPRINT E 1ð6 ERREPT
O 'Attempt to register exit'
O ' point failed: '
O QUSBND
OQPRINT E 1ð6 ERRPGM
O 'Attempt to add an exit'
O ' program failed: '
O QUSBND
Register Exit Point and Add Exit Program—ILE RPG Example
Refer to “Register Exit Point and Add Exit Program—ILE C Example” on page 4-9
for the original example.
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\
F\ Program: Register an Exit Point
F\ Add an Exit Program
F\
F\ Language: ILE RPG
F\
F\ Description: This program registers an exit point with the
F\ registration facility. After the successful
F\ completion of the registration of the exit point,
F\ an exit program is added to the exit point.
F\
F\ APIs Used: QusRegisterExitPoint - Register Exit Point
F\ QusAddExitProgram - Add Exit Program
F\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\
FQPRINT O F 132 PRINTER OFLIND(\INOF) USROPN
D\
D\ Keyed Variable Length Record includes
D\
D/COPY QSYSINC/QRPGLESRC,QUS
D\
D\ Error Code parameter include. As this sample program
D\ uses /COPY to include the error code structure, only the first
D\ 16 bytes of the error code structure are available. If the
D\ application program needs to access the variable length
D\ exception data for the error, the developer should physically
D\ copy the QSYSINC include and modify the copied include to
D\ define additional storage for the exception data.
D\
D/COPY QSYSINC/QRPGLESRC,QUSEC
D\
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Prototype for calling Register Exit Point API.
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D QUSREPð5 C 'QusRegisterExitPoint'
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Prototype for calling Add Exit Program API.
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D QUSAEPGM C 'QusAddExitProgram'
B-58 System API Programming V4R1