ᑍ Print the error and the API that received the error
ᑍ
MOVE EXCEPTION-ID OF QUS-EC TO EXCEPTION-ID OF BAD-NEWS.
WRITE LIST-LINE FROM BAD-NEWS.
Data Queue—OPM 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: OPM 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 UC
Fᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
Iᑍ
Iᑍ Error Code parameter include
Iᑍ
I/COPY QSYSINC/QRPGSRC,QUSEC
Iᑍ
Iᑍ Process Command API Include
Iᑍ
I/COPY QSYSINC/QRPGSRC,QCAPCMD
Iᑍ
Iᑍ Command strings
Iᑍ
I DS
I I 'CRTLIB LIB(QUEUELIB)' 1 2 CRTLIB
I I 'DLTLIB LIB(QUEUELIB)' 21 4 DLTLIB
I I 'CRTDTAQ DTAQ(QUEUELI- 41 82 CRTDQ
I 'B/EXAMPLEQ) MAXLEN(1-
I ')'
I I 'DLTDTAQ DTAQ(QUEUELI- 83 113 DLTDQ
I 'B/EXAMPLEQ)'
Iᑍ
Iᑍ Miscellaneous data structure
Iᑍ
I DS
I 1 1 CMDSTR
I B 11 14LENSTR
I I 2 B 15 18SIZE
I I B 19112RCVSIZ
I I '' 113 113 FSTERR
I 114 123 APINAM
Cᑍ
Cᑍ Beginning of mainline
Cᑍ
Appendix B. Original Examples in Additional Languages B-169