IBM Version 4 PROGRAM-ID. Dqueuex Environment Division, Copy Qcapcmd of QSYSINC-QLBLSRC, Crtlib

\	create and manipulate a \DTAQ.
\
\	Header Files Included: QUSEC	-	Error Code Parameter
\	QCAPCMD	-	Process Command API
\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

\

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

PROGRAM-ID. DQUEUEX.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-AS4ðð. OBJECT-COMPUTER. IBM-AS4ðð.

INPUT-OUTPUT SECTION. FILE-CONTROL.

SELECT LISTING ASSIGN TO PRINTER-QPRINT ORGANIZATION IS SEQUENTIAL.

DATA DIVISION.

FILE SECTION.

FD LISTING RECORD CONTAINS 132 CHARACTERS LABEL RECORDS ARE STANDARD DATA RECORD IS LIST-LINE.

ð1 LIST-LINE PIC X(132).

WORKING-STORAGE SECTION.

\

\Error Code parameter include

COPY QUSEC OF QSYSINC-QLBLSRC.

\Process Command API Include

COPY QCAPCMD OF QSYSINC-QLBLSRC.

\Command strings

\

ð1	CRTLIB	PIC X(5ð)		VALUE "CRTLIB		QUEUELIB".
ð1	DLTLIB	PIC X(5ð)		VALUE	"DLTLIB	QUEUELIB".
ð1	CRTDQ	PIC	X(5ð)
			VALUE	"CRTDTAQ QUEUELIB/EXAMPLEQ MAXLEN(1ð)".
ð1	DLTDQ	PIC	X(5ð)	VALUE	"DLTDTAQ QUEUELIB/EXAMPLEQ".

\

\Error message text

ð1 BAD-NEWS.

ð5	TEXT1	PIC	X(14)	VALUE	"Failed in	API ".
ð5	API-NAME	PIC	X(1ð) VALUE		"QCAPCMD".
ð5	TEXT2	PIC	X(11)	VALUE	"with error ".
ð5	EXCEPTION-ID PIC		X(ð7).

\

\Miscellaneous elements

ð1 COMMAND-LENGTH PIC S9(ð9) VALUE 5ð BINARY.

ð1	RECEIVER	PIC	X(ð1).
ð1	RECEIVER-LENGTH	PIC S9(ð9) VALUE		ð BINARY.
ð1	OPTIONS-SIZE	PIC S9(ð9) VALUE		2ð BINARY.
ð1	FORMAT-NAME	PIC	X(ð8) VALUE	"CPOPð1ðð".
ð1	FIRST-ERROR	PIC	X(ð1) VALUE	"ð".
ð1	NAME-OF-QUEUE	PIC	X(1ð) VALUE	"EXAMPLEQ".

B-166System API Programming V4R1