RE: Free Form question?

Thanks again all.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Lapeyre, Francis" <FLAPEYRE@xxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/01/09 12:05 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Free Form question?






For x = 26 to 31;
*IN(x) = *off;
Endfor;

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 


 

-----Original Message-----
From: rpg400-l-bounces+flapeyre=stei.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+flapeyre=stei.com@xxxxxxxxxxxx] On Behalf Of
RPower@xxxxxxxxxx
Sent: Monday, January 9, 2006 9:27 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free Form question?

One more question,
I have asking these, but I've searched for the answer and can't seem to 
find
it, but I have some code I'm converting over to free form and I want to 
try
and remove as many of the /free /end-free as possible cause I just don't
like them...

Recall how we used to use:
Move '000000' *IN(26)
to set off the indicators *IN26 thru *In31.
I tried:
*IN(26) = '000000';
but it doesn't like it.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir
Winston Churchill




<Matt.Haas@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2006/01/09 11:42 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Free Form question?






Manual sez: Use "FOR" in free form. There are examples in the manual.

Matt 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of RPower@xxxxxxxxxx
Sent: Monday, January 09, 2006 10:07 AM
To: RPG programming on the AS400 / iSeries
Subject: Free Form question?

How does one code:
c                   do        6
in free form?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
________________________________________________________________________
___
Success is going from failure to failure without a loss of enthusiasm. -

Sir Winston Churchill