Re: SCAN in RPG

Just to add another solution with %scan here.
I spent many hours reading/debugging this thread, and 2 diff rpg iv books,
and ibm reference manual (none of the books had a
decent example beyond scanning for a constant, like  'XYZ')
Had my own scanning problem with data fields, but am
using a tool that gens the rpg, and it will only gen %scan!

the following line works  (at v4r4)
C                   EVAL      Pos=%scan(%trim(lib): string:1)
but the following will NOT work
C                   EVAL      lib = %trim(lib)
C                   EVAL      Pos=%scan(lib: string:1)

jim

----- Original Message -----
From: "Randy Gevedon" <randy_gevedon@hotmail.com>
To: <RPG400-L@midrange.com>
Sent: Friday, April 13, 2001 11:51 AM
Subject: Re: SCAN in RPG


>
> 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
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com
>
> +---
> | 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
> +---

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