REXX to get the maximum volume occupied by VSAM, IAM, PS, PD

expat · Posted: Thu Jan 07, 2010 3:12 pm

Peter,

If it makes you feel any younger, it was 6 years BEFORE 1994 that I was last involved with the installation and maint of MXG and/or MICS.

PeterHolland · Posted: Thu Jan 07, 2010 3:16 pm

Oh expat it makes me

rahulbank · Posted: Thu Jan 07, 2010 5:50 pm

Sorry Peter for my negligence you are right. I ran this program just as a sample:

//JS10 EXEC SAS
//SASLIST DD SYSOUT=*
//PDB DD DSN=CDPS1C.DCOLLECT.DATA4,DISP=SHR
//SYSIN DD *
PROC SORT DATA=PDB.DCOLDSET OUT=TEMP;
BY DCDDSNAM;
DATA TEMP1;
SET TEMP;
DSN=SUBSTR(DCDDSNAM,1,3);
IF(DSN NE 'LMX')
THEN DELETE;
RUN;
PROC PRINT DATA=TEMP1;

Here CDPS1C.DCOLLECT.DATA4 is the o/p of dcollect job

It says:

ERROR: Library PDB is not in a valid format for access method SASE7.
ERROR: Library PDB is not in a valid format for access method SASE7.
ERROR: Library PDB is not in a valid format for access method SASE7.
2 BY DCDDSNAM;

What am I doing wrong here. Please advice.

Robert Sample · Posted: Thu Jan 07, 2010 6:05 pm

You need to run MXG against the DCOLLECT input data set to create the PDB before you attempt to reference the PDB data fields. Check the MXG.??.SOURCLIB members ADOCDCOL and TYPEDCOL for details.

rahulbank · Posted: Fri Jan 08, 2010 2:44 pm

Rob thanks for the reply...I read both the members and have written to capacity planning folks on the same if they could help...

I used

//SORT EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DCOLLECT.DATA4,DISP=OLD
//SORTOUT DD DSN=DCOLLECT.DATA7,
// DISP=(,CATLG,DELETE),UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(LRECL=84,RECFM=VB,BLKSIZE=0)
//SYSIN DD *
SORT FIELDS=(29,44,CH,A)
INCLUDE COND=(203,8,CH,EQ,C'NOMIGRAT')
OUTFIL OUTREC=(1,4,29,44,117,4)
OPTION VLSHRT
//*

And was able to generate the report showing DSN's and their mgmtclass perfectly.

I read the appendix F in IDCAMs book and realized 5 needs to be added to every para(I mean DSN was 24(29 in JCL) and mgmtclass was 112(19 in jcl as u can see))..

Then I tried the same with ref date it gives some symbols...Can anyone please guide on how to get date their in o/p is ther some para which needs to be added as it a date..

PeterHolland · Posted: Fri Jan 08, 2010 3:42 pm

To add to Robert's input, i myself used DAILYDSN (MXG) to process
DCOLLECT input.
Next sample is to merge DCOLLECT data from 3 lpars :

Pete Wilson · Posted: Thu Jan 14, 2010 12:40 am

If you have FDR this will give you a formatted report of what your require:
NOTE: If you run the same JCL with just XHELP ALL in the sysin it will print the full manual for FDREPORT.

//FDREPORT EXEC PGM=FDREPORT,REGION=32M
//SYSPRINT DD SYSOUT=0
//SYSOUT DD SYSOUT=0
//SYSUDUMP DD SYSOUT=0
//ABRMAP DD SYSOUT=*
//ABRSUM DD SYSOUT=0
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSIN DD *
TITLE LINE='REPORT DATASETS BY HLQ THEN SIZE DESCENDING **'
REPORT FIELD=(NAME, * DATASET OR CLUSTER NAME
SIZE, * SIZE ALLOCATED IN TRKS
SIZEUSED, * SIZE USED IN TRKS
CAPBYTES, * SIZE ALLOC BYTES (OR KB,MB,TB)
DSORG) * DSORG
XS XDSN=HLQ.**
SORT FIELD=(NAME,SIZE),SEQ=(A,D,D)
SUMM FIELD=(SIZE,SIZEUSED,CAPBYTES)
PRINT SORT=COMBINE,SUM=YES, * SORT AND GIVE SUMMARY TOTAL
RPTYPE=TABLE, * CREATE TABULAR REPORT
DATATYPE=CATVTOC, * SOURCE FROM CATLG THEN VTOC
RECORDSUMMARY=CLUSTER, * COMBINE MULTI-VOL FILES RPT
ENABLE=(FASTPATH,AIXCLUSTER), * REPORT AIX'S SEPARATELY
BYTEFORMAT=MEGA, * RPT CAPBYTES IN MB
SUMBYTEFORMAT=MEGA * SUMMARY RPT IN MB