StorageTek 6 manual Constants

* Constants:
*
QCDSMODL	SLSUREQ MF=L		SLSUREQ plist model
QCDSMLEN	EQU	*-QCDSMODL	Length of SLSUREQ plist model
QCDSBLEN	DC	F'655360'	QCDS READ response area buffer length
KFLATDD	DCB	DDNAME=VDRECDAT,DSORG=PS,MACRF=(PM),		+
		LRECL=VDRECLEN,		+
		BLKSIZE=VDRECLEN*100,RECFM=FB
KFLATDDL	EQU	*-KFLATDD
*
* Module	work area map:
*
WKAREA	DSECT		Module work area
WKSAVE	DS	18F	MVS register save area
WKUCAL	DS	A	SLSUCAL routine address
WKTOK	DS	F	QCDS request token
WKRDRC	DS	F	QCDS READ return code
WKBUFP	DS	A	QCDS READ response area buffer addr
WKQCDS	DS	XL(QCDSMLEN)	SLSUREQ plist storage
WKFLATDD	DS	XL(KFLATDDL)
WKAREAL	EQU	*-WKAREA	Length of module work area
*
* Mapping macros:
*
	SLSREGS ,		Register equates
	SLSUREQM ,		SLSUREQ mapping macro
	SLUVTDAT ,		VTV record mapping macro
	END	QCDSVTV

Figure 33. Sample 1 - Automatic CDS Allocation (4 of 4)

Appendix F. Batch Application Program Interface (API) 639

1st ed., 6/30/04 - 312579601