IBM Version 4 manual Qwdord, Qwdlrd, Qwdjmqms, Qwdjmqfa, QWDRSV2, Qwdill

D QWDORD		369	372B ð
D\				Offset Request Data
D QWDLRD		373	376B ð
D\				Length Request Data
D QWDJMQMS		377	38ðB ð
D\				Job Message Queue Max Size
D QWDJMQFA		381	39ð
D\				Job Msg Queue Full Action
D\QWDRSV2		391	391
D\
D\			Varying length
D\QWDILL		392	4ð2	DIM(ðððð1)
D\
D\			Varying length
D\QWDRDðð		4ð3	4ð3
D\
D\			Varying length
D\
D\ Command string data structure
D\
DCMD_STRING		DS
D			22	INZ('SNDMSG MSG(''LIBRARY - ')
D LIBRARY			1ð
D			15	INZ(''') TOUSR(QPGMR)')
D\
D\ Miscellaneous data structure
D\
DRCVLEN		S	9B ð INZ(%SIZE(QWDDð1ðð))
DFORMAT		S	8	INZ('JOBDð1ðð')
DLENSTR		S	15 5 INZ(%SIZE(CMD_STRING))
C\
C\ Beginning of mainline
C\
C\ Two parameters are being passed into this program
C\
C	\ENTRY	PLIST
C		PARM		JOBD	1ð
C		PARM		JOBD_LIB	1ð
C\
C\ Move the two parameters passed into LFNAM
C\
C	JOBD	CAT	JOBD_LIB	LFNAM	2ð
C\
C\ Error Code Bytes Provided is set to 16
C\
C		EVAL	QUSBPRV = %SIZE(QUSEC)
C\
C\ Call the API.
C\
C		CALL	QWDRJOBD
C		PARM		QWDDð1ðð
C		PARM		RCVLEN
C		PARM		FORMAT
C		PARM		LFNAM
C		PARM		QUSEC
C\

C\ Test for an error on the API call

C\

B-32System API Programming V4R1