RE: "If %scan(x:y)" is not valid??? -- RPG400-L

IGNORE THIS ... my finished reply is on it's way through our sluggish
server!


-----Original Message-----
From: Mike Haston ** Data 
Sent: Monday, February 10, 2003 4:31 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: "If %scan(x:y)" is not valid???


That's why I've seen people asking for built-in functions like:

c     if    acflag = %list( 'a' 'b' 'c' )

or

c     if    date = %range( 030101 030201 )


For reading sake you could always:

d notFound       s         


   C          IF           ACFLAG = 'A'
   C                         AND %scan( W_WIPSTA : 'BHIP') <> notFound
   C                         AND %scan( W_BILTYP : 'CFR' ) > 0

-----Original Message-----
From: Dan [mailto:dbcerpg@yahoo.com]
Sent: Monday, February 10, 2003 3:55 PM
To: rpg400-l@midrange.com
Subject: "If %scan(x:y)" is not valid???


(All variable fields described here are 1-character)

I was somewhat surprised to find that 
   C          IF        %scan( ACFLAG : 'ABC' ) 
does not compile, even at v5r2.  I have to add a "> 0" test to make it work,
i.e., 
   C          IF        %scan( ACFLAG : 'ABC' ) > 0

I am trying to avoid the 
   C  ACFLAG  SCAN   'ABC'
   C          IF     %FOUND

Currently, I am looking at a block of code like this
   C          IF           ACFLAG = 'A'
   C                         AND (   W_WIPSTA = 'B'
   C                              OR W_WIPSTA = 'H'
   C                              OR W_WIPSTA = 'I'
   C                              OR W_WIPSTA = 'P')
   C                         AND (   W_BILTYP = 'C'
   C                              OR W_BILTYP = 'F'
   C                              OR W_BILTYP = 'R')
and would like to simplify it thusly:
   C          IF           ACFLAG = 'A'
   C                         AND %scan( W_WIPSTA : 'BHIP') > 0
   C                         AND %scan( W_BILTYP : 'CFR' ) > 0

(Actually, my example is simplified; I have more tests than that.)
Is this understandable?  At first glance, I found it confusing.  I would
much rather code this
more like:
   C          IF           ACFLAG = 'A'
   C                         AND W_WIPSTA = ('B' 'H' 'I' 'P')
   C                         AND W_BILTYP = ('C' 'F' 'R')
where multiple values in a parentheses set in an "if equal" test logically
implies an OR grouping.

Curious minds need to know...
TIA, Dan

__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
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@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.