/* REXX EXCHANGE MACRO */                                                       
/* XCHANGE SEND_COL1 SEND_COL2 RECEIVE_COL1 RECEIVE_COL2 (F)ULL  */             
/* TAUSCHT ZWEI BEREICHE. WENN F NICHT ANGEGEBEN BEREICH1 NACH 2 */             
/* ACHTUNG: PARAMETER WERDEN NOCH NICHT GEPRüFT !!! */                          
          ADDRESS ISREDIT                                                       
          "MACRO (SCV SCB RCV RCB FU)"                                          
          "(ZFIRST) = LINENUM .ZFIRST"                                          
          "(ZLAST) = LINENUM .ZLAST"                                            
          DO I = ZFIRST TO ZLAST                                                
             "(L) = LINE " I                                                    
             S = SUBSTR(L,SCV,SCB)                                              
             R = SUBSTR(L,RCV,RCB)                                              
             L = OVERLAY(S,L,RCV,RCB - RCV + 1,0)                               
             IF FU = " " THEN                                                   
                L = OVERLAY(R,L,SCV,SCB - SCV + 1,0)                            
             "LINE" I "= (L)"                                                   
          END