Please excuse the bad formatting. Trying Again. Are you familiar with REXX? If so, here is how you could do this:
In a REXX:- LISTDS to get a list of the members in the PDS.- ALLOCATE an new PDS for the changed members.- FREE the output dsn. - In a loop for each member: -- ALLOCATE the input dsn(member_nn)-- EXECIO to read the member into input stem. -- FREE the input dsn -- in a loop move each reccord from input to output stem, but only first 72 positions --- end of inner loop -- ALLOCATE the output dsn(member_nn) -- EXECIO to write the changed data back into the member. -- FREE the output dsn -- end of outer loop Not the most efficient way, but if this is a one-time job, it probably doesn't matter. -- Peter Hunkeler ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
