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
