Filter
Top Products
642 VM/HSC 6.0 System Programmer’s Guide
1st ed., 6/30/04 - 312579601
*
* 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)