RE: IF Clause in /FREE format

["Bob cozzi" <cozzi@xxxxxxxxx>]

The free format stuff doesn't allow a "C" in column 6; it must be blank.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Peter Vidal
Sent: Tuesday, July 01, 2003 8:22 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: IF Clause in /FREE format

Hi list:

In my sea of ignorance, thirsty of adventure, I have started to write some
code
using the /FREE format, now that we are on V5.2.  I have an IF statement as
follows:

C/Free
C         If Tcode = 'TA' or Tcode = 'ON' or Tcode = 'OF';
.
.
.
.
C/End-Free


... but this IF clause is in error:
Operation code is not valid; specification is ignored.

What's up doc?

TIA,
Peter Vidal
Pall Aeropower Corp.
SR Programmer Analyst
WWW.Pall.com / 727-539-8448, x2414

"A good player makes himself look good; a great player makes the team look
good."
Author unknown


_______________________________________________
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.