lokesh_try8 New User Joined: 30 Dec 2005 Posts: 14 Location: Chennai
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,
superk Moderator Team Head Joined: 26 Apr 2004 Posts: 4650 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:
//STEP0001 EXEC PGM=IEBGENER
//SYSUT1 DD *
A DUMMY RECORD
//SYSUT2 DD DSN=MY.NEW.PDS(MEMBER1),DISP=(,CATLG,DELETE),
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/* REXX */
"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"
"EXECIO *DISKW PDS (FINIS"
ofer71 Global Moderator Joined: 27 Dec 2005 Posts: 2360 Location: Israel
Another method is to use ISPF services, like LMMADD & LMMPUT.
All times are GMT + 6 Hours