IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
Dᑍ QUSEPN5 2 OVERLAY(QUSARRAY2:5)
Dᑍ QUSFN13 8 OVERLAY(QUSARRAY2:25)
Dᑍ QUSREP4 1 OVERLAY(QUSARRAY2:33)
Dᑍ QUSCE2 1 OVERLAY(QUSARRAY2:34)
Dᑍ QUSERVED11 2 OVERLAY(QUSARRAY2:35)
Dᑍ QUSPGMN5 9B  OVERLAY(QUSARRAY2:37)
Dᑍ QUSPGMN6 1 OVERLAY(QUSARRAY2:41)
Dᑍ QUSPGML2 1 OVERLAY(QUSARRAY2:51)
Dᑍ QUSDI2 1 OVERLAY(QUSARRAY2:61)
Dᑍ QUSMFIL1 1 OVERLAY(QUSARRAY2:62)
Dᑍ QUSMFILL 1 OVERLAY(QUSARRAY2:72)
Dᑍ QUSMI1 7 OVERLAY(QUSARRAY2:82)
Dᑍ QUSTD2 5 OVERLAY(QUSARRAY2:89)
Dᑍ QUSRSV22 2 OVERLAY(QUSARRAY2:139)
Dᑍ QUSDC2 9B  OVERLAY(QUSARRAY2:141)
Dᑍ QUSOPD 9B  OVERLAY(QUSARRAY2:145)
Dᑍ QUSLPD 9B  OVERLAY(QUSARRAY2:149)
Dᑍ QUSERVED11 1 OVERLAY(QUSARRAY2:153)
Dᑍ QUSPD2 1
Dᑍ QUSDATA5 1 OVERLAY(QUSARRAY2:1)
Dᑍ
Dᑍ Varying length
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 Retrieve Exit Information
Dᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
D QUSREI C 'QusRetrieveExitInformation'
Dᑍ
Dᑍ Miscellaneous data
Dᑍ
DEPNTNAME S 2 INZ('EXAMPLE_EXIT_POINT')
DEPGM_NBR S 9B  INZ(-1)
DRCVVAR S 1 DIM(35)
DRCVVAR_SZ S 9B  INZ(%SIZE(RCVVAR:ᑍALL))
DBASSPCPTR S ᑍ
DINFSPCPTR S ᑍ
DCALL_PGM S 21
Cᑍ
Cᑍ Beginning of mainline
Cᑍ
Cᑍ Retrieve the exit point information first. If the current
Cᑍ number of exit programs is not zero, retrieve the exit
Cᑍ programs. It is not necessary to call for the exit point
Cᑍ information to determine if the exit point has any exit
Cᑍ programs. It is done here for illustrative purposes only.
Cᑍ You can make one call to the API for the exit program
Cᑍ information and check the number of exit program entries
Cᑍ returned field to see if there are any exit programs to call.
B-82 System API Programming V4R1
 previous next