copy ps data file to PDS memebr. 1

[shuhaibk54]

I am new to rexx coding can any one hepl me to write the code to copy ps data file to pds member ..


Thanks,
Shuhaib

 

[rexxhead]

It's not actually a REXX problem; it's more 'allocate' which is a system function.

So, the sequential (PS) file exists and is to be copied to a member of an existing PDS:

"ALLOC FI(PS) DA(the.dataset.name) SHR REUSE"
"ALLOC FI(PO) DA(the.partitioned.dataset(member)) SHR REUSE"
"EXECIO * DISKR PS (FINIS"
"EXECIO" queued() "DISKW PO (FINIS"
FREE FI(PS PO)"

Note the use of "REUSE" to eliminate the possibly-unnecessary initial 'FREE'.

Frank Clarke
--America's source for adverse opinions since 1943.

 

[shuhaibk54]

Thanks a lot!!!
Its working

Thanks,
Shuhaib

"ALLOC FI(PS) DA(the.dataset.name) SHR REUSE"
"ALLOC FI(PO) DA(the.partitioned.dataset(member)) SHR REUSE"
"EXECIO * DISKR PS (FINIS"
"EXECIO" queued() "DISKW PO (FINIS"
"FREE FI(PS PO)"