Eingebettetes SQL im RPG

[B.Hauser]

Hallo,

mit welchem Release arbeitest DU?
Ich habe gerade unter V5R4 ein Mini-Programm mit embedded SQL Cursor und Substring mit Host-Variablen in den Where-Bedinungen erstellt. Die Ausführung läuft ebenfalls problemlos.

D BegPos          S              5I 0            
D Len             S              5I 0            
D Text            S             50A        
 /Free      
    BegPos = 3;                                                          
    Len    = 5;                                                          
                                                                         
    Exec SQL  Declare CsrC01 Cursor For    
          Select Name1F From MYTABLE
             Where Substr(Name, :BegPos, :Len) = 'ABCDE'; 
                                                                         
    Exec SQL  Open CsrC01;                                               
    Dsply SQLCOD;                                                        
    Exec SQL  Fetch Next From CsrC01 into :Text;                  
    Dsply SQLCOD;                                             
    Dsply Text;           
    Exec SQL  Close CsrC01;  
    *INLR = *ON;                                            
 /End-Free 

... übrigens in SQL heißt die scalare Funktion SUBSTR (und nicht SUBST, das ist RPG!)

Birgitta