Re: Ending Free RPG

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

+1 


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

> On Mar 17, 2017, at 3:56 AM, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:
>
> Chris,
>
> Compile-time arrays work fine in **FREE without any **END-FREE type code...  (But O-specs and other fixed-form stuff does not.)
>
> For example:
>
> **FREE
> dcl-s array char(10) dim(5) ctdata;
> dcl-s x int(10);
>
> for x = 1 to %elem(array);
>   dsply array(x);
> endfor;
>
> *inlr = *on;
> **
> Line 1
> Line 2
> Line 3
> Line 4
> Line 5
>
>
> FWIW, I hope they do NOT document **END-FREE, and I'm disapointed in it.  One of the "features" of **FREE that I liked was that it forces you to stop using the outdated fixed format techniques anywhere in your code.
>
> People should replace O-specs with data structures, IMHO.
>
>
>
> On 3/16/17 4:06 PM, Hiebert, Chris wrote:
> > Does anyone know if IBM is going to add the "**end-free" to the
> > documentation specification for "**free"?
> >
> > Currently the operation is there, it's just hidden and used by the
> > SQL Precompiler.
> >
> > Using the "**end-free" appears to be the easiest solution to continue
> > using compile time arrays and "O-spec" in a **free RPGLE program.
> >
> > I just don't want to have to push the stuff into a copy book, which
> > seems overly tedious.
> -- 
> This is the RPG programming on the IBM i (AS/400 and 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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD