IBM Version 4 manual Data, 172

C\
C	EXCPTBADNEW
C\
C	ENDSR
OQPRINT E 1ð6	BADNEW
O	'Failed in API '
O	APINAM
O	'with error '
O	QUSBND

Data	Queue—ILE	RPG	Example
			Refer to “Data Queue—ILE C Example” on page A-16 for the original examp
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\
			F\	Program Name: DQUEUEX
			F\
			F\	Programming Language: ILE RPG
			F\
			F\	Description:			This program illustrates how to use APIs to
			F\				create and manipulate a \DTAQ.
			F\
			F\	Header Files Included: QUSEC					- Error Code Parameter
			F\				QCAPCMD - Process Command API
			F\
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			F\
			FQPRINT		O	F	132	PRINTER OFLIND(\INOF) USROPN
			F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
			D\
			D\ Error Code parameter include
			D\
			D/COPY QSYSINC/QRPGLESRC,QUSEC
			D\
			D\ Process Command API Include
			D\
			D/COPY QSYSINC/QRPGLESRC,QCAPCMD
			D\
			D\ Command strings
			D\
			D
			DCRTLIB				C		'CRTLIB LIB(QUEUELIB)'
			DDLTLIB				C		'DLTLIB LIB(QUEUELIB)'
			DCRTDQ				C		'CRTDTAQ DTAQ(QUEUELIB/+
			D						EXAMPLEQ) MAXLEN(1ð)'
			DDLTDQ				C		'DLTDTAQ DTAQ(QUEUELIB/EXAMPLEQ)'
			D\
			D\ Miscellaneous data structure
			D\
			DCMD_STR				S	1ðð
			DLEN_STR				S	9B ð
			DCAPð1ðð_SZ				S	9B ð INZ(%SIZE(QCAPð1ðð))
			DRCVVAR_SZ				S	9B ð INZ(ð)
			DAPI_NAME				S	1ð
			DFIRST_ERR				S	1	INZ('ð')
			C\
B-172	System	API	Programming	V4R1