Filter
Top Products
FQPRINT O F 132 PRINTER UC
Eᑍ COMPILE TIME ARRAY
E REC 1 1
Iᑍ
Iᑍ Keyed Variable Length Record includes
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUS
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ᑍ Miscellaneous data
Iᑍ
IVARREC DS 18
I B 1 4NBRREC
I 514 REC
I I 1 B1518VO
Iᑍ
IOVRLAY DS
I B 1 4BINARY
I 1 4 BINC
Iᑍ
I DS
I I 'EXAMPLE_EXIT_POINT ' 1 2 EPNTNM
I I 'EXAMPLEPGMEXAMPLELIB' 21 4 EPGM
I I 'EXAMPLE EXIT PROGRAM- 41 65 EPGMDT
I ' DATA'
I I 'EXAMPLE POINT EXAMPL- 66 115 EPTXT
I 'E'
I I 25 B 68 71EPGMSZ
Cᑍ
Cᑍ Beginning of mainline
Cᑍ
Cᑍ Register the exit point with the registration facility. If the
Cᑍ registration of the exit point is successful, add an exit
Cᑍ program to the exit point.
Cᑍ
Cᑍ Initialize the error code parameter. To signal exceptions to
Cᑍ this program by the API, you need to set the bytes provided
Cᑍ field of the error code to zero. Because this program has
Cᑍ exceptions sent back through the error code parameter, it sets
Cᑍ the bytes provided field to the number of bytes it gives the
Cᑍ API for the parameter.
Cᑍ
C Z-ADD16 QUSBNB
Cᑍ
Cᑍ Set the exit point controls. Each control field is passed to
Cᑍ the API using a variable length record. Each record must
Cᑍ start on a 4-byte boundary.
Cᑍ
Cᑍ Set the total number of controls that are being specified on
Appendix B. Original Examples in Additional Languages B-55