Re: SCAN in RPG

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hi Randy,

I'm not sure what you're trying to say here...  but in the example
you included (quoted below) you're only searching for 'Q', instead
of 'QGPL'.    (Because you only gave a length of 1)

This will almost certainly lead to problems somewhere down the road :)


On Fri, 13 Apr 2001, Randy Gevedon wrote:
> 
> Scott
>       D Lib             S             10A
>       D String          S             80A
>       D Pos             S              5I 0
>       D Len             S              5I 0
> 
>       C*** This WILL work:
>       c                   eval      String = 'ADDLIBLE LIB(QGPL)'
>       c                   eval      Lib = 'QGPL'
>       c     Lib:1         scan      String        Pos
>       c                   dsply                   Pos
> 
> 
> Randy Gevedon

+---
| 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
+---