Re: Sort INCLUDE problem

[Sri h Kolusu]

>> You job is not summarizing by HLQ; instead is creating one record by each 
>> input record with HLQ and size.

Jack,

Now that I know what you are trying to do, it is quite easy to add the summary 
by HLQ in the same step.  You have 2 different multiplications so we need to 
use IFTHEN statements

So, please change the SORT001 SYSIN to the following (Untested).

//SYSIN    DD *,SYMBOLS=JCLONLY
  INREC IFTHEN=(WHEN=INIT,
         PARSE=(%01=(ABSPOS=2,ENDBEFR=C'.',FIXLEN=8)),
       OVERLAY=(BRS-HLQ:%01)),

        IFTHEN=(WHEN=(INP-MGMTCL,EQ,C'&MGMT'),
             OVERLAY=(BRS-BYT:INP-FLSIZE,MUL,+4,PD,LENGTH=16)),

        IFTHEN=(WHEN=NONE,
             OVERLAY=(BRS-BYT:INP-FLSIZE,MUL,+2,PD,LENGTH=16))

  SORT FIELDS=(BRS-HLQ,A,
               INP-MGMTCL,A)

  OUTFIL FNAMES=HLQ#BRS,
  INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
           INP-MGMTCL,EQ,C'&MGMT'),
  REMOVECC,NODETAIL,
  HEADER1=(01:'    HLQ           BRS TOTAL KB',/,
           01:' --------- -------------------'),
  SECTIONS=(BRS-HLQ,
  TRAILER3=(X,
            BRS-HLQ,
            X,
            TOT=(BRS-BYT,EDIT=(I.III.III.III.III.IIT))))

  OUTFIL FNAMES=HLQ#LX,
  INCLUDE=(INP-K#CHAR,EQ,C'K',AND,
           INP-MGMTCL,NE,C'&MGMT'),
  REMOVECC,NODETAIL,
  HEADER1=(01:'    HLQ       NON BRS TOTAL KB',/,
           01:' --------- -------------------'),
  SECTIONS=(BRS-HLQ,
  TRAILER3=(X,
            BRS-HLQ,
            X,
            TOT=(BRS-BYT,EDIT=(I.III.III.III.III.IIT))))

/*

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