StorageTek 6 manual WKFLATDDKFLATDDL,KFLATDD Initialize the working

MVC	WKFLATDD(KFLATDDL),KFLATDD Initialize the working
LA	R4,WKFLATDD	storage	version of the DCB from the
OPEN	((R4),(OUTPUT))	copy in	the constants area.

*

*Use QCDS OPEN to automatically allocate the current primary CDS

*and open the VTV record area:

*
OPENVOL DS	0H	Open CDS VTV record area:
SLSUREQ QCDS,			+
	REQUEST=OPEN,		+
	DDNAME==CL8'CDS1',		+
	TYPE=VTV,		+
	TOKEN=WKTOK,		+
	UCALADR=WKUCAL,		+
	MF=(E,WKQCDS)
C	R15,=A(SLUROPOK)	Check for OPEN failure
BNE	OPENERR	Handle OPEN error
*

*Allocate response area buffer and map the response area:

L	R0,QCDSBLEN	Load response area buffer	length
GETMAIN R,LV=(0)		Request storage
ST	R1,WKBUFP	Store pointer to response	area
LR	R10,R1	Load pointer to response area
USING	SLUR,R10	Map QCDS READ response area

*

*Outer loop - read CDS VTV record area in blocks:

READVOL DS	0H	Read block of VTV records:
SLSUREQ QCDS,			+
	REQUEST=READ,		+
	DDNAME==CL8'CDS1',		+
	TYPE=VTV,		+
	BUFFER=WKBUFP,		+
	BUFLEN=QCDSBLEN,		+
	TOKEN=WKTOK,		+
	UCALADR=WKUCAL,		+
	MF=(E,WKQCDS)
ST	R15,WKRDRC	Save READ return code
C	R15,=A(SLURRDEA)	Check for READ failure
BH	READERR	Handle READ error
L	R9,SLURQCDN	Get number of VTV records
*		present in this reply
L	R7,SLURQCDO	Offset to first VTV record
LA	R8,SLURRPLY(R7)	Pointer to first VTV record
USING	SLUVTDAT,R8	Map VTV record
*

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

Appendix F. Batch Application Program Interface (API) 637

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