Hi Kolusu, UBFLAG4 and UMFLAG4 are not recognized as valid names. As far as I can tell, the DCOLLECT record descriptors that I am using are the most recent ones on the IBM site, even if they are for z/OS 2.1. Any suggestions? Best wishes Jack
On Thu, 7 Sept 2023 at 17:15, Sri h Kolusu <skol...@us.ibm.com> wrote: > >> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
