Re: When ctl-opt main() is missing...

Hi Martjin,

this program works indeed as intended.

If you do not code the "main(..)" keyword, you end up with a "traditional"
ILE-RPG program which uses the cycle main "procedure".

This cycle main "procedure" is not enclosed in "dcl-proc/end-proc" and it
is normally repeated for every record in a primary or secondary file. The
cycle main "procedure" ends, when the last record was processed and the
*INLR indicator is *ON when it reached the end of the cycle main
"procedure".

But you might have no primary or secondary file - so the LR indicator
doesn't switch *ON automatically, so you have to code *INLR = *ON somewhere
in the cycle main "procedure".

So if all your code is enclosed inside of "real" procedures, you have
effectively an empty cycle main "procedure" - which is repeated until *INLR
is *ON ... which never happens - resulting in an endless loop.

And even as the new Power10 processors are really fast - they really just
can't finish an endless loop.

HTH and kind regards,
Daniel

Am 31.10.2024 um 15:40 schrieb Martijn van Breden <

m.vanbreden@xxxxxxxxxxxxxxxxxxxxxxxxxx>:

Hi all,

I've just helped out a very experienced colleague with a program that

just wouldn't run. In debug it halted at **free. It showed status RUN in
WrkActJob eaiting quite some CPU. In the call stack it stopped just past
program entry point _QRNP_PEP.... We were not even able to force it into an
error with the wrong number of parameters.

After a couple of hours testing we found that the ctl-opt main() keyword

was missing.

I would say that the compiler should have been able to tell us about

this situation or that it could have just ungracefully failed runtime.

Just out of curiosity: is there a reason why a program with this

condition does indeed compile and can be called without failing?

Thank you for any shared thoughts


Kind regards,



Martijn van Breden

lead software architect






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