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 ' */
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 ' */
Got what i was looking for. Thanks for the small and useful post.
ReplyDeleteI need the code to create a member(which user wil specify runtime) and a JCL structure will be created insde the new member in a existing pds.. Can u help me out.