IBM Version 4 Universal Remote User Manual


 
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