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 <ds...@hotmail.com> 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: vmanoc...@csc.com >> Subject: ICETOOL : Summarize DCOLLECT data for HLQ's >> To: IBM-MAIN@bama.ua.edu >> >> 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html