Re: string compares with 'wildcards' in rpgiv

["Jerry Jewel" <jerryjewel@xxxxxxxxx>]

If you really, really, want an all RPGIV solution -- here is a snippet from a 
Procedure I use, based on code by Bob Fike...



 *=====================================================================
 * .IsLike:  Scan text looking for LIKE pattern                        
 *    If pattern matches, returns *ON                                  
 *    If pattern does not match, returns *OFF                          
 *=====================================================================
 * Based on code originally appearing in Midrange Computing by BFike   
 *=====================================================================
P IsLike          B                   EXPORT                           
                                                                       
D IsLike          PI             1N                                    
 * public parms                                                        
D   iaText                   32767A   VARYING CONST                    
D   iaPattern                32767A   VARYING CONST                    
D   oiBegTxtMPos                10I 0 OPTIONS(*NOPASS)                 
D   oiEndTxtMPos                10I 0 OPTIONS(*NOPASS)                 
D   oiBegPatMPos                10I 0 OPTIONS(*NOPASS)                 
D   oiEndPatMPos                10I 0 OPTIONS(*NOPASS)                 
D   iaEscape                     1A   OPTIONS(*NOPASS) CONST           
 * private parms (intended for use by recursive calls by this *SRVPGM) 
D   iiTextLen                   10I 0 OPTIONS(*NOPASS) CONST           
D   iiPatLen                    10I 0 OPTIONS(*NOPASS) CONST           
D   iiTxtIndx                   10I 0 OPTIONS(*NOPASS) CONST           
D   iiPatIndx                   10I 0 OPTIONS(*NOPASS) CONST           



I believe all the RPGIV code is here...
http://www.mcpressonline.com/mc?50@45.RZuLa1jhXD0.3@.214a3133



NOTE:  I tweaked it a little and fixed a couple of bugs. 
They are logged below...

  *Modifications:                                                      
  *   When      Who and What                               
  *   --------  -------------------------------------------
  *   03/05/01  Jewel - Rewrote downloaded Like procedure: 
  *               o renamed Like to IsLike and changed     
  *                   variable naming convention           
  *               o fixed Escape parm (checks NOTSPECIFIED)
  *               o fixed length of private parms: 4P -> 10I
  *               o changed to return boolean value        
  *               o added opt parms to return beg/end text 
  *                   position and beg/end pattern position



Regards,
Jerry Jewel

Better living through fine code and hot coffee!




--
__________________________________________________________
Sign-up for your own FREE Personalized E-mail at Mail.com
http://www.mail.com/?sr=signup


"Free price comparison tool gives you the best prices and cash back!"
http://www.bestbuyfinder.com/download.htm