Re: Is **FREE even needed?

The critical thing to note is "just begins in column 8" - actually column 7 is OK for comments etc.

If you start in column 7/8 and only use up to and including position 80 for source code then the code can be anything - including dcl type free syntax.

You'd have to do it this way if you want to use O-specs for example.

I use it quite a bit in teaching examples as I need somewhere to put the (x) markers that I use to label individual code lines.

On Jun 18, 2020, at 12:25 PM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx> wrote:

Your impression is correct - and the sample code is also correct.

There is only 1 member in the 7.3 samples that is fully-free - JSONTEST.

The rest have ONLY free-form code, but that doesn't make them fully-free by the new definition, where you CAN use the full width, all the way back to column 1.

Regards
Vern

On 6/18/2020 11:16 AM, Nathan Andelin wrote:

I was under the impression that it was necessary to begin fully-free RPG
with **free in column 1 of line 1. But fully-free sample code in file
QOAR/SAMPLE provided by IBM just begins on line 1 column 8. It compiles
fine. It appears that **free is not really necessary. How about that?

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com