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 example.
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