>> As you can see, I have multiple records for storage group SGDBPR and
>> SGPBBA01. Any ideas as what may be causing this?
Jack,
You need to check your joblog to see if you received ICE152I message which
indicates that there is an OVERFLOW of the summation fields.
ICE152I 0 OVERFLOW DURING SUMMATION - RC=0
DCVVLCAP and DCVALLOC are both 4-byte binary fields and when you some sum them,
it might exceed the value a 4 byte binary can fit into. So, you need to pad
binary zeros and sum it as a bigger number.
Since you are using Symbols , I added the temp fields at the end and SUM those
temp fields
//SYMNAMES DD DISP=SHR,DSN=&SORTINPT(HEADER)
// DD DISP=SHR,DSN=&SORTINPT(TYPED)
// DD DISP=SHR,DSN=&SORTINPT(TYPEV)
// DD *
SKIP,2
TMP-DCVVLCAP,*,8,BI
TMP-DCVVLCAP1,=,4,BI
TMP-DCVVLCAP2,*,4,BI
TMP-DCVALLOC,*,8,BI
TMP-DCVALLOC1,=,4,BI
TMP-DCVALLOC2,*,4,BI
//SYSIN DD *
OPTION VLSHRT,VLSCMP,DYNALLOC=(,4)
INREC OVERLAY=(TMP-DCVVLCAP:8Z,
TMP-DCVVLCAP2:DCVVLCAP
TMP-DCVALLOC:8Z,
TMP-DCVALLOC2:DCVALLOC)
SORT FIELDS=(DCVSGTCL,A)
SUM FIELDS=(TMP-DCVVLCAP,
TMP-DCVALLOC)
OUTREC BUILD=(1,4,
DCVSGTCL,
X,
TMP-DCVVLCAP,TO=ZD,LENGTH=16,
X,
TMP-DCVALLOC,TO=ZD,LENGTH=16)
/*
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
