CBLVCAT Logo

CBLVCAT Examples

Under the following headings are a selection of practical examples of CBLVCAT Batch syntax. Please click on the headings to view.
For futher examples and help on other topics, please vist our FAQ page.




Simple Reporting

Standard Report: Catalog

A readable replacement for IDCAMS LISTCAT with VSAM or ICF catalogs.

The CBLVCAT standard report provides a condensed report in a fraction of the time. The important data component information is contained on a single line. Other catalog information is available through the customised report feature.

    CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales                           (OS) VM/CMS=VM03      11.41 MON 05 JAN 2004    PAGE   1
  o --------------------------------------------------                                --------------------------------------    -------- o

       ** VMXVFULL CTL M ***            L=003 --- 2004/01/05 09:57:41      *id *
  o                                                                                                                                      o
          listvcat ddname=CBLV01

  o                                                                                                                                      o
    USERCAT CBLV01 (3350)  TYPE      NRECS   PCNT  ---- ALLOC TRACKS ----   FRSP   LMAX  KL,RKP  CISIZE BUFSP EXCPS     TIMESTMP
    ---------------------  ----      -----   ----    TOTAL   PRIME  SEC     CI CA  ---- /BLK/IMB ------ /IXL  -----     --------
  o                                                                                                                                      o
    CBL.VSAM.CATALOG       KSDS         57   35.2       12      12      3           505  44,0      512   3072  7172  2003/02/07 16.25.38
    ----------------         IX          3    3.6        3       3      3           505 --IMB--    512  IXL=2   460
  o CBL.TEST.ABCD.CATALOG  KSDS         13   27.1        2       2      0*          512  45,10    2048   6144   365  2003/02/17 19.06.12 o
                             IX          1   12.5        1       1      0*         2041           2048          335
    CBL.TEST.ABCD.CATALOG2 KSDS         13   27.1        2       2      0*          512  45,10    2048   6144     6  2003/02/23 23.57.58
  o                          IX          1   12.5        1       1      0*         2041           2048            6                      o
    CBL.TEST.VVDS          ESDS          7    6.3        2       2      0*          400V          2048   4096   283  2003/02/17 19.05.42
    CBL.TEST.VVDS2         ESDS          7    6.3        2       2      0*          400V          2048   4096     4  2003/02/23 23.42.38
  o EG.OF.LOW.BUFSP.HIGH.IXCISIZE                                                                                                        o
                           KSDS        401   33.5      C=2     C=1    C=1   25 20   800   4,0     4096  12288*  275  2003/11/09 00.55.09
                             IX          3   75.0        1       1      1          4089          +4096+ IXL=2   145
  o FILE.CREATED.BY.XYZ3   RRDS          2   20.0        1       1      1          1200           3072   6144     4  2003/11/08 21.29.49 o
    NO.SEC.ALLOC.1         KSDS          5    3.2       10      10      0*         1017   4,0     2048   6144     9  2003/11/09 01.09.34
                             IX          1   12.5        1       1      0*         2041           2048            5
  o PRIME.SPACE.TEST.FILE  ESDS         25 ** ALL**      1       1      1           300V          1024   2048     6  2003/11/02 16.57.20 o
    SQ2051.TEMP.TEST.FILE  ESDS          1    3.8        1       1      1          2000V           512 SPANNED    4  2003/12/12 17.07.24
    STUVE.TEST.FILE        ESDS         17    7.5        1       1      1           120V           512   1024    28  2002/02/22 09.36.06
  o STUVK.TEST.FILE        KSDS(R)       5    2.1        1       1      1           100V  7,8     1024   3072    82  2002/07/19 05.49.06 o
                             IX          1    6.7        1       1      1          1017           1024           32
    SPACE.TEST.FILE        RRDS         17 **85.0**      2       1      1          1200           3072   6144    37  2002/02/22 07.49.39
  o XYZ1.KSDS.FILE         KSDS(R)       1    0.1       10      10      0*           17   5,10    1024   3584    10  2003/11/08 21.41.01 o
                             IX          1    9.1        1       1      0*         1529           1536            7
    XYZ2.ENTRY.SEQ         ESDS          7    0.7       20      20      0*         2038V          2048   4096     8  2003/11/08 21.50.58
  o XYZ4.EXAMPLE.1         ESDS       2472   76.6       16       8      8           800V          4096   8192    31  2003/11/09 00.05.15 o
    XYZ4.FILE              KSDS          1    3.2        2       2      0*         1017   5,0     2048   6144     4  2003/11/09 01.03.37
                             IX          1   12.5        1       1      0*         2041           2048            4
  o XYZ8.KSDS.FILE         KSDS(R)       6    0.1       10      10      0*           17   5,10    1024   3584     7  2003/11/09 01.33.02 o
                             IX          1    9.1        1       1      0*         1529           1536            4
    XYZ9.KSDS.FILE         KSDS(R)       6    0.1       10      10      0*           17   5,10    1024   3584     8  2003/11/09 01.17.46
  o                          IX          1    9.1        1       1      0*         1529           1536            5                      o

                                                       ---     ---     --
  o                                                    177     138     52                                                                o
                                                       ---     ---     --

  o                                                                                                                                      o

                              ------ DEV CHARS ------     DATA  SPACE  DATA      --------- TRACKS ---------
  o          VOLUME    CRA   TYPE     MIN-CA    MAX-CA    SETS  CLASS SPACES    ALLOC    USED   PCNT    FREE    MAXF    TIMESTMP         o
             ------    ---   ----     ------    ------    ----  ----- ------    -----    ----   ----    ----    ----    --------
             CBLV01     NO   3350    13.5-18K  405-540K    28     0      1        240     177   73.8      63      56 2003/02/07 16.25.32
  o                                                                                                                                      o


  o                                                                                                                                      o
             ** ** ** ** ** ** ** CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD +44 (1656) 652222 & 656466 ** ** ** ** ** ** **
                                                      ** EXPIRY DATE -- 12 JUN 2004 **
    

Notes:

In addition to displaying Catalog information, warning indications (*,+) are given when various, user controlled, threshold values are passed, thus problems are discovered before they become serious. Some of these indications are shown above and have the following meanings:-

  • EG.OF.LOW.BUFSP.HIGH.IXCISIZE - Will have a performace problem as the BUFSP is too small.
  • EG.OF.LOW.BUFSP.HIGH.IXCISIZE - Has an excessively large Index CISIZE which adds to data transfer time.
  • SPACE.TEST.FILE - File is nearly full.
  • NO.SEC.ALLOC.1 - Has no secondary allocation defined. This is highlighted because the file cannot be expanded.


Standard Report: VTOC

The VTOC standard report is used in place of IEHLIST/LVTOC, providing a readable and condensed report. The important VTOC information is contained on a single line. Other VTOC information is available through the customised report feature.

    CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales                           (OS) VM/CMS=VM03      16.11 MON 23 JUN 2003    PAGE   1
  o --------------------------------------------------                                --------------------------------------    -------- o

       ** VMXTFULL CTL M ***        L=101   2003/06/23 16:11:51      *id *
  o      listvtoc vol=CBLT93                                                                                                             o
                  freetab

  o                                                                                                                                      o
    VTOC OF CBLT03                  CISIZE   START  ALLOC   USED  TYPE   EXPIRES BLKSIZE LRECL  RECFM    CREATED   INFO
    --------------                  ------   -----  -----   ----  ----   ------- ------- -----  -----    -------   ----
  o                                                                                                                                      o
    VTOC                                    557256    286     13  FBA                 96    96                     OWNED BY VSAM CATALOG

  o TEST.SCRN.LIBRARY.4                512  155044   1244               PERMANENT                      2003/03/23  NOT LAST VOL          o
    TEST.SOURCE.LIBRARY.4              512  156288  36000               PERMANENT                      2003/03/23  NOT LAST VOL
    Z9999994.VSAMDSPC.T9A1BDD6.T8976140
  o                                    512  331824    744         VSAM  PERMANENT                                                        o
    Z9999992.VSAMDSPC.T9A1BDD9.T8014540
                                       512  332568 224688         VSAM  PERMANENT
  o MASTER SORT TABLE                 4608  661640    160               PERMANENT                      2002/11/26                        o
    WORK MASTER                       8192  661800   2304               PERMANENT                      2003/01/15
    ACCOUNTS-DATA                     2560  664104   4000                 *EXPD*                       2002/03/20  FILE SERIAL CBLT13
  o V.TSTDATA                         4096  669704   4672              2003/09/13                      2003/03/21                        o
    B.TSTDATA                         4096  674376   5760              2003/09/13                      2003/03/21
    RRR.SORTS                         2560  680136   3200               PERMANENT                      2003/03/04
  o PRODN.HIST.FILE                  10240  697128  15624               PERMANENT                      2003/03/24  ***INVALID EXTENT***  o

                                     ------------------------------------------------------------------
  o                                                                                                                                      o
    FREE SPACE ON CBLT03                         2 155042                                                          OLDEST     2002/03/20
                                            192288 139536                                                          LATEST     2003/03/24
  o                                         557542 104098                                                          VTOC RECS LIVE.....12 o
                                            664104   4000  EXPD                                                              EXPD......1
                                            668104   1600                                                                    FREE....271
  o                                         683336  13792                                                                   TOTAL....284 o
    TOTAL FREE BLOCKS                              418068 OUT OF 712512(  41%    USED)

  o          ** ** ** ** ** ** ** CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD +44 (1656) 652222 & 656466 ** ** ** ** ** ** **          o
                                                      ** EXPIRY DATE -- 12 JUN 2004 **
    

Notes:

  • This example shows how FREESPACE can be reported as a table at the end of the report, via the run time option FREETAB. It is possible to make this the default option by modifying the supplied program CBLNAME.

  • Files shown as PERMANENT have an expiry date of 2099/366 (or 2099/365 if not defined as a retention period) - See RRR.SORTS for example.

  • Files with an expiry date less than or equal to today's date show as EXPIRED. - See ACCOUNTS-DATA.

  • The eye-catcher ***INVALID EXTENT*** on the file PRODN.HIST.FILE indicates that the extent is not totally within the disk extent limits held in the Format 4 label in the VTOC.

  • For the file ACCOUNTS-DATA the file serial number CBLT13 is displayed because it is different from the disk volume serial number. (Possibly caused by changing the VOLID after creation of the file).

  • NOT LAST VOL indicates that the file has more extents on another volume, or it has not been closed as a sequential file when created.

  • OWNED BY VSAM CATALOG shows that this volume is a prime or candidate volume of a VSAM catalog and thus not available for other VSAM catalogs.

VSE Standard Label Report

A concise and readable replacement for the LSERV label information area report. The LSERV equivalent of the listing shown below extended to 1174 lines, whereas LISTLABL consists of only 111 lines in total.

    CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales                                                   16.11 MON 23 JUN 2003  PAGE   1
  o --------------------------------------------------                                                   ---------------------  -------- o


  o       LISTLABL                 ***                                                                                                   o


  o PARTN FNAME    STD LABEL DSN                SYSNO   VOLUME CAT/TYP  DISP   EXPIRES BUFNI BUFND START/PRECS ALLOC/SRECS RECSZ INFO    o
    ----- -----    -------------                -----   ------ -------  ----   ------- ----- ----- ----------- ----------- ----- ----
    BG(T) CBLVSAM  CBL.VSAM.LABEL.BG            SYS001  SYSWK1 (V)      N,T,K       99                    2221        3000
  o BG(T) CBLTEMP  CBL.TEMP.LABEL.BG            SYS001  SYSWK1     (S)        2010/022                    5510        7851               o
    BG    CBLMULT  CBL.MULT.EXT.FILE.BG.VERY.LONG.DSN
                                                SYS001  SYSWK1     (S)               7                   32767       32767       EXT=000
  o                                             SYS002  SYSWK2                                           32768       32768       EXT=001 o
                                                SYS003  SYSWK3                                           65535       77566       EXT=002

  o                                                                                                                                      o
    PARTN FNAME    STD LABEL DSN                SYSNO   VOLUME CAT/TYP  DISP   EXPIRES BUFNI BUFND START/PRECS ALLOC/SRECS RECSZ INFO
    ----- -----    -------------                -----   ------ -------  ----   ------- ----- ----- ----------- ----------- ----- ----
  o F2(T) IJSYS01  %DOS.WORKFILE.SYS001.RECOVER                VSESPUC  N,K                                 30          50  4096         o
    F2(T) IJSYS02  %DOS.WORKFILE.SYS002.RECOVER                VSESPUC  N,K                                 30          50  4096

  o                                                                                                                                      o
    PARTN FNAME    STD LABEL DSN                SYSNO   VOLUME CAT/TYP  DISP   EXPIRES BUFNI BUFND START/PRECS ALLOC/SRECS RECSZ INFO
    ----- -----    -------------                -----   ------ -------  ----   ------- ----- ----- ----------- ----------- ----- ----
  o CL=D  LCLASSD  CBL.CLASS.D.LABEL            SYS001  SYSWK1     (S)               7                                                   o
    CL=S  LCLASSS  CBL.CLASS.S.LABEL            SYS001  SYSWK1     (S)               7
    CL=X  LCLASSX  CBL.CLASS.X.LABEL            SYS001  SYSWK1     (S)               7
  o                                                                                                                                      o

    PARTN FNAME    STD LABEL DSN                SYSNO   VOLUME CAT/TYP  DISP   EXPIRES BUFNI BUFND START/PRECS ALLOC/SRECS RECSZ INFO
  o ----- -----    -------------                -----   ------ -------  ----   ------- ----- ----- ----------- ----------- ----- ----    o
    STD   IJSYSRS  VSE.SYSRES.LIBRARY           SYSRES  DOSRES     (S)        2099/365                       2       59146
    STD   IJSYSR2  VSE.SYSRES.LIBRARY           SYSCAT  DOSRES     (S)        2099/365                       2       59146
  o STD   IJSYSR1  SYS.NEW.RES                          SYSWK1     (S)        2099/365                       2       59146               o
    STD   IJQFILE  VSE.POWER.QUEUE.FILE         SYS001  DOSRES   (DA)         2099/365                   59520         372
    STD   DFHJ01A  CICS.SYSTEM.LOG.A            SYS019  DOSRES     (S)                                  297538        3038
  o STD   DFHJ01B  CICS.SYSTEM.LOG.B            SYS019  DOSRES     (S)                                  300576        3038               o
    STD   DFHJ02A  CICS.USER.JOURNAL.A          SYS019  DOSRES     (S)                                  303614        3038
    STD   DFHJ02B  CICS.USER.JOURNAL.B          SYS019  DOSRES     (S)                                  306652        3038
  o STD   IJSYSHF  VSE.SYSTEM.HISTORY.FILE      SYSCAT  DOSRES     (S)        2099/365                  309690        5022               o
    STD   SYSDUMP  VSE.DUMP.LIBRARY                     SYSWK1     (S)        2099/365                  195858       37014
    STD   DTSFILE  ICCF.LIBRARY                 SYS010  SYSWK1   (DA)         2099/365                  305970       70060
  o STD   IJDFILE  VSE.POWER.DATA.FILE          SYS002  SYSWK1   (DA)         2099/365                  392956       72044               o
    STD   IJAFILE  VSE.POWER.ACCOUNT.FILE       SYS000  SYSWK1   (DA)         2099/365                  465000        2108
    STD   VSEJMGR  VSESP.JOB.MANAGER.FILE       SYSREC  SYSWK1     (S)        2099/365                  467108         186
  o STD   IJSYSCN  VSE.HARDCOPY.FILE            SYSREC  SYSWK1     (S)        2099/365                  467294        5022               o
    STD   IJSYSRC  VSE.RECORDER.FILE            SYSREC  SYSWK1     (S)        2099/365                  472316        1054
    STD   BLNDMF   INFO.ANALYSIS.DUMP.MGNT.FILE SYS016  SYSWK1     (S)                                  478392         248
  o STD   BLNXTRN  INFO.ANALYSIS.EXT.RTNS.FILE  SYS017  SYSWK1     (S)        2099/365                  478640         124               o
    STD   TRFILE   VTAM.TRACE.FILE              SYS001  SYSWK1     (S)        2099/365                  478764         496
    STD   NCPLOAD  CU37XX.LOAD.FILE             SYS005  SYSWK1     (S)        2099/365                  479260        3038
  o STD   MSGUSR   CICS.MSGUSR                  SYS018  SYSWK1     (S)                                  482298         434               o
    STD   IJSYSCT  VSAM.MASTER.CATALOG                         (V)            2099/365
    STD   IJSYSLN  %DOS.WORKFILE.SYSLNK                        VSESPUC                                     400         600   322
  o STD   IESCNTL  VSE.CONTROL.FILE                            VSESPUC               7                                                   o
    STD   IESTRFL  VSE.TEXT.REPSTORY.FILE                      VSESPUC               7
    STD   IESTRWF  VSE.TEXT.REPSTORY.WORKFILE                  VSESPUC               7
  o STD   IESMSGS  VSE.MESSAGES.ONLINE                         VSESPUC               7                                                   o
    STD   IESPRB   VSE.ONLINE.PROB.DET.FILE                    VSESPUC               7
    STD   IESROUT  VSE.MESSAGE.ROUTING.FILE                    VSESPUC               7
  o STD   DFHSTM   CICS.AUTO.STATS.A                           VSESPUC  N,K                                                              o
    STD   DFHSTN   CICS.AUTO.STATS.B                           VSESPUC  N,K
    STD   DFHNTRA  CICS.TD.INTRA                               VSESPUC
  o STD   DFHTEMP  DFHTEMP                                     VSESPUC                                                                   o
    

Notes:

The order of the report is:

  1. Partition standard labels (temporary and permanent).
  2. Class (Dynamic partition) standard labels.
  3. System standard labels.

Simple Customised Report

Customising the report can be very useful, for example:

  1. Reporting only the information you require.
  2. Reporting information not contained in the standard report.

The example below is for an ICF catalog, but it should be noted that the REPORT operation can also be used on VSAM catalogs and VTOCs.

If for instance you want to know which files contain the most records then searching through the full report can be tedious. Obtaining only the information you require is Quick and Easy with the Customised Report facility.

   ___________________________________________________________________________________
  |                                                                                  /
  |   CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales    2003/09/26  PAGE   1     \
  | o --------------------------------------------------    ----------  --------     /
  |                                                                                  \
  |         REPORT   VCAT               DSN   SORTD NRECS  TYPE                      /
  | o                                                                                \
  |         LISTCAT  REF=WXYZ.NRECS1   NOINDEX                                       /
  |                                                                                  \
  | o                                                                                /
  |   ICF CAT CBLI94 (3380)                            NRECS  TYPE                   \
  |   ---------------------                            -----  ----                   /
  | o                                                                                \
  |   LOTS.NRECS1                                      62828  KSDS                   /
  |   ABCD.NRECS1                                      61430  KSDS                   \
  | o WXYZ.NRECS1                                      57809  KSDS                   /
  |   LESS.NRECS1                                      57784  KSDS                   \
  |   ABCD.123.LESS.NRECS                               7500  RRDS                   /
  | o SMALLER.NRECS.123                                 2250  RRDS                   \
  |   LAST.SHOWN.NRECS.12                               1323  KSDS                   /
  |/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\
    

Notes:

  • The REPORT command is used to define the format of the report, in this example the three fields requested are the Dataset name (DSN), the number of records for that file (NRECS) and the file type (TYPE).

  • The positional SORTD parameter invokes a descending sort of output based on the keywords that follow it, in this case NRECS and TYPE, giving a sort on the number of records and type.

  • The REF=WXYZ.NRECS1 parameter is used to identify the required catalog, instead of supplying a DD card for the catalog itself and using DDNAME. The DSN supplied may be the catalog dataset name, an alias or the name of any file contained within the catalog. Thus you need only know the name of one file within the catalog, CBLVCAT will do the rest.

  • The NOINDEX parameter causes the index lines to be suppressed for KSDS and AIX files.

  • The user can select from 59 Catalog and 15 VTOC items to build reports of varying complexity. See the Advanced Customised Reporting example below.

Selective Reporting

So far, LISTVCAT and LISTVTOC reports have been restricted to a single catalog or VTOC, but often the files you require are spread over more than one catalog or VTOC.

The example below is merging 2 VSAM catalogs, but it should be noted that the MERGE and SUBSET parameters can also be used on ICF catalogs and VTOCs.

Creating a report, on a subset of selected files, across multiple catalogs is easy.

   ___________________________________________________________________________________
  |                                                                                  /
  |   CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales             2003/09/26 10:02\
  | o --------------------------------------------------             ----------------/
  |                                                                                  \
  |        REPORT VCAT  DSN 30 SORTD  NRECS 14 CATALOG                               /
  | o                                                                                \
  |        LISTVCAT DD=CBLV03 MERGE         * Combine 2 reports                      /
  |              SUBSET                     * Select if : (opt parameter)            \
  | o               IGN=/CICS               *           'CICS' not in DSN            /
  |                 KEY=TEST                *           DSN starts 'TEST'            \
  |                 NRECS=1                 *           File is not empty            /
  | o               TYPE=EK                 *           ESDS or KSDS                 \
  |                 NOVOL NOASSOC NOINDEX   *           Limit report                 /
  |                                                                                  \
  | o       LISTVCAT DD=CBLV04              * Same parameters as above               /
  |             IGN=/CICS  KEY=TEST TYPE=EK NRECS=1  NOVOL NOASSOC NOINDEX           \
  |                                                                                  /
  | o                                                                                \
  |                                                                                  /
  |   DATASET NAME                      NRECS     CATALOG                            \
  | o ------------                      -----     -------                            /
  |                                                                                  \
  |   TEST3.TRANS.HISTORY.QUARTER     2557934     VSAM.R1.TEST.VOL04                 /
  | o TEST2W.WORK.HISTORY.WEEKLY        43555     VSAM.R1.TEST.VOL04                 \
  |   TEST2W.WORK.HISTORY.WEEKLY.SOR    30067     VSAM.R1.TEST.VOL04                 /
  |   TESTFLE                            1519     FBA.USER.CATALOG.A                 \
  | o TESTENT                              80     FBA.USER.CATALOG.A                 /
  |   TEST2.TRANS.HISTORY.WEEKLY            1     VSAM.R1.TEST.VOL04                 \
  |                                                                                  /
  | o                                                                                \
  |                                                                                  /
  |                                                                                  \
  | o                                                                                /
  |    ** ** ** CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD 0656-652222, 0656-65646\
  |                                ** EXPIRY DATE -- 12 JUN 2004 **                  /
  |__________________________________________________________________________________\
    

Notes:

  • The MERGE parameter is used to combine multiple reports into one.

  • By supplying REPORT, MERGE and SUBSET the user is able to display exactly the information required.

  • The SUBSET parameter is optional because all its associated sub-parameters are unique, although you may prefer to include it to remind you of their function. To be selected, a file must satisfy all the subset parameters that are supplied. There is one exception to this. Multiple KEY and/or IGN parameters are supported. You can regard the KEY and IGN parameters as forming a combined name filter.

  • The above LISTVCAT example selects all non-empty (NRECS=1) ESDS and KSDS(TYPE=EK) files, which have filenames starting with "TEST", but not containing "CICS". The output from the two catalogs (CBLV03 and CBLV04) is merged into one convenient report, sorted in descending order by number of records (SORTD NRECS).





Catalog Management

Monitoring

Regular monitoring of VSAM or ICF files is essential for the smooth running of your VSAM jobs.

Selecting only the files in critical need of tuning is easy with the subset SEV=3.

    CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales                           (OS) VM/CMS=VM03      13.57 FRI 26 SEP 2003    PAGE   1
  o --------------------------------------------------                                --------------------------------------    -------- o

       ** VMXVMON1 CTL M ***        L=002  2003/09/26 13:34:59      *id *
  o      listcat  dd=CBL111                                                                                                              o
                  sev=3
                  linespace=4
  o                                                                                                                                      o

    USERCAT CBL111 (3380)  TYPE      NRECS   PCNT  ---- ALLOC TRACKS ----   FRSP   LMAX  KL,RKP  CISIZE BUFSP EXCPS     TIMESTMP
  o ---------------------  ----      -----   ----    TOTAL   PRIME  SEC     CI CA  ---- /BLK/IMB ------ /IXL  -----     --------         o


  o                                                                                                                                      o

    FILE1.IN.NEED.OF.TUNING
  o                        KSDS        611   32.4      C=7     C=7    C=2   15* 7  4112V 10,0     4608* 12800*  175K 2003/06/08 18.20.17 o
                                                   VOL1=CBL111
                                         CANDIDATE VOL2=CBL475
  o                          IX          4   36.4        1       1      1          3577           3584  IXL=2   126K                     o
                                                   VOL1=CBL111
                                         CANDIDATE VOL2=CBL475
  o                                                                                                                                      o
       *** SEV 3-03 ***  ACTUAL FRSP CI = 0 PC 
        ** SEV 2-04 **   BUFSP TOO SMALL FOR EFFICIENCY
  o     ** SEV 2-25 **   INEFFICIENT DATA CISIZE                                                                                         o
        ** SEV 2-31 **   AVLRECL: DEFINED=272     ESTIMATED=1954
         * SEV 1-15 *    4 CYLS CAN BE RECOVERED WHEN TUNED
  o                                                                                                                                      o


  o                                                                                                                                      o
    FILE2.IN.NEED.OF.TUNING
                           KSDS(R)    4625   57.4      C=8     C=8    C=1   20 20  4096V 21,0     4608  11264* 3470  2003/06/08 18.15.58
  o                                                VOL1=CBL111                                                                           o
                                         CANDIDATE VOL2=CBL475                                                        ** 001 CI SPLITS**
                             IX          8 **88.9**      1       1      1          2041 IMB+REP   2048  IXL=2  10.5K
  o                                                VOL1=CBL111                                                                           o
                                         CANDIDATE VOL2=CBL475

  o    *** SEV 3-12 ***  INDEX EXCPS DWARF DATA                                                                                          o
        ** SEV 2-04 **   BUFSP TOO SMALL FOR EFFICIENCY
        ** SEV 2-31 **   AVLRECL: DEFINED=1000    ESTIMATED=525
  o      * SEV 1-07 *    CI SPLITS EXIST                                                                                                 o


  o                                                    ---     ---     --                                                                o
                                                       227     227     47
                                                       ---     ---     --
  o      *** WARN  001 *** 12 = RETURN CODE FROM CBLVCAT                                                                                 o


  o          ** ** ** ** ** ** ** CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD +44 (1656) 652222 & 656466 ** ** ** ** ** ** **          o
                                                      ** EXPIRY DATE -- 12 JUN 2004 **
    

Notes:

Severity Messages are reported at three SEV states which are controllable through the SEV parameter. They can be excluded from the report with the NOPSEV parameter.

  • SEV 3 messages are serious and require immediate attention.
  • SEV 2 messages indicate changes to be made when the file is next loaded.
  • SEV 1 messages are minor, but require investigation.

SEV 3-03 for FILE.1.IN.NEED.OF.TUNING indicates that the file has been defined with a non-zero FRSP CI value, but the control interval is not large enough to reserve any usable free space.

SEV 3-12 for FILE.2.IN.NEED.OF.TUNING indicates that the number of index EXCPS is at least twice the number of data EXCPS.

Fixing either of the above is easy using CBLVCAT's tuning recommendations. See the Tuning example which follows.

Tuning

Continuing from the previous example, when problem files have been identified, acting quickly to redefine them will maximise performance.

CBLVCAT will produce all the necessary advice for redefining problem files. See the later example if you also wish to have the IDCAMS DEFINE deck generated at the same time.

The output, for the purpose of this example, is deliberately restricted to 1 file only via the KEY=FILE.1.IN.NEED.OF.TUNING parameter.

    CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales                           (OS) VM/CMS=VM03      14.17 FRI 26 SEP 2003    PAGE   1
  o --------------------------------------------------                                --------------------------------------    -------- o

       ** VMXVTUN1 CTL M ***        L=002   2003/09/26 14:14:30      *id *
  o      listcat  dd=CBL111                                                                                                              o
                key=FILE1.IN.NEED.OF.TUNING
                tune
  o                                                                                                                                      o

    USERCAT CBL111 (3380)  TYPE      NRECS   PCNT  ---- ALLOC TRACKS ----   FRSP   LMAX  KL,RKP  CISIZE BUFSP EXCPS     TIMESTMP
  o ---------------------  ----      -----   ----    TOTAL   PRIME  SEC     CI CA  ---- /BLK/IMB ------ /IXL  -----     --------         o


  o FILE1.IN.NEED.OF.TUNING                                                                                                              o
                           KSDS        611   32.4      C=7     C=7    C=2   15* 7  4112V 10,0     4608* 12800*  175K 2003/06/08 18.20.17
                                                   VOL1=CBL111
  o                                      CANDIDATE VOL2=CBL475                                                                           o
                             IX          4   36.4        1       1      1          3577           3584  IXL=2   126K
                                                   VOL1=CBL111
  o                                      CANDIDATE VOL2=CBL475                                                                           o

       *** SEV 3-03 ***  ACTUAL FRSP CI = 0 PC
  o     ** SEV 2-04 **   BUFSP TOO SMALL FOR EFFICIENCY                                                                                  o
        ** SEV 2-25 **   INEFFICIENT DATA CISIZE
        ** SEV 2-31 **   AVLRECL: DEFINED=272     ESTIMATED=1954
  o      * SEV 1-15 *    4 CYLS CAN BE RECOVERED WHEN TUNED                                                                              o

         *** WARN  015 *** LARGE AVLRECL CHANGE
  o                                                                                                                                      o
         *** WARN  016 *** LARGE ALLOC CHANGE

  o                                                                                                                                      o
         CBL TUNED                                                                                                
         ---------                                                                                                
  o      DATA  (                           -                                                                                             o
             CISZ         (14336)          - * NEW PHYREC SIZE=14336, CURRENT=4608                                
             CYLINDERS    (3,1)            - * OPTIMISED FOR DEVICE GEOMETRY                                      
  o          RECORDSIZE   (1954,4112)      - * DEFINED AVLRECL=272                                                                       o
             FREESPACE    (18,6)           - * GIVES FREE REC=1/7, FREE CI=3/45                                   
             BUFFERSPACE  (32768)          ) * 32K MINIMUM FOR DIRECT PROCESSING                                  
  o      INDEX (                           -                                                                                             o
             CISZ         (1024)           ) *                                                                    
                                                                                                                  
  o                                          * USING AVLRECL=1954   --- FILE CAPACITIES (NRECS) ---                                      o
                                             *             ------ TUNED ------           --- ORIG (ESTD) ---      
                                             *             PCNT   PRIME    SEC           PCNT   PRIME    SEC      
  o                                          *             ----   -----    ---           ----   -----    ---                             o
                                             *  INIT LOAD   73      756    252            36      875    250      
                                             *       FREE   18      189     63            42     1015    290      
  o                                          *              --      ---    ---            --     ----    ---                             o
                                             *              91      945    315            78     1890    540      
                                             *              --      ---    ---            --     ----    ---      
  o                                                                                                                                      o
                                OPTIONAL JCL OVERRIDE FOR SEQ I/O                                                 
                                ---------------------------------                                                 
  o                             BUFND=5      * (70K)  FAST                                                                               o
                                BUFND=8      * (112K) URGENT                                                      
                                BUFND=25     * (350K) **TURBO**  (BUT WILL IMPACT OTHER WORK)                     
  o                                                                                                                                      o
                                                                                                                  
         *** WARN  001 *** 12 = RETURN CODE FROM CBLVCAT
  o                                                                                                                                      o

             ** ** ** ** ** ** ** CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD +44 (1656) 652222 & 656466 ** ** ** ** ** ** **
  o                                                   ** EXPIRY DATE -- 12 JUN 2004 **                                                   o
    

Notes:

The TUNING RECOMMENDATIONS shown indicate the following:-

  • Data Control Interval Size: Increase from 4.5K to 14K bytes.
  • Space Allocation: Modify (7 2) to (3 1) cylinders.
  • Average Record Size: Increase from 272 to 1954 bytes.
  • Freespace: Increase from (15 7) to (18 6) CI & CA percentages.
  • Buffer Space: Changes from 12K to 32K bytes.
  • Index Control Interval Size: Reduce from 3.5K to 1K bytes.

The FILE CAPACITY details illustrate the benefits that will be realised by redefining the file with the CBL TUNED recommendations. These can be excluded from the report with the NOPCAP parameter.

The JCL OVERRIDES are shown for improved sequential processing. These can be excluded from the report with the NOPJCL parameter.

A tuned IDCAMS DEFINE deck could also be produced. See Modelling For Migration example.

Modelling for Migration

Often, planning for new operating systems and/or new disks is necessary long before the appropriate documentaion is available, this is made easy with CBLVCAT's modelling facility.

The output, for the purpose of this example, is deliberately restricted to 1 file only via the KEY=FILE.TO.MODEL parameter.

    CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales                           (OS) VM/CMS=VM03      14.21 FRI 26 SEP 2003    PAGE   1
  o --------------------------------------------------                                --------------------------------------    -------- o

       ** VMXVTUN2 CTL M ***        L=002   2003/09/26 14:13:00      *id *
  o      listcat  dd=CBL111                                                                                                              o
                key=FILE.TO.MODEL
                tune=MVS  dev=3390
  o                                                                                                                                      o

    USERCAT CBL111 (3380)  TYPE      NRECS   PCNT  ---- ALLOC TRACKS ----   FRSP   LMAX  KL,RKP  CISIZE BUFSP EXCPS     TIMESTMP
  o ---------------------  ----      -----   ----    TOTAL   PRIME  SEC     CI CA  ---- /BLK/IMB ------ /IXL  -----     --------         o


  o FILE.TO.MODEL          KSDS     448275 **93.7**  C=140   C=120   C=10    0  1   617V 26,0    14336  32768  58.3K 2003/06/09 21.19.23 o
                                                   VOL1=CBL111
                                         CANDIDATE VOL2=CIS475                                                        ** 318 CI SPLITS**
  o                                                                                                                   ** 054 CA SPLITS** o
                             IX        138 **89.1**      5       4      1          1017           1024  IXL=3  26.1K
                                                   VOL1=CBL111
  o                                      CANDIDATE VOL2=CIS475                                                                           o

        ** SEV 2-05 **   CA SPLITS EXIST
  o     ** SEV 2-08 **   CI SPLITS TOO HIGH (2 PC OF INSERTS)                                                                            o
        ** SEV 2-15 **   34 CYLS CAN BE RECOVERED WHEN TUNED
        ** SEV 2-25 **   INEFFICIENT DATA CISIZE
  o     ** SEV 2-28 **   TUNING FOR DEVICE CHANGE REQUEST                                                                                o
        ** SEV 2-31 **   AVLRECL: DEFINED=617     ESTIMATED=188
         * SEV 1-09 *    FILE GETTING/IS FULL
  o      * SEV 1-18 *    SEC EXTENTS EXIST                                                                                               o

         *** WARN  015 *** LARGE AVLRECL CHANGE
  o                                                                                                                                      o

         CBL TUNED FOR DEV 3390                                                                                  
  o      ----------------------                                                                                                          o
         DATA  (                           -                                                                     
             CISZ         (18432)          - * NEW PHYREC SIZE=18432, CURRENT=7168  (DEV CHANGE)                 
  o          CYLINDERS    (106,14)         - * OPTIMISED FOR DEVICE GEOMETRY                                                             o
             RECORDSIZE   (188,617)        - * DEFINED AVLRECL=617                                               
             BUFFERSPACE  (40960)          ) * 40K MINIMUM FOR DIRECT PROCESSING                                 
  o                                                                                                                                      o
                                             * USING AVLRECL=188    --- FILE CAPACITIES (NRECS) ---              
                                             *             ------ TUNED ------           --- ORIG (ESTD) ---     
  o                                          *             PCNT   PRIME    SEC           PCNT   PRIME    SEC                             o
                                             *             ----   -----    ---           ----   -----    ---     
                                             *  INIT LOAD  100      452K  59.8K           93      401K  33.4K    
  o                                          *       FREE    2     10.3K  1358             2     9120    760                             o
                                             *             ---      ----  -----           --      ----  -----    
                                             *             103      463K  61.1K           95      410K  34.2K    
  o                                          *             ---      ----  -----           --      ----  -----                            o
                                                                                                                 
                                OPTIONAL JCL OVERRIDE FOR SEQ I/O                                                
  o                             ---------------------------------                                                                        o
                                BUFND=5      * (90K)  FAST                                                       
                                BUFND=8      * (144K) URGENT                                                     
  o                             BUFND=23     * (414K) **TURBO**  (BUT WILL IMPACT OTHER WORK)                                            o


  o      *** WARN  001 *** 10 = RETURN CODE FROM CBLVCAT                                                                                 o


  o          ** ** ** ** ** ** ** CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD +44 (1656) 652222 & 656466 ** ** ** ** ** ** **          o
                                                      ** EXPIRY DATE -- 12 JUN 2004 **
    

Notes:

  • Tuning is requested for MVS via the TUNE=MVS parameter, the change from 3380 to 3390 disks is indicated via the DEV parameter.

  • The user is able to plan the new operating system and DASD requirements even before a decision to convert is made.

  • The Data CISIZE increases from 14336 to a more efficient 18432, which causes a change in physical record size from 7k to 18k.

  • In addition to tuning for increased track capacity (3390=55k, 3380=46k) the file is tuned to improve performance. The new Allocation of CYL(106 14), ensures that the primary allocation is large enough to accommodate all of the records currently in the file.

  • Tuning for a 3380 would have given the larger value of CYL(127 16). Thus tuning for the new disk device ensures the user does not waste disk space when changing DASD.

IDCAMS DEFINE Output

Continuing from the previous example, your IDCAMS DEFINE decks and job control can be ready and waiting before the new system arrives, simply by adding the DEFINE parameter.

Equally simple is the addition of a 2nd extra parameter (to set CBLVCSW6) which will generate Backup and Restore JCL, using SELCOPY (CBL's main product), around the IDCAMS define deck.

The CBLVCAT output file below shows MVS job control. Equivalent VSE job control is produced when TUNE=VSE is used.

  //CBLDEF01 JOB
  //JOBCAT  DD DSN=CBL111.USER.PROD.CATALOG,DISP=SHR
  //STEP2 EXEC PGM=IDCAMS
  //SYSPRINT DD SYSOUT=*
  //SYSIN DD *
       *** WARN  015 *** LARGE AVLRECL CHANGE
       *** WARN  019 *** SKELETON DECK ONLY - ATTENTION REQUIRED

   /* DEL       FILE.TO.MODEL                                    -    */
   /*  CLUSTER                                                   -    */
   /*  PURGE                                                     -    */
   /*  CATALOG (CBL111.USER.PROD.CATALOG)                             */


   DEF CLUSTER  (NAME (FILE.TO.MODEL)                               /**/ -
           INDEXED                                            /* KSDS */ -
           BUFFERSPACE  (   40960)                                       -
   /*      BUFFERSPACE  (   32768)                                    */ -
           RECORDSIZE   (  188,  617)                                    -
   /*      RECORDSIZE   (  617,  617)                                 */ -
           SPEED                                                         -
           TO           (  99366)                                        -
           NOWRITECHECK                                                  -
           NONSPANNED                                                    -
           FREESPACE    (  0,  1)                                        -
           KEYS         ( 26,   0)                                       -
           NOIMBED                                                       -
           NOREPLICATE                                                   -
           SHAREOPTIONS (2,3)                                            -
           NOERASE                                                       -
           UNORDERED                                                     -
           NOREUSE                                                       -
           USECLASS     (0 P)                                            -
           SUBALLOCATION                                                 -
           NODESTAGEWAIT                                                 -
           STAGE                                                         -
                )                                                        -
       DATA     (NAME (FILE.TO.MODEL.DATA)                               -
           VOLUMES      ('CBL111'                                        -
                         'CBL475'                                        -
                        )                                                -
           CISZ         (18432)                                          -
   /*      CISZ         (14336)                                       */ -
           CYLINDERS    (    106,    14)                                 -
   /*      CYLINDERS    (    120,    10)                              */ -
                )                                                        -
       INDEX    (NAME (FILE.TO.MODEL.INDEX)                              -
           VOLUMES      ('CBL111'                                        -
                         'CBL475'                                        -
                        )                                                -
           CISZ         ( 1024)                                          -
                )                                                        -
       CATALOG (CBL111.USER.PROD.CATALOG)


  /*
    

Notes:

  • This SYSPUNCH/IJSYSPH output is obtained by the addition of the parameter DEFINE to the control cards for the previous example and contains the IDCAMS DEFINE deck necessary to implement the Modelling recommendations made.

  • The original values are shown in comment form, allowing the user to easily identify any changes that have been made.

  • The DEFINE parameter, used without the TUNEparameter, allows the user to retrieve up to date definitions directly from the catalog, eliminating the possibilty of re-introducing back level attributes.

  • For brevity, the Alternate Index has been excluded from this example (by coding TYPE=K to restrict output to KSDS).





Advanced Reporting

Free space in all VTOCs

Searching for the 'best-fit' extent to locate a dataset or data space can be a time consuming business, but one single report is all you need with CBLVCAT.

   ___________________________________________________________________________________
  |                                                                                  /
  |   CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales    2003/09/26  PAGE   1     \
  | o --------------------------------------------------    ----------  --------     /
  |                                                                                  \
  |        REPORT VTOC    VOLUME  SORTD ALLOC  START  * Sort on ALLOC                /
  | o                                                                                \
  |        LISTVTOC DEV=ALL MERGE            * Freespace over all volume             /
  |                 SUMMARY FREETAB                                                  \
  | o               STOPAFT 100              * 100 largest freespace are             /
  |                                                                                  \
  |                                                                                  /
  | o VOLUME   ALLOC    START                                                        \
  |   ------   -----    -----                                                        /
  |                                                                                  \
  | o CBLT03  154786        2                                                        /
  |   CBLT03  139536   192288                                                        \
  |   CBLT01  118064   213760                                                        /
  | o CBLT03  104098   557542                                                        \
  |   CBLT01   71258   563500                                                        /
  |   CBLT01   20544   691968                                                        \
  | o CBLT01   15650    47138                                                        /
  |   CBLT03   13792   683336                                                        \
  |   CBLT01   12725   634758                                                        /
  |/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\
    

Notes:

  • For MVS systems the DEV=ALL parameter will produce a VTOC report for each DASD device belonging to the esoteric group SYSALLDA.

  • For VSE systems the DEV=ALL parameter will produce a VTOC report for every disk drive that has a current programmer logical unit assignment.

  • The MERGE parameter instructs CBLVCAT to produce a single report, containing the information from all VTOCs.

  • The SORTD ALLOC parameters of the REPORT command request that the output be sorted in descending order of allocation size.

  • The SUMMARY parameter causes only freespace information to be displayed.

  • The STOPAFT parameter ensures that only the 100 largest freespace areas are included in the report.

Totals

Often, reporting on the individual files is not required. Suppressing the reporting of individual files is easy with CBLVCAT.

The example below displays the total allocation for a generic name mask, on a customised LISTVTOC report. However, it should be noted that this feature can be used on standard or customised reports, for Catalogs or VTOCs.

   __________________________________________________________________________________
  |   SPACE ALLOCATED TO TEST FILES ON CBLV03 AND CBLV04    2004/01/23  PAGE   1     \
  | o --------------------------------------------------    ----------  --------     /
  |                                                                                  \
  |        report    vcat   alloct allocp allocs cisize                              /
  | o                                                                                \
  |        listvcat  dd=cblv03   key=TEST   totals merge                             /
  |                  head='SPACE ALLOCATED TO TEST FILES ON CBLV03 AND CBLV04'       \
  | o                                                                                /
  |        listvcat  dd=cblv04   key=TEST   totals                                   \
  |                                                                                  /
  | o                                                                                \
  |                                                                                  /
  |      ALLOC    ALLOC   ALLOC     CISIZE                                           \
  | o    TOTAL    PRIME     SEC     ------                                           /
  |                                                                                  \
  |     130244    73619    2638                                                      /
  | o                                                                                \
  |   CBLVCAT IS LICENSED BY COMPUTE (BRIDGEND) LTD +44 (1656) 652222 & 656466       /
  |                       ** EXPIRY DATE -- 12 JUN 2004 **                           \
  |__________________________________________________________________________________/
    

Notes:

  • With the MERGE parameter the user is able to obtain totals across multiple catalogs without reporting on the individual VTOCs.

  • The HEAD='string' parameter enables the user to give this type of report a descriptive heading.

  • Only sensible totals are displayed i.e. ALLOCT, ALLOCP, ALLOCS, ALLOCU, SPLITCA, SPLITCI and ALLOC. The CATALOG name can also be displayed. All other specified report items are left blank, but their column headings are printed, see CISIZE above.

Advanced Customised Reporting

By selecting various fields from the wide choice available, it is possible to construct reports that concentrate on one particular area of interest.

An Advanced customised report can be an invaluable tool to the more experienced users, who prefer to apply their local knowledge to the information available from the catalog statistics.

The control cards below demonstrate some of the additional parameters available for customised reporting, which are not displayed on the standard report.

  REPORT VCAT  DSN 25  EXCPS RECSTATS 28   IXL CISIZE BUFSP 12    NSEC
  LISTCAT  DDNAME=CBLV93
           TYPE=K               * Select:  KSDS only
           KEY=A.DEMO           *          DSN's starting 'A.DEMO' only.
    


   ______________________________________________________________________________________________
  |                                                                                             /
  |   USERCAT CBLV93 (3390)    EXCPS   -- RECORD STATISTICS --     IXL  CISIZE  BUFSP      NSEC \
  | o ---------------------    -----     DEL   INS   UPD   INP     ---  ------  -----      ---- /
  |                                                                                             \
  |                                                                                             /
  | o A.DEMO.HIGH.EXCPS.INP     17.2K      1  9760        9779           2048   16000        39 \
  |                             6253                                 3    512                   /
  |                                                                                             \
  | o A.DEMO.ORDINARY.1          159       3     1     2   197K          1536    4096           /
  |                              165                                 1    512                   \
  |                                                                                             /
  | o A.DEMO.ORDINARY.2           60                   2    39           1536    4096           \
  |                               46                                 1    512                   /
  |                                                                                             \
  | o A.DEMO.ORDINARY.3         2075       9     5  1424  18.7K          1536    4096           /
  |                              649                                 1    512                   \
  |                                                                                             /
  | o A.DEMO.ORDINARY.4         2674       1  4415           1           2048   16000        11 \
  |                              939                                 2    512                   /
  |                                                                                             \
  | o A.DEMO.ORDINARY.5         1646       9     4  1047  8738           1536    4096           /
  |                              591                                 1    512                   \
  |                                                                                             /
  | o A.DEMO.MORE.IX.EXCPS      2475K     18   448   563K 1806K          3072   14336         5 \
  |                             6830K                                2   1536                   /
  |                                                                                             \
  | o A.DEMO.XYZ.1                12K     21     3  10.9K 67.8K          1536    4096           /
  |                              579                                 1    512                   \
  |                                                                                             /
  | o A.DEMO.XYZ.2               225             5     2   287           1536    4096           \
  |                              231                                 1    512                   /
  |                                                                                             \
  | o A.DEMO.XYZ.3               440       9     7    64  2028           1536    4096           /
  |                              187                                 1    512                   \
  |/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\_/
    

Notes:

  • The user can select from 59 Catalog and 15 VTOC items to build reports of salient information.
  • The maximium report width is 250 characters.
  • This report shows catalog information that relates to online response or batch processing times.
  • Running with the SUBSET SEV=3 would have selected some of these files as having potential problems. See the Monitoring example above.

Orphaned Entries

There is not always a match between the BCS and VVDS entries, as Catalogs can be removed without the appropriate entry in the VVDS being deleted. Mis-matches can also occur as a result of a failure.

If the VVDS contains entries not reflected in the BCS, then these orphaned entries should be deleleted as part of a manual housekeeping operation in order to reduce overheads. Such housekeeping, of course, should be conducted by experienced personnel only.

   ___________________________________________________________________________________
  |                                                                                  /
  |   CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales    2003/09/26  PAGE   1     \
  | o --------------------------------------------------    ----------  --------     /
  |                                                                                  \
  |        REPORT VCAT   SORT CATALOG 30  COMPONENT 30                               /
  | o                                                                                \
  |        LISTVCAT VVDS=CB9043                                                      /
  |                                                                                  \
  | o                                                                                /
  |   CATALOG                       COMPONENT                                        \
  |   -------                       ---------                                        /
  | o                                                                                \
  |                                 SYS1.VVDS.VCB9043                                /
  |   CATALOG.MASTER01              CNM.CBL1.DSIKPNL.INDEX                           \
  | o CATALOG.MASTER01              CNM.CBL1.DSILOGP.DATA                            /
  |   CATALOG.MASTER01              CNM.CBL1.DSILOGP.INDEX                           \
  |   CATALOG.MASTER01              CNM.CBL1.DSILOGS.DATA                            /
  | o CATALOG.MASTER01              CNM.CBL1.DSILOGS.INDEX                           \
  |   CATALOG.MASTER01              CNM.CBL1.DSISVRT.DATA                            /
  |   CATALOG.MASTER01              CNM.CBL1.DSISVRT.INDEX                           \
  | o CATALOG.MASTER01              CNM.CBL1.DSITRCP.DATA                            /
  |   CATALOG.MASTER01              CNM.CBL1.DSITRCP.INDEX                           \
  |   CATALOG.MASTER01              CNM.CBL1.DSITRCS.DATA                            /
  | o CATALOG.MASTER01              CNM.CBL1.DSITRCS.INDEX                           \
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED01.DATA                                /
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED01.INDEX                               \
  | o SYS1.ICFCAT.OLDCAT            NOT.NEEDED02.DATA                                /
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED03.DATA                                \
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED04.DATA                                /
  | o SYS1.ICFCAT.OLDCAT            NOT.NEEDED05.DATA                                \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.DFHNTRA.DATA                   /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.DFHTEMP.DATA                   \
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.RSD.DATA                       /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.RSD.INDEX                      \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHCSD.DATA                         /
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHCSD.INDEX                        \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHNTRA.DATA                        /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHTEMP.DATA                        \
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.RSD.DATA                            /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.RSD.INDEX                           \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.TMON.ALERTA.DATA                    /
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.TMON.ALERTB.DATA                    \
  \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    

Notes:

  • The example above illustrates the use of CBLVCAT to obtain a list of the component names and catalogs referenced by the VVDS. If any of the catalogs referenced (e.g. SYS1.ICFCAT.OLDCAT) no longer exist then orphaned entries exist in the VVDS.

  • Reporting on the VVDS helps the user to detect orphaned entries, provided he knows which catalogs have been removed. The IDCAMS command DELETE VVR can then be used to delete VVR (VSAM Volume Record) entries from the VVDS and the VTOC.

Multiple displays, Subset & Sort

There is not always a match between the BCS and VVDS entries, as Catalogs can be removed without the appropriate entry in the VVDS being deleted. Mis-matches can also occur as a result of a failure.

If the VVDS contains entries not reflected in the BCS, then these orphaned entries should be deleleted as part of a manual housekeeping operation in order to reduce overheads. Such housekeeping, of course, should be conducted by experienced personnel only.

   ___________________________________________________________________________________
  |                                                                                  /
  |   CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales    2003/09/26  PAGE   1     \
  | o --------------------------------------------------    ----------  --------     /
  |                                                                                  \
  |        REPORT VCAT   SORT CATALOG 30  COMPONENT 30                               /
  | o                                                                                \
  |        LISTVCAT VVDS=CB9043                                                      /
  |                                                                                  \
  | o                                                                                /
  |   CATALOG                       COMPONENT                                        \
  |   -------                       ---------                                        /
  | o                                                                                \
  |                                 SYS1.VVDS.VCB9043                                /
  |   CATALOG.MASTER01              CNM.CBL1.DSIKPNL.INDEX                           \
  | o CATALOG.MASTER01              CNM.CBL1.DSILOGP.DATA                            /
  |   CATALOG.MASTER01              CNM.CBL1.DSILOGP.INDEX                           \
  |   CATALOG.MASTER01              CNM.CBL1.DSILOGS.DATA                            /
  | o CATALOG.MASTER01              CNM.CBL1.DSILOGS.INDEX                           \
  |   CATALOG.MASTER01              CNM.CBL1.DSISVRT.DATA                            /
  |   CATALOG.MASTER01              CNM.CBL1.DSISVRT.INDEX                           \
  | o CATALOG.MASTER01              CNM.CBL1.DSITRCP.DATA                            /
  |   CATALOG.MASTER01              CNM.CBL1.DSITRCP.INDEX                           \
  |   CATALOG.MASTER01              CNM.CBL1.DSITRCS.DATA                            /
  | o CATALOG.MASTER01              CNM.CBL1.DSITRCS.INDEX                           \
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED01.DATA                                /
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED01.INDEX                               \
  | o SYS1.ICFCAT.OLDCAT            NOT.NEEDED02.DATA                                /
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED03.DATA                                \
  |   SYS1.ICFCAT.OLDCAT            NOT.NEEDED04.DATA                                /
  | o SYS1.ICFCAT.OLDCAT            NOT.NEEDED05.DATA                                \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.DFHNTRA.DATA                   /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.DFHTEMP.DATA                   \
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.RSD.DATA                       /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.COPY.RSD.INDEX                      \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHCSD.DATA                         /
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHCSD.INDEX                        \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHNTRA.DATA                        /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.DFHTEMP.DATA                        \
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.RSD.DATA                            /
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.RSD.INDEX                           \
  |   SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.TMON.ALERTA.DATA                    /
  | o SYS1.ICFCAT.LIVECAT           CICSPV.PRISM.TMON.ALERTB.DATA                    \
  \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    

Notes:

  • The example above illustrates the use of CBLVCAT to obtain a list of the component names and catalogs referenced by the VVDS. If any of the catalogs referenced (e.g. SYS1.ICFCAT.OLDCAT) no longer exist then orphaned entries exist in the VVDS.

  • Reporting on the VVDS helps the user to detect orphaned entries, provided they know which catalogs have been removed. The IDCAMS command DELETE VVR can then be used to delete VVR (VSAM Volume Record) entries from the VVDS and the VTOC.

Combined Multiple VTOCs & Catalogs

The final example illustrates the flexibility of CBLVCAT, by combining output from all catalogs and all VTOCs in the system, and using a subset to select only files you require.

We will produce a single report, over the whole system, on all DSN's which contain the string 'TEST' anywhere in its name. This type of report could be part of a housekeeping operation, for instance.

This example uses the REF=ALL parameter which is only available to MVS ICF users. VSAM users should specify each catalog separately.

   ___________________________________________________________________________________
  |                                                                                  /
  |   CBLVCAT REL 2.10 AT COMPUTE (Bridgend) Ltd - Wales         2003/09/26 15:03  PA\
  | o --------------------------------------------------         ----------------  --/
  |                                                                                  \
  |        REPORT VTOC       DSN 30  VOLUME 10                                       /
  | o                                                                                \
  |        REPORT VCAT  SORT DSN 30  VOLUME 10  CATALOG  * Sort by DSN.              /
  |                                                                                  \
  | o      LISTVTOC DEV=ALL    MERGE  * 1st MERGE to combine all VTOC REPORTS.       /
  |                 KEY=/TEST  MERGE  * 2nd MERGE to combine with next command.      \
  |                                                                                  /
  | o      LISTVCAT REF=ALL MERGE  KEY=/TEST                                         \
  |                                                                                  /
  |                                                                                  \
  | o DATASET NAME                  VOLUME    CATALOG                                /
  |   ------------                  ------    -------                                \
  |                                                                                  /
  | o BUZZ.TESTHARN.LINEAR          CBLI04    ICFCAT.CBLI04                          \
  |   GD.TEST.PRC0                  CBLI02    CAT.ICF.MASTCAT.CBLI02                 /
  |   GD.TEST.TBL0                  CBLI02    CAT.ICF.MASTCAT.CBLI02                 \
  | o INPUT.KKK.TEST2 F5            CBLT02                                           /
  |   MASTERFIL TEST2F5             CBLT02                                           \
  |   PAGE.VCBLI02.TEST01           CBLI02    CAT.ICF.MASTCAT.CBLI02                 /
  | o PRODN TEST C                  CBLT01                                           \
  |   PRODN TEST T                  CBLT01                                           /
  |/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\\
    

Notes:

  • For MVS systems the DEV=ALL parameter will produce a VTOC report for each DASD device belonging to the esoteric group SYSALLDA.

  • For VSE systems the DEV=ALL parameter will produce a VTOC report for every disk drive that has a current programmer logical unit assignment.

  • The REF=ALL parameter produces a report for all catalogs. Non ICF users must specify each catalog with separate LISTVCAT commands.

  • Use of the three MERGE parameters causes one single combined report to be created.

  • The user should note that if the files required are not system wide but contained in few known catalogs and VTOCS, then merging separate LISTVCAT and LISTVTOC commands is more efficient than scanning all catalogs and VTOCS.

  • VTOC output of course will have no catalog name.