IBM Version 4 Universal Remote User Manual


 
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” 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