RE: MOVE opcode in freeform (was Strange behavior w/%editc)

I'm not sure what the issue is. It could have been that way, but it
isn't. I like the idea of NOT coding the OPTION() keyword.

Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Seth.D.Shields@blum.com
> Sent: Wednesday, February 27, 2002 10:38 AM
> To: rpg400-l@midrange.com
> Subject: RE: MOVE opcode in freeform (was Strange behavior w/%editc)
>
>
> Bob Cozzi Wrote:
>
> >> The /FREE /end-free thing is consistent with /EXEC SQL /COPY,
/INCLUDE,
> >> etc.
> >> But if, in a future release, IBM wanted to support the ability to
have
> >> /FREE as the default for the compiled source member, they could
simply
> >> add a KEYWORD to the header specification:
> >>
> >>
> >> .....H  OPTION(*FREEFORMCALCS)
> >>
> >> Or similar.
> >> Then /FREE would NOT be needed, and ALL calcs would implicitly be
in
> >> free format.  Then, the only way to NOT have free format would be,
say
> >> to allow me to put a C in column 6.  Hence, this subtle change
would
> >> allow you to code free format starting, effectively in column 7.
> >>
> >> .....C                   MOVE  A           B
> >>          If   A = B;
> >>            C = A * 100;
> >>          else;
> >>            C = A * 50;
> >> .....C                   SETON                         LR
>
> I agree with this except for one thing.  Why would there be a need for
an H
> spec.
> Couldn't the compiler assume that any code that does not have a spec
letter in
> position 5
> or * or / in position 6 to be free format.  I personally like free
format but
> think the /free /end-free clutters up the code whether it is jumping
in and
> out
> of free format or not.
>
> Seth Shields
> Julius Blum Inc.
>
> _______________________________________________
> 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/cgi-bin/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.