RUNSQLSTM - Problem

[B.Hauser]

Hallo,

warum hast Du die Text-Angabe doppelt codiert?

Das korrekte Statement müsste so aussehen:

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 

Übrigens mit der skalaren Funktion Space(Zahl) kann man eine beliebige Anzahl *Blanks generieren: z.B. bei Space(5) werden 5 aufeinanderfolgende Blanks generiert.


Birgitta