Forum

Leider kenne ich keine Db2-seitige Lösung.

Vielleicht hilft Dir diese REXX weiter:

 /* rexx */                                                  
 "ISREDIT MACRO"                                              
 address isredit                                              
 "cursor = .zlast 1"                                          
 "(maxl) = cursor"                                            
 curl = 0                                                    
 do i = 1 to maxl                                            
    curl = curl + 1                                          
    "(data) = line" curl                                      
    if substr(data,73) = “ then iterate                      
    "cursor = " curl " 1 "                                    
    "c 1 2 P’==‘ ‚–‚"                                        
    do while( data ^= “)                                    
       do j = 72 to 1 by -1 while (substr(data,j,1) ^= ‚ ‚ )  
       end                                                    
       if j=0 then j=72                                      
       datlin = ““ substr(data,1,j)  ““                  
       "LINE_AFTER " curl "  = " datlin                      
       curl = curl + 1                                        
       data = substr(data,j+1)                                
    end;                                                      
 end                                                          

Sie müsste den Text entsprechend umbrechen.
Einfach in die SYSEXEC mit reinhängen und als EDIT-MACRO ausführen