RE: multiple search arguments in one scan?

You could also write your own scan routine.

Something like: 

        Do stringlength x
Char = %subst(string:x:1)
If char = '%' or char = '&' ....

I would think it would be faster than multiple scans. Probably even faster
if you redefine the string as an array.

Albert York                          

        -----Original Message-----
        From:   rpg400-l-bounces+albert.york=nissan-usa.com@xxxxxxxxxxxx
[SMTP:rpg400-l-bounces+albert.york=nissan-usa.com@xxxxxxxxxxxx] On Behalf Of
Bob Cozzi
        Sent:   Tuesday, October 05, 2004 12:45 PM
        To:     'RPG programming on the AS400 / iSeries'
        Subject:        RE: multiple search arguments in one scan?

        Nope. Gotta scan multiple passes.
        If there's a lot of data records for which this is required, you
might
        consider using memchr() instead of %SCAN() since it will search much
faster
        than %SCAN().
        -Bob Cozzi


        -----Original Message-----
        From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
        On Behalf Of Dan Bale
        Sent: Tuesday, October 05, 2004 2:34 PM
        To: RPG400-L@xxxxxxxxxxxx
        Subject: multiple search arguments in one scan?

        Crud - severe brain fade moment...

        I want to test for the existence of one of several characters in a
string.

        %check lets you check for the first character that is NOT found in
the
        "comparator".

        %scan only lets you specify one search argument.

        I need to test a string to see if it has any occurrences of any of
the
        characters &, %, *, _, or ?

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

        FWIW, on V5R2.

        tia,
        db

        --
        This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list
        To post a message email: RPG400-L@xxxxxxxxxxxx
        To subscribe, unsubscribe, or change list options,
        visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
        or email: RPG400-L-request@xxxxxxxxxxxx
        Before posting, please take a moment to review the archives
        at http://archive.midrange.com/rpg400-l.



        --
        This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list
        To post a message email: RPG400-L@xxxxxxxxxxxx
        To subscribe, unsubscribe, or change list options,
        visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
        or email: RPG400-L-request@xxxxxxxxxxxx
        Before posting, please take a moment to review the archives
        at http://archive.midrange.com/rpg400-l.