Re: SCAN in RPG

[Scott Klement <klemscot@xxxxxxxxxxxx>]

On Thu, 12 Apr 2001, Richard Reeve wrote:

> All,
> 
>      I am having a problem using SCAN in an RPG
> program.  I am attempting to scan CL source members
> looking for certain library names and replacing those
> library names with a variable.  The library names are
> there but the SCAN isn't picking them up.  Can someone
> give me some pointers please?
> 
> Thanks.
> 
> =====

D Pointer1        S               *
D Pointer2        S               *
D Pointer3        S               *
D Pointer4        S               *

There.  I gave you some pointers.   (Sorry, I'm feeling whimsical today)

Seriously, though....   most likely your scan is looking for a library
name with trailing blanks -- and if the blanks aren't there, it wont
count as a match.

Err... I don't know if you're working in RPG III or RPG IV...

Here's a trivial example of what I mean....   this is RPG IV code, 
but the same exact thing should also work in RPG III (and I didn't
use any BIFs so that it would be easy to convert)

     D Lib             S             10A
     D String          S             80A
     D Pos             S              5I 0
     D Len             S              5I 0

     C*** This WONT work:
     C***   Pos will be zero, because even though String contains
     C***    'QGPL', it doesn't contain 'QGPL      '
     c                   eval      String = 'ADDLIBLE LIB(QGPL)'
     c                   eval      Lib = 'QGPL'
     c     Lib           scan      String        Pos
     c                   dsply                   Pos

     C*** This WILL work since we're only scanning for 'QGPL'
     c     ' '           checkr    Lib           Len
     c     Lib:Len       scan      String        Pos
     c                   dsply                   Pos

     c                   eval      *inlr = *on

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---