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

QCDSVTV	TITLE 'QCDS	Read current primary CDS VTV record area'
*
*
* Function: Use QCDS		to automatically allocate and Open the
*	current primary CDS. Issue SLSUREQ QCDS requests to
*	read	all the VTV records.
*

*Attributes:

*1. Problem state, user key.

*2. Non-APF authorized.

*3. AMODE 24, RMODE 24 (for below-the-line QSAM), reentrant.

*Notes:

*The caller must have read access for the current primary

*CDS.

*

**ENDPROLOGUE*****************************************************

PRINT GEN ENTRY QCDSVTV

QCDSVTV CSECT

QCDSVTV AMODE 24 Below the line for QSAM (PUT macro).

QCDSVTV RMODE 24

*

*Save the caller's registers, establish CSECT addressability

*and create the module work area:

*

STM	R14,R12,12(R13)	Save registers
LR	R12,R15	Load base register R12
USING	QCDSVTV,R12	Declare CSECT base register R12
GETMAIN R,LV=WKAREAL		Allocate module work area
ST	R13,WKSAVE-WKAREA+4(,R1) Link new save area to old one
ST	R1,8(,R13)	Link old save area to new one
LR	R13,R1	Pointer to module work area
USING	WKAREA,R13	Addressability to module work area

*

*Load module SLSUCAL:

LOAD	EP=SLSUCAL	Load	SLSUCAL	into storage
ST	R0,WKUCAL	Save	SLSUCAL	routine address

*

*Initialize the QCDS token and the SLSUREQ plist:

XC	WKTOK,WKTOK	QCDS token initially zero
LA	R0,WKQCDS	Pointer to SLSUREQ plist storage
LA	R1,QCDSMLEN	Length of SLSUREQ plist
LA	R14,QCDSMODL	Pointer to SLSUREQ plist model
LR	R15,R1	Length of SLSUREQ plist model
MVCL	R0,R14	Initialize SLSUREQ plist storage

*

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

636VM/HSC 6.0 System Programmer’s Guide

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