Hi,
I am processing DCOLLECT volume records in order to get the total space
allocated by Storage group and DASD model.
What I am trying to achieve is this:
SCPHSMLG 0001 0002 3390-27 27.192.079
111.778
SCPHSMLG 0002 0001 3390-09 41.572.505
11.263.632
SCPHSMLG 0003 0001 3390-03 5.543.000
3.247.112
in which the first numeric column is to be the total number of DASD on the
Storage Group and the second numeric column is to be the total number of
DASD of that model on that Storage Group.
The SORT Control Fields and SYMNAMES that I used to get that result is:
//SYMNAMES DD DISP=SHR,DSN=&SORTINPT(HEADER)
// DD DISP=SHR,DSN=&SORTINPT(TYPED)
// DD DISP=SHR,DSN=&SORTINPT(TYPEV)
// 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
/*
//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) * DASD ALLOCATED SPACE
*
SORT FIELDS=(DCVSGTCL,A,DCVVLCAP,D) * SORT BY SRGRP NAME
*
SUM FIELDS=(TMP-DCVVLCAP, * SUM DASD CAPACITY
TMP-DCVALLOC) * SUM DASD ALLOCATED SPACE
*
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,
SEQNUM,4,ZD,START=1,INCR=1,RESTART=(DCVVLCAP),
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))
/*
//*
So, I know that SEQNUM will not do the trick. I used it just to get the
intended layout.
I am pretty sure that there will be a SORT operand to get the intended
result but I am having some trouble finding it on the manual.
You help will be, as always, much appreciated
Regards
Jack
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
