RE: RPG Free Format question

Eval  %subarr(*IN:20:4) = *ALL'0';


-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Sara, Richard
Sent: Wednesday, June 22, 2005 7:03 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: RPG Free Format question

I use a looping structure to accomplish this task; I am sure movea is
history. No idea RE the books, sorry.

Rich Sara
Senior Programmer\Analyst
John Maneely and Related Companies
Station House Building
900 Haddon Ave
Collingswood NJ, 08108
Phone: 856-854-5400, ext 347
Toll Free:  800-257-8182, ext 347
Fax: 856-854-6267

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of PHarte@xxxxxxxxxx
Sent: Wednesday, June 22, 2005 8:03 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG Free Format question

Is there a function in Free Format RPG that allows me to turn off more than
one indicator in a single statement similar to the 
c                   movea     '0000'        *in(20)

Does anybody know which is the better of the Free Format RPG books to
purchase?


Thanks,
Pat.