Rexx code to Create a PDS Member.

Rexx to Create a PDS Member.

FILE1 = 'USERMF.FADO.PDS(MEMBER1)'  

STEM1.1 = 1

STEM1.0 = 1 
 "ALLOC DA('"FILE1"') F(ABCD)  OLD REUSE"
 "EXECIO * DISKW ABCD (STEM STEM1. FINIS"
 "FREE F(ABCD)"
If RC <> 0 then Do
   say "Error in Allocating the PDS MEMBER" RC
End

/* Becarefull of the Quotes " and ' */

Rexx code to Create PDS (Partitioned Data Set)

Rexx to Create PDS (Partitioned Data Set).


FILE1 = 'USERMF.FADO.PDS'
ADDRESS TSO "ALLOCATE FI(ABCD) DA('"FILE1"') NEW TRACKS",
"REUSE SPACE(5,5) DIR(1) DSORG(PO) RECFM(F,B) LRECL(80) BLKSIZE(0)"
If RC <> 0 then Do
   say "Error in Allocating the PDS" RC
End

/* Becarefull of the Quotes " and ' */

REXX code to create a PS

Rexx to Create a PS dataset.

FILE1 = 'USERMF.FADO.PS'
ADDRESS TSO "ALLOCATE FI(ABCD) DA('"FILE1"') NEW TRACKS",
"REUSE SPACE(5,5) DIR(0) DSORG(PS) RECFM(F,B) LRECL(80) BLKSIZE(0)"
If RC <> 0 then Do
   say "Error in Allocating the PS" RC
End

/* Becarefull of the Quotes " and ' */