LIKE keyword in Embedded SQL

[woki]

Ich versuche in einer Datei mittels des Namens eine dazugehörige Nummer herauszufinden.
Das Statement würde interaktiv so aussehen:

SELECT nummer, name 
FROM datei        
WHERE name like 'Meier%' 

Wenn ich aber eine RPG-Variable (search) verwende und mein Service-Programm aufrufe, findet er keine Daten.
Der Inhalt von search ist 'Meier%'.

c/Exec SQL                                                              
 c+ Declare C01 Cursor for
 c+  Select nummer, name
 c+  From datei
 c+  Where name LIKE :search                 
 c+  For Read Only                                          
 c/End-Exec 

[Fuerchau]

Der Grund ist, dass die Variable nach dem % noch Leerzeichen enthält die natürlich mitgesucht werden. Folgende Ergänzung:

... like trim(:search) ...

Damit werden Leerzeichen eliminiert.

[woki]

Vielen Dank!
Mit %trim hatte ichs schon probiert, aber das hat einen Fehler ergeben. Mit trim noch nicht.
Gibt es irgendwo eine Hilfe vielleicht ein RedBook über embeddet Sql in RPG?

[Fuerchau]

Das hat nichts mit embedded SQL zu tun sondern gehört zu SQL !
%trim() ist eine RPG-Builtin-Funktion
trim() ist eine SQL-Funktion

Am besten lädst du dir das SQL-Reference-Handbuch mal runter (pdf):
http://publib.boulder.ibm.com/iserie...f/rzahfli0.htm

[B.Hauser]

Vielen Dank!
Mit %trim hatte ichs schon probiert, aber das hat einen Fehler ergeben. Mit trim noch nicht.
Gibt es irgendwo eine Hilfe vielleicht ein RedBook über embeddet Sql in RPG?

Hallo Woki,

die Scalare Funktion TRIM kann man sich auch sparen, wenn man die Hostvariable als ein Feld mit Variabler Länge definiert. Dann werden die folgenden Zeichen ignoriert.

Alternativ kann man auch statt LIKE die Scalare Funktion POSSTR zu verwenden. Auch hier muss man entweder mit der Scalaren Funktion TRIM oder einer Host-Variable mit variabler Länge arbeiten. Die Funktionalität der Funktion POSSTR entspricht der Funktionalität des OpCodes SCAN bzw. der Built-In-Function %SCAN in RPG.

Beispiel:

D HstName         S             50A   varying         
 *--------------------------------------------------------
C                   Eval      HstName = '%Meier%'   
                                                    
C/Exec SQL                                          
C+ Declare CsrC1 Cursor for                         
C+   Select  Name from Adresse                     
C+     Where Name Like :HstName        
C/End-Exec      

C                   Eval      HstName = 'Huber'   

C/Exec SQL                                              
C+ Declare CsrC2 Cursor for                             
C+   Select  Name from Adresse                         
C+     Where PosStr (Name, :HstName) > 0   
C/End-Exec 

Unter folgenden Quellen findest Du Informationen über Embedded SQL:
1. Who Knew You Could Do That with RPG IV? A Sorcerer's Guide to System Access and More
2. Embedded SQL Programming
3. Embedded SQL

Birgitta