Go to Home Page
Questions?
Call 1-800-572-5517
 
  Go to Home Page  
  See all products
  See price schedules
  See manuals, tutorials, articles
  Download a free 30-day trial
  See user testimonials
  About Pacific Systems Group
 
 
DCOLLECT Tools
  See DCOLLECT Record Layouts
  See Sample DCOLLECT Reports
  Learn How to Export SMF Data
  Download Free DCOLLECT  Reporting Software (30 days)
 
  Choose Spectrum Writer to add 4GL to your product
  Free 60-Page Book (PDF) - How to Make an SMF Report
Spectrum DCOLLECT Reporter - the 4GL DCOLLECT Report Writer.

Spectrum SMF Writer - the 4GL SMF Report Writer.

DCOLLECT Type A Record

This table shows the record layout for type A DCOLLECT records
(VSAM Association Information).

Purpose: The DFSMS Data Collection Facility (DCOLLECT) is a function of access method services. DCOLLECT collects stored data set, volume and policy values into a sequential file you can use as input to other programs or applications.

The DCOLLECT output file consists of a number of different record types. (See list)

Type A records contain VSAM data set association information. This record ties data and index components to the sphere name and provides other VSAM-related information. The record type for this record is A.

 


It's easy to report on DCOLLECT type A records! (Jump to sample reports)

DCOLLECT Spectrum WRITER
We have a low-cost 4GL report writer especially for DCOLLECT files. It's called Spectrum DCOLLECT Reporter.

Spectrum DCOLLECT Reporter handles the difficult DCOLLECT record parsing for you automatically. You just specify which fields you want to see.

Spectrum DCOLLECT Reporter also converts the arcane date and time fields and reformats them into an attractive report. It defines the individual bit flags for easy testing or printing.

Plus, Spectrum DCOLLECT Reporter can export DCOLLECT data as comma delimited files to use on your PC.
 
Try It FREE Now!

DCOLLECT Type A Record -- VSAM Association Information
Offset
(Dec.)
NameLengthFormatDescription
* ********************************************************************
* * HEADER PORTION OF DATA COLLECTION UTILITY OUTPUT RECORD. EACH *
* * DATA SECTION IS PRECEDED BY THIS HEADER. *
* ********************************************************************
0DCURDW4BinaryRECORD DESCRIPTOR WORD
0DCULENG2BinaryLENGTH OF THIS RECORD
22CharacterRESERVED
4DCURCTYP2CharacterRECORD TYPE FOR THIS RECORD
6DCUVERS2BinaryVERSION
8DCUSYSID4CharacterSYSTEM ID FOR THIS OPERATION
12DCUTMSTP8CharacterTIMESTAMP FIELD
12DCUTIME4BinaryTIME IN SMF HEADER FORMAT
16DCUDATE4CharacterDATE IN SMF FORMAT (CCYYDDDF)
204CharacterRESERVED
24DCUDATA1CharacterEND OF HEADER

* ********************************************************************
* * VSAM BASE CLUSTER ASSOCIATION NAME (RECORD TYPE 'A') *
* * Contains VSAM data set association information. *
* * This record ties data and index components to the sphere name *
* * and provides other VSAM-related information. *
* ********************************************************************
0DCADSNAM44CharacterDATA SET NAME
44DCAASSOC44CharacterBASE CLUSTER NAME
88DCAFLAG11CharacterVSAM INFORMATION FLAG #1
• DCAKSDS X'80' KEY SEQUENCED DATA SET
• DCAESDS X'40' ENTRY SEQUENCED DATA SET
• DCARRDS X'20' RELATIVE RECORD DATA SET
• DCALDS X'10' LINEAR DATA SET
• DCAKRDS X'08' KEY RANGE DATA SET
• DCAAIX X'04' ALTERNATE INDEX DATA SET
• DCADATA X'02' VSAM DATA COMPONENT
• DCAINDEX X'01' VSAM INDEX COMPONENT
89DCAFLAG21CharacterVSAM INFORMATION FLAG #2
• DCAKR1ST X'80' 1ST SEGMENT OF KR DATA SET
• DCAIXUPG X'40' ALTERNATE INDEX W/ UPGRADE
• DCAVRRDS X'20' VARIABLE RRDS
• DCANSTAT X'10' NO VSAM STATS IN RECORD
• DCASRCI X'08' RBA is CI number
• DCAG4G X'04' Extended Addressability Data Set
• DCAZFS X'02' zFS Data Set
902CharacterRESERVED
92DCAHURBA4BinaryHIGH USED RBA / CI
96DCAHARBA4BinaryHIGH ALLOCATED RBA / CI
100DCANLR4BinaryNUMBER OF LOGICAL RECORDS
104DCADLR4BinaryNUMBER OF DELETED RECORDS
108DCAINR4BinaryNUMBER OF INSERTED RECORDS
112DCAUPR4BinaryNUMBER OF UPDATED RECORDS
116DCARTR4BinaryNUMBER OF RETRIEVED RECORDS
120DCAASP4BinaryBYTES OF FREESPACE IN DS
124DCACIS4BinaryNUMBER OF CI SPLITS
128DCACAS4BinaryNUMBER OF CA SPLITS
132DCAEXC4BinaryNUMBER OF EXCPS
136DCARKP2BinaryRELATIVE KEY POSITION
138DCAKLN2BinaryKEY LENGTH
140DCAHURBC8BinaryHIGH USED RBA CALC FRM CI
148DCAHARBC8BinaryHI ALLOC RBA CALC FRM CI
156DCACISZ4BinaryNUMBER BYTES IN A CI
160DCACACI4BinaryNUMBER CI'S IN A CA
164DCATRDT4CharacterHSM CLASS TRANSITION DATE
16812CharacterRESERVED

 

 
 


 
 

Sample VSAM Dataset Information Report
from DCOLLECT Type A Records


The sample DCOLLECT report below was created with Spectrum DCOLLECT Reporter, Pacific Systems Group's low-cost 4GL DCOLLECT report writer.

It reads as input the DCOLLECT file and selects just the type A (VSAM Association) records. (See DCOLLECT type A record layout.)

For each VSAM dataset, we show such information as: the type of VSAM file, its key information (if keyed), various record and operation counts, and the number of CI and CA splits.

Notice that we use Spectrum DCOLLECT Reporter's powerful computational ability to create a field with a value of KSDS, ESDS or RRDS (based on 3 bit flags in the record). This makes a more user-friendly report (compared to just showing some bit values).

We also used a logical COMPUTE statement to set the key information fields only for KSDS datasets (leaving them blank for non-keyed VSAM datasets).

All of this with just a few lines of code!
Why not install a Spectrum DCOLLECT Reporter trial right now and start making your own DCOLLECT reports!

These Spectrum DCOLLECT Reporter Statements:

INPUT:  DCOLLECT

INCLUDEIF: DCURCTYP = 'A'                                      
                                               
COMPUTE: TYPE = WHEN(DCAKSDS) ASSIGN('KSDS')                   
                WHEN(DCAESDS) ASSIGN('ESDS')                   
                WHEN(DCARRDS) ASSIGN('RRDS')                   

COMPUTE: RKP = WHEN(DCAKSDS)  ASSIGN(#FORMAT(DCARKP,4))        
COMPUTE: KLN = WHEN(DCAKSDS)  ASSIGN(#FORMAT(DCAKLN,5))        

COLUMNS:                                                       
  DCADSNAM(30)                                                 
  TYPE                                                         
  RKP                                                          
  KLN                                                          
  DCANLR('NUM|LOGICAL|RECS' 7)                                 
  DCADLR('NUM|DELETED|RECS' 7)                                 
  DCADLR('NUM|INSERTED|RECS' 8)                                
  DCADLR('NUM|UPDATED|RECS' 7)                                 
  DCACIS('NUM|CI|SPLITS' 5)                                    
  DCACAS('NUM|CA|SPLITS' 5)                                    

TITLE: 'VSAM DATASET INFORMTION'                               

 

Produce This DCOLLECT Report:


                                   VSAM DATASET INFORMTION

                                                  NUM     NUM     NUM      NUM    NUM   NUM
                                                LOGICAL DELETED INSERTED UPDATED  CI    CA
            DCADSNAM            TYPE RKP   KLN   RECS    RECS     RECS    RECS   SPLIT SPLIT
______________________________ ____ ____ _____ _______ _______ ________ _______ _____ _____

 USRACCT.VSAM.AIRLIST.D         KSDS   49     8      19       0        0       0     1     0
 USRACCT.VSAM.AIRLIST.I         KSDS   49     8       1       0        0       0     0     0
 USRACCT.VSAM.EMPLFILE.D        KSDS    0     3      18       2        2       2     2     0
 USRACCT.VSAM.EMPLFILE.I        KSDS    0     3       1       0        0       0     0     0
 USRACCT.VSAMESDS.SALEFILE.D    ESDS                 14       0        0       0     0     0
 USRACCT.VSAMESDS.TEMPFILE.D    ESDS                 70       0        0       0     0     0
 SYS1.VVDS.VVPWRKC              ESDS                  0       0        0       0     0     0

 *** GRAND TOTAL (     7 ITEMS)                     123       2        2       2     3     0

See other sample DCOLLECT reports.

Copyright 2024.
Pacific Systems Group.
All rights reserved.


Spectrum Writer 4GL - the economical alternative to SAS, Easytrieve, DYL-280...

Home | Products | Prices | Documentation | 30-Day Trials | Customer Reviews | Company
Send Your Comments or Questions