IBM Version 4 Information-ILE RPG Example, Done Begsr Seton Retrn Endsr Oqprint, Qusbnd Oqprint

C			ENDSR
C\
C\ Return to programs caller
C		DONE	BEGSR
C			SETON	LR
C			RETRN
C			ENDSR
O\
OQPRINT	E	1ð6	ERREPT
O				'Attempt to retrieve infor'
O				'mation failed: '
O			QUSBND
OQPRINT	E	1ð6	ERRPGM
O				'Attempt to retrieve Exit'
O				' Programs failed: '
O			QUSBND

Retrieve Exit Point and	Exit		Program	Information—ILE RPG Example
Refer	to	“Retrieve		Exit Point and Exit Program Information—ILE C Example
page 4-13		for	the	original example.

F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

F\
F\	Program:			Retrieve Exit Point and Exit Program Information
F\
F\	Language:			ILE RPG
F\
F\	Description:			This program retrieves exit point and exit
F\				program information. After retrieving the
F\				exit point information, the program calls each ,
F\				exit program.
F\
F\	APIs Used:			QusRetrieveExitInformation - Retrieve Exit
F\					Information
F\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
F\
FQPRINT		O	F	132	PRINTER OFLIND(\INOF) USROPN

D\

D\ The following QUSREG include from QSYSINC is copied int￿o

D\ this program so that the data structures can be declared￿ as

D\ BASED.

D\

D\\\ START HEADER FILE SPECIFICATIONS \\\\\\\\\\\\\\\\\\\\\\\\\\\\

D\

D\Header File Name: H/QUSREG

D\

D\Descriptive Name: Standard Registration Structures.

D\

D\5763-SS1 (C) Copyright IBM Corp. 1994,1994

D\All rights reserved.

D\US Government Users Restricted Rights -

D\Use, duplication or disclosure restricted

D\by GSA ADP Schedule Contract with IBM Corp.

D\

Appendix B. Original Examples in Additional BLanguages-75