Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Fᑍ
FQPRINT O F 132 PRINTER UC
Iᑍ
Iᑍ Error Code parameter include. As this sample program
Iᑍ uses /COPY to include the error code structure, only the first
Iᑍ 16 bytes of the error code structure are available. If the
Iᑍ application program needs to access the variable length
Iᑍ exception data for the error, the developer should physically
Iᑍ copy the QSYSINC include and modify the copied include to
Iᑍ define additional storage for the exception data.
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUSEC
Iᑍ
Iᑍ Formats for the Retrieve Exit Information API.
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUSREG
Iᑍ
Iᑍ Miscellaneous data
Iᑍ
I DS
I I 'EXAMPLE_EXIT_POINT ' 1 2 EPNTNM
I I -1 B 21 24EPGMNB
I I 35 B 25 28RCVSZ
I B 29 32X
I B 33 36Y
I 37 57 CALLPG
IRCV DS 35
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.
Cᑍ
Cᑍ Initialize the error code to inform the API that all
Cᑍ exceptions should be returned through the error code parameter.
Cᑍ
C Z-ADD16 QUSBNB
Cᑍ
Cᑍ Blank out the continuation handle to let the API know that this
Cᑍ is a first attempt at the retrieve operation.
Cᑍ
C MOVE ᑍBLANKS CONTHD 16
Cᑍ
Cᑍ Call the API to retrieve the exit point information
Cᑍ
C CALL 'QUSRTVEI'
C PARM CONTHD
C PARM RCV
C PARM RCVSZ
C PARM 'EXTI1'FORMAT 8
B-72 System API Programming V4R1