IBM Version 4 Errept, Errpgm, Printer OFLIND\INOF Usropn, Copy QSYSINC/QRPGLESRC,QUS, Qusaepgm

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 pag
		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 f￿irst
			D\	16 bytes of the error code structure are available. If the
			D\	application program needs to access the variable lengt￿h
			D\	exception data for the error, the developer should physi￿cally
			D\	copy the QSYSINC include and modify the copied include t￿o
			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