>> DFSORT is a magnificent product but I still am in an very early user stage.
Jack,
Thank you very much.
>> You are so right about that. I was waiting for having this right before I
>> would attempt that step. I have to do this in small steps.
It is quite simple to add it in the existing job itself. All you need is to
change the INREC. Here are the updated control cards. I added comments so that
it is easy to see what is changed/added
//SYSIN DD *
OPTION VLSCMP,DYNALLOC=(,4)
INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
DCURCTYP,EQ,UKTMIGR,OR, * MIGR RECORD
DCURCTYP,EQ,UKTBACK) * BACKUP RECORD
** Parse the datasetname for HLQ and init the space values
INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(FMT-HLQ:%01,
TMP-DCDALLSP:8Z,
TMP-UMALLSP:8Z,
TMP-UBALLSP:8Z)),
** If allocated space is 31-bit value for type "D" records
IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT,AND,
DCDFLAG2,EQ,DCDALLFG),
OVERLAY=(TMP-DCDALLSP2:DCDALLSP),HIT=NEXT),
** If allocated space is 64-bit value for type "D" records
IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT,AND,
DCDFLAG5,EQ,DCDALLFX),
OVERLAY=(TMP-DCDALLSP:DCDALLSX)),
** Assume allocated space is in "KB" for type "M" records
IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
OVERLAY=(TMP-UMALLSP2:UMALLSP),HIT=NEXT),
** Check if allocated spaces is in "MB" for type "M" records and
** convert it to KB value by multiplying with +1024
IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR,AND,
UMFLAG4,EQ,UMALLSP_FMB),
OVERLAY=(TMP-UMALLSP:UMALLSP,MUL,+1024,BI,LENGTH=8)),
** Assume allocated space is in "KB" for type "B" records
IFTHEN=(WHEN=(DCURCTYP,EQ,UKTBACK),
OVERLAY=(TMP-UBALLSP2:UBALLSP),HIT=NEXT),
** Check if allocated spaces is in "MB" for type "B" records and
** convert it to KB value by multiplying with +1024
IFTHEN=(WHEN=(DCURCTYP,EQ,UKTBACK,AND,
UBFLAG4,EQ,UBALLSP_FMB),
OVERLAY=(TMP-UBALLSP:UBALLSP,MUL,+1024,BI,LENGTH=8))
SORT FIELDS=(FMT-HLQ,A) * SORT BY DATASET HLQ
*
SUM FIELDS=(TMP-DCDALLSP, * SUM ALLOC SPACE
TMP-UMALLSP, * SUM MIGRAT SPACE
TMP-UBALLSP) * SUM BACKUP SPACE
*
OUTREC BUILD=(1,4,
FMT-HLQ,
X,
TMP-DCDALLSP,EDIT=(III.III.III.III.IIT),
C' KB ',
TMP-UMALLSP,EDIT=(III.III.III.III.IIT),
C' KB ',
TMP-UBALLSP,EDIT=(III.III.III.III.IIT),
C' KB ')
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
