Cᑍ
C EXCPTBADNEW
Cᑍ
C ENDSR
OQPRINT E 16 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
DCAP1_SZ S 9B INZ(%SIZE(QCAP1))
DRCVVAR_SZ S 9B INZ()
DAPI_NAME S 1
DFIRST_ERR S 1 INZ('')
Cᑍ
B-172 System API Programming V4R1