Thank you very much Kolusu. That did the trick Best wishes Jack
On Thu, 13 Jul 2023 at 17:40, Sri h Kolusu <[email protected]> wrote: > Jack, > > If your intention is to count the number of Storage group and DASD Model, > then you can init with a counter of 1 and then sum it up. > > Here are the updated control cards. I added a new symbol TMP-STGCNTR and > initialized it with 1 using INREC and then sum that field. > > > // DD * > TMP-DCVVLCAP,*,8,BI > TMP-DCVVLCAP1,=,4,BI > TMP-DCVVLCAP2,*,4,BI > TMP-DCVALLOC,*,8,BI > TMP-DCVALLOC1,=,4,BI > TMP-DCVALLOC2,*,4,BI > TMP-STGCNTR,*,2,BI > /* > //SYSIN DD * > OPTION VLSHRT,VLSCMP,DYNALLOC=(,4) > INCLUDE COND=(DCURCTYP,EQ,DCUVULUT) > * > INREC OVERLAY=(TMP-DCVVLCAP:8Z, > TMP-DCVVLCAP2:DCVVLCAP, * DASD CAPACITY > TMP-DCVALLOC:8Z, > TMP-DCVALLOC2:DCVALLOC, > TMP-STGCNTR:+1,BI,LENGTH=2) > * > SORT FIELDS=(DCVSGTCL,A,DCVVLCAP,D) * SORT BY SRGRP NAME > * > SUM FIELDS=(TMP-DCVVLCAP, * SUM DASD CAPACITY > TMP-DCVALLOC, * SUM DASD ALLOCATED SPACE > TMP-STGCNTR) * SUM DASD MODEL COUNT > * > OUTFIL FNAMES=SORT01, > BUILD=(1,4, > DCVSGTCL, > CHANGE=(30,C' ',C'NON SMS'), > NOMATCH=(DCVSGTCL), > X, > SEQNUM,4,ZD,START=1,INCR=1,RESTART=(DCVSGTCL), > X, > TMP-STGCNTR,M10,LENGTH=5, > X, > DCVVLCAP, > CHANGE=(7,X'000E18B9',C'3390-01', > X'002A4A2C',C'3390-03', > X'007EDE85',C'3390-09', > X'019EEB0F',C'3390-27', > X'033DD61F',C'3390-54'), > NOMATCH=(C'NMODEL'), > X, > TMP-DCVVLCAP,EDIT=(III.III.III.IIT), > X, > TMP-DCVALLOC,EDIT=(III.III.III.IIT)) > /* > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
