Re: Control Break Programs example

[Michael Schutte <mschutte369@xxxxxxxxx>]

Are you asking for a sample using RPG Cycle and level indicators or would
free-format code do?

In free format.


Read file;
DoW not %EoF(file);
   DoW not %Eof(file);
      DoW not %Eof(file);
         DoW not %Eof(file);
             // processing for each record read.
             ReadE (filefield1:filefield2:filefield3) file;
         EndDo;

         ExSr fileField3Break#;
         Setgt (filefield1:filefield2:filefield3) file;
         ReadE (filefield1:filefield2) file;
      EndDo;

      ExSr fileField2Break#;
      Setgt (filefield1:filefield2) file;
      ReadE (filefield1) file;
   EndDo;
   ExSr fileField1Break#;
   Setgt (filefield1) file;
   Read file;
EndDo;
ExSr FinalBreak#;


On Thu, Mar 17, 2016 at 4:58 AM, gio.cot <gio.cot@xxxxxxxxxxx> wrote:

> Hi all
>
>
>
> As i would not more use RPG cycle and level indicator (L1, l2 ecc), i was
> looking for a Control Break Programs skeleton; doe's some gave any example
> or some link to suggest me to start on this purpose ?
>
>
>
> Thanks in advance
>
> --
> 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.