embedded SQL Technique (BIF) to perform a %LIKE% in RPG

D MyText       S               50A   Varying inz('Search XYabZXYxxZ XYZ within a String')
D MySearch     S               10A   Varying inz('%XY__Z%')
D isFound      S                 N
 /Free
  Exec SQL  Set :isFound = Case When :MyText like :MySearch Then '1'
                                Else '0' End;
  If IsFound;
     //String is Found
  EndIf;


Birgitta Hauser  
Found on the Midrange-L mailing list. 
http://www.midrange.com

[report a broken link by clicking here]