Re: Help on DFSORT SUM FIELDS

[Sri h Kolusu]

>> 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