Filter
Top Products
Appendix F. Batch Application Program Interface (API) 639
1st ed., 6/30/04 - 312579601
* Constants:
*
QCDSMODL SLSUREQ MF=L SLSUREQ plist model
QCDSMLEN EQU *-QCDSMODL Length of SLSUREQ plist model
QCDSBLEN DC F'655360' QCDS READ response area buffer length
KFLATDD DCB DDNAME=VDRECDAT,DSORG=PS,MACRF=(PM), +
LRECL=VDRECLEN, +
BLKSIZE=VDRECLEN*100,RECFM=FB
KFLATDDL EQU *-KFLATDD
*
* Module work area map:
*
WKAREA DSECT Module work area
WKSAVE DS 18F MVS register save area
WKUCAL DS A SLSUCAL routine address
WKTOK DS F QCDS request token
WKRDRC DS F QCDS READ return code
WKBUFP DS A QCDS READ response area buffer addr
WKQCDS DS XL(QCDSMLEN) SLSUREQ plist storage
WKFLATDD DS XL(KFLATDDL)
WKAREAL EQU *-WKAREA Length of module work area
*
* Mapping macros:
*
SLSREGS , Register equates
SLSUREQM , SLSUREQ mapping macro
SLUVTDAT , VTV record mapping macro
END QCDSVTV
Figure 33. Sample 1 - Automatic CDS Allocation
(4 of 4)