Re: Control Break Programs example

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.