lokesh_try8
New User
Joined: 30 Dec 2005
Posts: 14
Location: Chennai
|
|
|
|
Hi,
I've Created a PDS using the TSO "ALLOC" command in REXX, but I don't know how to create a Member in that PDS ? Can anyone Help me out in this regard !! Please specify with a sample example or any URL to refer to !
Thanks & Regards,
Lokesh R  |
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
You would do it the same way in TSO that you would in JCL, in that you can't create a new member until you write some data into it:
| Code: |
//STEP0001 EXEC PGM=IEBGENER
//SYSUT1 DD *
A DUMMY RECORD
/*
//SYSUT2 DD DSN=MY.NEW.PDS(MEMBER1),DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRACKS,(10,10,80),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
|
| Code: |
/* REXX */
"DELETE 'MY.NEW.PDS'"
"ALLOC DD(PDS) DA('MY.NEW.PDS(MEMBER1)') NEW REU CATALOG",
"RECFM(F B) LRECL(80) DIR(80) SPACE(10,10) TRACKS"
Queue "A DUMMY RECORD"
Queue ""
"EXECIO *DISKW PDS (FINIS"
"FREE DD(PDS)"
|
|
|
