Re: testing a value in specific position of the field

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

Or use a data structure?


D          DS
D Flag            1    10A
D  Switch         5     5A


IF  switch = 'Y';
 // Do something;
ENDIF;


Either way should work.  %Subst( ), though, uses fewer lines of code.  
Plus it has the advantage of having all of the pertinent code / logic in 
one place.

 
	* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Bob Cozzi wrote:

> Actually you can substring, like this:
>
>  If (%subst(usr1:5:1) = 'Y');
>   // Do your thing.
>  endif;
>
>
> -Bob Cozzi
> www.iSeriesTV.com
> iPod your industry news instead of reading it.
> Coming July 18, 2006
> Ask your friends to tune into iSeriesTV.com
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
> Behalf Of Yuriy Veletnik
> Sent: Thursday, July 20, 2006 3:02 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: testing a value in specific position of the field
>
> I have a file:
>
>
>
> User      User
>
> ID         Flag
>
> usr1      YNNNYNNYYY
>
> usr2      NYNYNNYYNNN
>
> usr3      NYNNYYNYYY
>
>
>
> I need to create a report that will print all the records with 'Y' in
> position 5 of User Flag field. I'm new to RPG, understand that I need to
> use runtime array, having problems with details. Any help greatly
> appreciated.
>
>
>
>
>
>
>
>
>
>
>
>
>
> Yuriy Veletnik
>
> AS/400 Administrator
>
> Trade Associates Group, ltd
>
> 1730 W. Wrightwood
>
> Chicago, IL 60614
>
> 773.871.1300 x130
>
>
>
>