Re: confusing coding?

Finding it doesn't make it good coding. I've seen worse. I've done
worse. :)

On Tue, Aug 5, 2025 at 8:21 AM cesco via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

You can find usually the DOW *ON idiom on codes that want to avoid the
double outside/inside FETCH / READ or already have a LEAVE / ITER inside
for other conditions.Otherwise typically you see READ ; DOW %EOF ; ....
.... ... ; READ ; END OF DO
To me not a big scandal, although a DOW *ON requires further inspection in
intent.
On Tuesday, August 5, 2025 at 01:30:31 PM GMT+2, Brad Stone <
bvstone@xxxxxxxxx> wrote:

In place of a conditional dow? It's poor coding. Very poor.


On Tue, Aug 5, 2025 at 2:06 AM Patrik Schindler <poc@xxxxxxxxxx> wrote:

Hello Brad,

Am 04.08.2025 um 19:56 schrieb Brad Stone <bvstone@xxxxxxxxx>:

dow '1' is a forever loop. yikes.

I've done stuff like that in the past, but only to be cheeky.

What's the issue with this? It's the only way to have a defined spot
somewhere within a loop to check-and-exit, not only at begin or end
(dow/doue).

:wq! PoC


--
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.

--
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.


--
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.