Re: Indicating Total Time in Free Form when using RPG Cycle

[Jeff Young <jyoung0950@xxxxxxxxx>]

Matching Records????
Now you are REALLY going Waaaaaaaaaaaaaaaaaayyyyyyyyyyyyyyyyyyyyyy back!!!!
:)
But when did you last use Look Ahead fields?????????  :-)
or how about field level testing for + - 0 ???

Ahhhaaa, those were the days.

Is'nt RPG great?
You have the best of both worlds...the Cycle when it is appropriate, and
full procedural (walk through the file yourself) when that is the best fit.



On Wed, Jan 23, 2013 at 11:50 AM, Jerry C. Adams <midrange@xxxxxxxx> wrote:

> Unless one is checking for the control break on Detail time, I haven't come
> across one.  Although I've never felt a need to use L0.  Why not just:
>
>         CL9             CALLP (whatever)
>
> At least this way one only has the one disjointed calc-spec.
>
> A couple of years ago I reached into the Wayback Machine and actually coded
> a program using level breaks *and* matching records.  Could have (probably)
> done it without using the Cycle, but it was soooo much easier.
>
> Jerry C. Adams
> IBM i Programmer/Analyst
> The guy in the biggest hurry is often the one who's going nowhere fast.
> --
> Home Office: 615-832-2730
> email:  midrange@xxxxxxxx
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Jeff Young
> Sent: Wednesday, January 23, 2013 10:31 AM
> To: RPG programming on the IBM i / System i
> Subject: Indicating Total Time in Free Form when using RPG Cycle
>
> All,
> I have an RPGLE program that prints a report and uses the Cycle for Level
> Breaks.
> Other than breaking out of free form to indicate Total Time processing
> using CL0            If       *InLx, then back to Free Form until the end
> of total processing with /End-Free, CL0             EndIf,  Is there any
> way to do this only in Free Form?
>
> I know, the RPG Cycle is *old style*, but sometimes, it is the best tool
> for
> the job and I do not want to roll my own level breaks here just to be
> "modern".
>
> Thanks,
>
> --
> Jeff Young
> Sr. Programmer Analyst
> --
> 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.
>
>
> --
> 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.