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 1ðð8
I B 1 4ðNBRREC
I 51ðð4 REC
I I 1 B1ðð51ðð8ðVO
I\
IOVRLAY DS
I B 1 4ðBINARY
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 71ðEPGMSZ
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