Dynamische SQL ohne Cursor

[B.Hauser]

so:

/Free                                                                
    WrkFile = %Trim(WrkFile) + %EditC(Monat: 'X');     
    SqlStm = 'Create Table ' + %Trim(WrkLib) + '/' + %Trim(WrkFile) +     
                ' as (Select  KUNDENR, Sum(WERT) as UMSATZ +              
                        from UMSATZ +                          
                        Where     Month(VerkDatum) = ' + %Char(Monat) +   
                            ' and Year(VerkDatum)  = ' + %Char(Jahr)  +   
                    ' Group By KUNDENR) +                                 
                      with DATA '; 
/End-Free                                                            
c/exec sql    Execute immediate :SqlStm
C/End-exec 

Birgitta