MVSFORUMS.com

sanjayr321 · Beginner Joined: 25 Sep 2006 Posts: 28 Topics: 15

Hi,

I need to read a FILE-A having a list of GDG base and to delete the oldest generation of this GDG files using rexx code.

I.E
---

FILE-A has below records

USER1.TESTA.GDG1
USER1.TESTB.GDG2
USER1.TESTC.GDG3

Now i need to read this file-A and to delete the oldest generation of all the three GDG files using rexx code. Generations of each files is not uniform.

I am learning rexx now, somehow I tried to formulate the below code to display the oldest generation indivdually.
-------------
/* REXX */
X = OUTTRAP(S.)
"LISTCAT ENT('USER1.TESTA.GDG1') ALL"
SAY S.9
EXIT
-------------

But not sure how to put all the below three requirements in single rexx program

1. Reading the ps file, to read all the GDG base files
2. Listing the oldest generation of each GDG
3. Deleting the oldest generation of each file.

Thanks.

s_shivaraj · Posted: Mon Sep 21, 2009 6:01 am Post subject:

Try this and let me know ..

sanjayr321 · Beginner Joined: 25 Sep 2006 Posts: 28 Topics: 15

Shiva,

Thanks for the prompt response, can you please explain the highlevel logic behind this code as instead of executing it blindly i would learn few things and able to fix/modify it, if its neccessary.

s_shivaraj · Posted: Mon Sep 21, 2009 6:46 am Post subject:

sanjayr321
Below piece of code is to read the list of names from the input file

s_shivaraj · Posted: Mon Sep 21, 2009 6:49 am Post subject:

3rd line in the array had the name of the first version, hence the reference

sanjayr321 · Beginner Joined: 25 Sep 2006 Posts: 28 Topics: 15

Shiva,

Its perfect, processing correctly but while executing it failed with maxcc=8 IDC3902I as the GDG version adding my user id as prefix extra. i.e file name is changing to USERID1.USERID1.TESTA.GDG.G0001V00 and its failing with file not found.

Is there any command to supress the first USERID.

kolusu · Posted: Mon Sep 21, 2009 1:28 pm Post subject:

sanjayr321,

add this line at the beginning of your rexx exec right after /* rExx */ statement

expat · Posted: Tue Sep 22, 2009 1:19 am Post subject:

Dare I ask why you need to delete the oldest generation manually ?
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

sanjayr321 · Beginner Joined: 25 Sep 2006 Posts: 28 Topics: 15

Its working perfectly, many thanks Shiva and Kolusu for the help provided...