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
;
