IBM Version 4 Printer \ Compile Time Array REC, Copy QSYSINC/QRPGSRC,QUS I, Ivarrec, Iovrlay

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 f￿irst I\ 16 bytes of the error code structure are available. If the

I\ application program needs to access the variable lengt￿h

I\ exception data for the error, the developer should physi￿cally I\ copy the QSYSINC include and modify the copied include t￿o

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\

IDS

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 exi￿t

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 provide￿d C\ field of the error code to zero. Because this program has

C\ exceptions sent back through the error code parameter, i￿t 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 specifie￿d on

Appendix B. Original Examples in Additional BLanguages-55