RE: multiple search arguments in one scan?

["Bruce Guetzkow" <bruceg@xxxxxxxxxxxxxxxxxxxxxxx>]

Dan:

Have you considered doing it in SQL?

      *===============================================================
     d test...
     d                 pr              n   extproc(*CL:'TEST')
     d  value                       100a   const
      *===============================================================
      *  Procedures
      *===============================================================
     p test...
     p                 b                   export
      *===============================================================
     d test...
     d                 pi              n
     d  value                       100a   const
      *===============================================================
     d success         s               n   inz(*off)
     d success_val     s              1a   inz(*off)
      *===============================================================
      /free

         // Clear Values
                   reset success;
                   reset success_val;

      /end-free
      *===============================================================
     c/exec sql
     c+ select '1'
     c+   into :success_val
     c+   from sysibm/sysdummy1
     c+  where :value like '%&%'
     c+     or :value like '%+%%'
     c+     or :value like '%*%'
     c+     or :value like '%+_%'
     c+     or :value like '%?%'
     c/end-exec
      *===============================================================
      /free

         // Return Value
                   success = success_val;
                   return success;

      /end-free
      *===============================================================
     p                 e
      *===============================================================

>There *is* an easy way to do this in RPG, is there not?

Just a thought...

Bruce Guetzkow
Information Services Director
United Credit Service, Inc.
Phone: 262-723-2902
Fax: 262-723-5568
Email: bruceg@xxxxxxxxxxxxxxxxxxxxxxx
Web: www.unitedcreditservice.com