Re: SCAN in RPG

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Jim,

How is lib defined? If it's defined as VARYING, it should work; if not, it
will not work.

hth,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: "Jim Franz" <jfranz@triad.rr.com>
To: <RPG400-L@midrange.com>
Sent: Saturday, April 28, 2001 1:36 PM
Subject: 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
> +---


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