MVSFORUMS.com

Phantom · Posted: Thu Jan 16, 2003 12:45 am Post subject: Creating a New Member via REXX

Can we create a new Member inside a PDS using REXX routine. When I tried, I got an error. But when I create a PS (Not as a Member) then I don't get any error. Is there any way to create a Member from REXX?

Please advise

Thanks & Regards,
Navin. J

semigeezer · Posted: Thu Jan 16, 2003 1:16 am Post subject:

Sure. Lots of ways... what did you try and what error did you get?

Phantom · Posted: Thu Jan 16, 2003 3:13 am Post subject:

Here is my code
PSNAME Will contain the Member Name as 'TSONJAY.REXX.TEMP(MEM1)'

semigeezer · Posted: Thu Jan 16, 2003 4:02 am Post subject:

Ahhh. OK. Wink

The problem is that the data set exists. The data set (the actual PDS) only needs to be created once. Once it exists, you can add or delete members to/from it. Basically, once it exists, you should allocate it SHR or OLD, not NEW. If you include a member name, EXECIO (or anything else that writes to the file) will automatically create the member you specified in the allocation.

There are, as I mentioned, many other ways to create a member other than EXECIO. For example, you can use ISPF's various services (LMPUT, EDIT, etc), you can use the TSO COPY command (but that has many things to watch out for so I wouldn't recommend it), you can use CLIST built in I/O statements, call IEBGENER or any other program to write to the member. You can also call any of the other standard utilities to create members (IEBwhatever).

Phantom · Posted: Thu Jan 16, 2003 4:21 am Post subject:

yes, semigeezer. It works when I specified SHR instead of NEW. Thanks.

Actually, I had given it as SHR initially, but that time I got some other error somewhere else, I think when I tried to write to that file but Mistakenly I thought its b'cas of NEW keyword and I changed it.

Thank you very much.

Mike · Posted: Thu Jan 16, 2003 3:26 pm Post subject:

For mass creation of members I frequently use IEBUPDTE aka IEBwhatever Smile

.
_________________
Regards,
Mike.

DaveyC · Posted: Thu Jan 16, 2003 8:38 pm Post subject:

You always did love a punch card Mike Laughing

_________________
Dave Crayford

miboy · Beginner Joined: 10 Jan 2003 Posts: 13 Topics: 0

Phantom · Posted: Thu Jan 23, 2003 6:06 am Post subject:

Thanks miboy, Its working now.

thanks
Navin. J

vikramdr · Beginner Joined: 15 Feb 2003 Posts: 15 Topics: 11

Hi,

U can create a member in a PDS using rexx. Following is the command..

"ALLOC F(LVERR) DA('"abcd.abcd(mem)"') SHR REUSE"
"EXECIO * DISKW LVERR(STEM MSG_FILE_STEM. FINIS"

The first line will allocate a DD which can be used in the rexx program. One important poin to be noted is, when allocating a PDS it should be always in SHR more. U cannot open in MOD. If u open in MOD and the member is already existing, and if u try to write to that member u will get and abend.

When opened in SHR mode and the member is already existing, the old content is lost and new content will be written. If the member is not exisiting already, new member will be created.

Thanks and regards,
Vikram.
_________________
Vikram

Phantom · Posted: Thu Mar 06, 2003 5:11 am Post subject:

Vikram,

Thanks for your valuable suggestions. I tried all your suggestions and they are working fine.

Thanks for your help.
Phantom

modak · Beginner Joined: 09 Apr 2004 Posts: 14 Topics: 3

I am confused. Can anybody help me out...

when I am trying Phantom & Vikrams ay of creating a new member, my rexx codes ends up with RC=0 but NO new member is created...When I tried mboy way of doing it It cretaed a new member.

MY code is

member_path = 'TSOID.REXX.CNT(DDNAMES)'
mem=ddnames

modak · Beginner Joined: 09 Apr 2004 Posts: 14 Topics: 3

I tried keeping DSORG(PS) also

Maton_Man · Beginner Joined: 30 Jan 2004 Posts: 123 Topics: 0

In general, when writing to a any dataset, including a new PDS member, you should use OLD rather than SHR. Also, DSORG=PS will always give you a flat file, never a PDS.

Your ALLOC statement has parms specified as if you were going to allocate a new dataset but you are specifying SHR and REUSE as if it already exists. Which is true?

If your PDS already exists then allocate thus:

"ALLOC FI(PDS) DA('MY.PDS(NEWMEM)') OLD"

If you are creating your PDS as part of your first write process then allocate along these lines, obviously changing your space allocation to what you need:

"ALLOC FI(PDS) DA('MY.PDS(NEWMEM)') NEW DSORG(PO) SPACE(10) TRACKS DIR(100) RECFM(F B) LRECL(80) BLKSIZE(3120)"

You may have SDB in which case BLKSIZE(0) may be more appropriate.

If you are creating a PDSE then allocate along these lines:

"ALLOC FI(PDSE) DA('MY.PDSE(NEWMEM)') NEW DSORG(PO) SPACE(10) TRACKS RECFM(F B) LRECL(80) BLKSIZE(3120) DSNTYPE(LIBRARY)"
_________________
My opinions are exactly that.

modak · Beginner Joined: 09 Apr 2004 Posts: 14 Topics: 3

Thanks mato_man

I tried two options