On Fri, 2 Feb 2024 16:02:05 +0100, Radoslaw Skorupka <[email protected]> wrote:
>Sometimes I need clone text column.: The BOUNDS edit command can be useful. For instance, maybe you only want to clone columns 20 to 29 (BOUNDS 20 29 will not copy data outside those columns). Maybe you want to remove the columns 20 to 29 (BOUNDS 20 * and use shift line command <<10). Don't forget to restore bounds. Maybe you need to clear columns 20 to 29, CHANGE P'^' ' ' 20 29 ALL. As a reminder about overlay, remember that blanks do not overlay. You may need to clear the overlay area using the previous change command. Alternatively, you could write a simple REXX edit macro /* rexx */ address ISREDIT "MACRO" do cnt = 1 "LINE (data) =" cnt if rc <> 0 then exit /* last line */ parse var data col1 11 col2 21 col3 31 col4 newdata = col1 || col3 || col2 || col4 "LINE" cnt "= (newdata)" end If you are using ISPF EDIT simply because you want to create the data in TSO, remember, the utilities you mentioned can run in TSO instead of using edit. REXX EXECIO can also be used to avoid ISPF EDIT. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
