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