Program LISTICAT on the CBT tape, file 527 will report on the allocations for each file in the catalog for each volume it resides on.
On Tue, 6 Feb 2007 07:47:04 -0600, John P Kalinich <[EMAIL PROTECTED]> wrote: >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
