There may be a cleaner way of doing it, but this should work.
This assumes that dsn starts position 1 and the space starts position
88 & length 10
OPTION COPY
INREC IFTHEN=(WHEN=(2,1,CH,EQ,C'.'),
BUILD=(1,1,8X,88,10)),
IFTHEN=(WHEN=(3,1,CH,EQ,C'.'),
BUILD=(1,2,7X,88,10)),
IFTHEN=(WHEN=(4,1,CH,EQ,C'.'),
BUILD=(1,3,6X,88,10)),
IFTHEN=(WHEN=(5,1,CH,EQ,C'.'),
BUILD=(1,4,5X,88,10)),
IFTHEN=(WHEN=(6,1,CH,EQ,C'.'),
BUILD=(1,5,4X,88,10)),
IFTHEN=(WHEN=(7,1,CH,EQ,C'.'),
BUILD=(1,6,3X,88,10)),
IFTHEN=(WHEN=(8,1,CH,EQ,C'.'),
BUILD=(1,7,2X,88,10)),
IFTHEN=(WHEN=(9,1,CH,EQ,C'.'),
BUILD=(1,8,1X,88,10))
On Wed, Jun 8, 2011 at 12:23 AM, Dave Salt <[email protected]> wrote:
> This isn't what you asked for but I just want to make sure you're aware of
> it. If you go into ISPF option 3.4 (or SimpList) and set the field called
> 'Initial View' to SPACE and enter a slash in the field called 'Display Total
> Tracks', you can then enter a high level qualifier and the DSLIST will show
> you the total tracks occupied.
>
> HTH,
>
> Dave Salt
>
> SimpList(tm) - try it; you'll get it!
>
> http://www.mackinney.com/products/program-development/simplist.html
>
>
>
>
>
>
>> Date: Tue, 7 Jun 2011 21:28:57 +0530
>> From: [email protected]
>> Subject: ICETOOL : Summarize DCOLLECT data for HLQ's
>> To: [email protected]
>>
>> Greetings,
>>
>> I have created a report from DCOLLECT data with dataset_name volume_serial
>> creation_date space (in kb) and various other fields.
>>
>> I am looking for a way to scan this report and summarise the space used by
>> each HLQ. Could someone help me out with this requirement please.
>>
>> The input record layout is something like :
>>
>> SYS1.VVDS.VPROD46 PROD46 2011123 10
>> ABC.DATASET.SOMETHING XYZA41 2008101 80
>> XYZ.SOMETHING.ELSE YXZA44 2007114 90
>> ABCXYZ.SOMETHING.ELSE ABC123 2006762
>> 100
>> ABC.SOME.OTHER.DATASET AAA111 2005092 20
>> SYS1.VTOCIX.PROD46 ZZZ123
>> 2005123 20
>>
>> I would like the output to be something like this:
>>
>> SYS1 30
>> ABC 100
>> XYZ 90
>> ABCXYZ 100
>>
>> I am looking at the IFTHEN and PARSE statements as of now, however, I
>> haven't had much success yet.
>>
>> Any help or pointers would be appreciated.
>> CSC • This is a PRIVATE message. If you are not the intended recipient,
>> please delete without copying and kindly advise us by e-mail of the
>> mistake in delivery. NOTE: Regardless of content, this e-mail shall not
>> operate to bind CSC to any order or other contract unless pursuant to
>> explicit written agreement or government initiative expressly permitting
>> the use of e-mail for such purpose • Computer Sciences Corporation India
>> Pvt Ltd • 7th, Floor, Block 1B, DLF IT Park, Sivaji Garden, Nandambakkam
>> Post, Ramapuram, Chennai-600 089.
>>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
