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