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-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)
Содержание Host Software Component 6.0
Страница 1: ...Host Software Component VM Implementation System Programmer s Guide Release 6 0 312579601...
Страница 4: ...iv VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 24: ...xxiv VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 30: ...xxx VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 48: ...18 VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 198: ...168 VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 376: ...346 VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 627: ...Appendix C Record Formats 597 1st ed 6 30 04 312579601 UVD994B5 CVAL Name Len Offset Value...
Страница 631: ...Appendix C Record Formats 601 1st ed 6 30 04 312579601 UVPTWSTD 03 UVPTYPE 000001 33 UVP9740 05 Name Len Offset Value...
Страница 632: ...602 VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 683: ...Appendix F Batch Application Program Interface API 653 1st ed 6 30 04 312579601...
Страница 684: ...654 VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 700: ...1st ed 6 30 04 312579601 670 VM HSC 6 0 System Programmer s Guide...
Страница 716: ...686 VM HSC 6 0 System Programmer s Guide 1st ed 6 30 04 312579601...
Страница 717: ......
Страница 718: ...Printed in U S A...