Hi all,
I am trying to process DCOLLECT type "D"; "B"; "M"; records in order to get
one record by HLQ with the allocated space by active files, migrated files
and backup files, and I am doing something wrong because I am getting one
output record for each input record, instead of the few hundreds I was
expecting to get.
Those are the sort statements I am using:
//STEP0200 EXEC PGM=SORT
//SYMNOUT DD SYSOUT=*
//SYMNAMES DD DISP=SHR,DSN=&SORTINPT(HEADER)
// DD DISP=SHR,DSN=&SORTINPT(TYPED)
// DD DISP=SHR,DSN=&SORTINPT(TYPEB)
// DD DISP=SHR,DSN=&SORTINPT(TYPEM)
// DD *
FMT-HLQ,*,12,CH
TMP-DCDALLSP,*,8,BI * ALLOCATED SPACE
TMP-DCDALLSP1,=,4,BI
TMP-DCDALLSP2,*,4,BI
TMP-UBALLSP,*,8,BI * ALLOCATED BACKUP SPACE
TMP-UBALLSP1,=,4,BI
TMP-UBALLSP2,*,4,BI
TMP-UMALLSP,*,8,BI * ALLOCATED MIGRAT SPACE
TMP-UMALLSP1,=,4,BI
TMP-UMALLSP2,*,4,BI
/*
//*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=&BHLQ..DCOLLECT.OUTPUT
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
INCLUDE COND=(DCURCTYP,EQ,DCUDATAT,OR, * DATA RECORD
DCURCTYP,EQ,UKTMIGR,OR, * MIGR RECORD
DCURCTYP,EQ,UKTBACK) * BACKUP RECORD
*
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
*
INREC IFTHEN=(WHEN=INIT,
PARSE=(%01=(ABSPOS=29,ENDBEFR=C'.',FIXLEN=8)),
OVERLAY=(FMT-HLQ:%01)),
IFTHEN=(WHEN=(DCURCTYP,EQ,DCUDATAT),
OVERLAY=(TMP-DCDALLSP:8Z,
TMP-DCDALLSP2:DCDALLSP)),
IFTHEN=(WHEN=(DCURCTYP,EQ,UKTMIGR),
OVERLAY=(TMP-UMALLSP:8Z,
TMP-UMALLSP2:UMALLSP)), * BACKUP SPACE
IFTHEN=(WHEN=NONE,
OVERLAY=(TMP-UBALLSP:8Z,
TMP-UBALLSP2:UBALLSP)) * BACKUP SPACE
OUTREC BUILD=(1,4,
FMT-HLQ,
X,
TMP-DCDALLSP,EDIT=(III.III.III.IIT),
C' KB',
TMP-UMALLSP,EDIT=(III.III.III.IIT),
C' KB',
TMP-UBALLSP,EDIT=(III.III.III.IIT),
C' KB')
/*
As usual, your help will be deeply appreciated,
Best wishes
Jack
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
