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
