Paul Ip of the IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> wrote on 02/06/2007 05:29:51 AM:
> suppose I have a QSAM file (across 6 vols) like this: > ISRUAIES Data Set Information > Command ===> > > Data Set Name . . . . : TEST.TEST01 > > General Data Current Allocation > Management class . . : **None** Allocated cylinders : 19,076 > Storage class . . . : TESTBTCH Allocated extents . : 6 > Volume serial . . . : TTST14 + > Device type . . . . : 3390 > Data class . . . . . : **None** Current Utilization > Organization . . . : PS Used cylinders . . : 19,076 > Record format . . . : FB Used extents . . . : 6 > Record length . . . : 6000 > Block size . . . . : 18000 > 1st extent cylinders: 3253 > Secondary cylinders : 300 > Data set name type : SMS Compressible . : NO > > Creation date . . . : 2006/09/04 Referenced date . . : 2007/02/06 > Expiration date . . : ***None*** > > To display multiple volumes press Enter or enter Cancel to Exit. > > How can I display the value of "Allocated cylinders" (that is "19076") in > batch? I'm wondering if this information is obtained in CATALOG rather > than VTOC (if access via VTOC, have to read all VTOCs of that 6 vols). > I've tried LISTCAT but it's only vaild for VSAM, I've tried FILEAID with > VTOCDSN command but it simply scans the VTOC instead of CATALOG. > Paul, Mark Zelden has a DSINFO rexx exec that can be executed in TSO batch (ISPF). Regards, John Kalinich Computer Sciences Corop ISPSTART CMD(%DSZELDEN 'AG.LOGMOD.UNLOAD.D2.FUND1125') DSINFO for 'AG.LOGMOD.UNLOAD.D2.FUND1125' --------------------------------------------------- ZDSVOL (First or only volume) = LSR021 ZDS#VOLS (Number of volumes) = 3 ZDSVTAB (Volume table) = LSR021LSR031LSR027 ZDSSPC (Primary space units) = CYLINDER ZDS1EX (Primary space allocation) = 2000 ZDS2SPC (Secondary space units) = CYLINDER ZDS2EX (Secondary space allocation) = 1000 ZDSTOTA (Allocated space units) = 5,191 ZDSTOTU (Used space units) = 5,191 ZDSEXTA (Allocated extents) = 6 ZDSEXTU (Used extents) = 6 ZDSDSNT (Data set name type) = (null) ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
