StorageTek manual 642VM/HSC 6.0 System Programmer’s Guide

*

*OPEN ACS AND DRIVE RECORD AREAS AND MAP THE RESPONSE AREAS:

OPEN	DS 0H	OPEN ACS AND DRIVE RECORD AREAS:
	SLSUREQ QCDS,	OPEN ACS RECORD AREA
	REQUEST=OPEN,
	TYPE=ACS,
	TOKEN=WKTOK,
	DDNAME=QCDSDD,
	UCALADR=WKUCAL,
	MF=(E,WKQCDS)
	SLSUREQ QCDS,	OPEN DRIVE RECORD AREA
	REQUEST=OPEN,
	TYPE=DRV,
	TOKEN=WKTOK,
	UCALADR=WKUCAL,
	MF=(E,WKQCDS)
	USING SLUR,R9	MAP QCDS READ RESPONSE AREA
*

*MAIN PROCESSING LOOP ­ INTERLEAVED PROCESSING OF ACS AND

*DRIVE RECORDS:

*
PROCESS	DS	0H	MAIN PROCESSING LOOP:
	LA	R9,WKACSBUF	POINTER TO ACS RESPONSE AREA
	SLSUREQ QCDS,		READ ACS RECORD AREA
		REQUEST=READ,
		TYPE=ACS,
		BUFFER=(R9),
		BUFLEN=QCDSBLEN,
		TOKEN=WKTOK,
		UCALADR=WKUCAL,
		MF=(E,WKQCDS)
	L	R7,SLURQCDO	OFFSET TO FIRST ACS RECORD
	LA	R11,SLURRPLY(R7)	POINTER TO FIRST ACS RECORD
*	USING SLUVADAT,R11		MAP ACS RECORD FORMAT
*	... PROCESS ACS RECORDS ...
*	LA	R9,WKDRVBUF	POINTER TO DRIVE RESPONSE AREA
	SLSUREQ QCDS,		READ DRIVE RECORD AREA
		REQUEST=READ,
		TYPE=DRV,
		BUFFER=(R9),
		BUFLEN=QCDSBLEN,
		TOKEN=WKTOK,
		UCALADR=WKUCAL,
		MF=(E,WKQCDS)
	L	R7,SLURQCDO	OFFSET TO FIRST DRIVE RECORD
	LA	R10,SLURRPLY(R7)	POINTER TO FIRST DRIVE RECORD
	USING SLUVDDAT,R10		MAP DRIVE RECORD FORMAT
*
*	... PROCESS DRIVE RECORDS ...

Figure 34. Sample 2 - Reading ACS and DRV Together (2 of 4)

642VM/HSC 6.0 System Programmer’s Guide

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