API QCLSCAN

[B.Hauser]

Man könnte sich auch mit einer kleinen RPG-Prozedur mit embedded SQL behelfen:

Die folgende Prozedur bringt *Zeros zurück, wenn der übergebene String nicht gefunden wurde. Ansonsten wird die erste Position an der der Such-String steht zurückgegeben.
Groß- und Kleinschreibung wird dabei ignoriert, d.h. wenn nach 'Dagobert Duck' gesucht wird, wird sowohl 'DAGOBERT DUCK' als auch 'dAgObErT dUcK' gefunden:

P ScanLangIdShr   B                   Export                 
                                                             
D ScanLangIdShr   PI            10I 0                        
D   PPText                   32740A   varying  Const         
D   PPSearch                 32740A   varying  Const         
                                                             
D  Position       S             10I 0                        
 *-------------------------------------------------------
C/EXEC SQL  Set Option SrtSeq = *LangIdShr                   
C/End-EXEC                                                   
                                                             
C/EXEC SQL  Set :Position = PosStr(:PPText, :PPSearch)       
C/End-EXEC                                                   
                                                             
C                   Return    Position                       
P ScanLangIdShr   E 

Birgitta