C ENDSR
Cᑍ
Cᑍ Return to programs caller
C DONE BEGSR
C SETON LR
C RETRN
C ENDSR
Oᑍ
OQPRINT E 16 ERREPT
O 'Attempt to retrieve infor'
O 'mation failed: '
O QUSBND
OQPRINT E 16 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” on
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 into
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 Languages B-75