IBM Version 4 manual Data Queue-OPM RPG Example

\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 ex

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\

IDS

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\

IDS

I		1	1ðð CMDSTR
I		B 1ð1	1ð4ðLENSTR
I I	2ð	B 1ð5	1ð8ðSIZE
I I	ð	B 1ð9ð112ðRCVSIZ
I I	'ð'	113	113 FSTERR
I		114	123 APINAM
C\
C\ Beginning of mainline
C\
	Appendix	B. Original	Examples in Additional BLanguages-169