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 ' */