Versuch es mal hiermit:

Code:
insert into jrnanz/SOURCES1                                                                              
   SELECT 1 , 1 ,'     A            ' concat WHFLDI concat '   ' concat                                  
          case when whfldd=0 then substr(digits(whfldb) , 3 , 3)                                         
               else ' 'concat digits(whfldd) end                                                         
          concat whfldt concat                                                                           
          case when whfldp=0 then '  '                                                                   
               else substr(digits(WHFLDp) , 1 , 2) end                                                   
          concat                                                                                         
          Case When Length(Trim(Left(WHFTXT, 28))) <> 0                                                    
               Then '       TEXT(' concat                                                                
                    '''' concat trim(left(WHFTXT , 28)) concat ''''                                      
                    concat ')' end                                                                       
     from jrnanz/fields
LG, Kathrin