Re: EXPORTing subprocedures

Well that's interesting...

I've never needed EXPORT for sub-procs.

But I also long ago stopped creating PR for such also...
Remove the PR and it compiles. I also removed DftActGrp(*No) as it is
redundant for a linear main.
**Free
// Linear Main *MODULE with subprocedure

Ctl-Opt Main(MainProc);
Dcl-PR MainProc ExtPgm('TESTFREE');
End-PR;
Dcl-Proc MainProc;
Dcl-PI MainProc;
End-PI;
Dcl-S UserId Char(10) Inz(*USER);
Dsply 'In MainProc' UserId;
Msg();
Return;
End-Proc;

Dcl-Proc Msg;
Dcl-PI Msg;
End-PI;
Dcl-S UserId Char(10) Inz(*USER);
Dsply 'In Msg Proc' UserId;
Return;
End-Proc;

HTH,
Charles


On Wed, May 15, 2024 at 2:24 AM Brian Parkins <goodprophet.bp@xxxxxxxxx>
wrote:

OK, here is something I have never quite understood. Can anyone explain
why subprocedures within a Linear Main *MODULE have to be EXPORTed -
even when only referenced within the same *MODULE?

Example: A single source member follows, (please be gentle with my
coding.) CRTBNDRPG used with this particular example.
**Free
// Linear Main *MODULE with subprocedure
// Subprocedure MSG requires EXPORT keyword - why???
Ctl-Opt DftActGrp(*No) Main(MainProc);
Dcl-PR MainProc ExtPgm('PGM2_PROC1');
End-PR;
Dcl-Proc MainProc;
Dcl-PI MainProc;
End-PI;
Dcl-PR Msg;
End-PR;
Dcl-S UserId Char(10) Inz(*USER);
Dsply 'In MainProc' UserId;
Msg();
Return;
End-Proc;

Dcl-Proc Msg Export;
Dcl-PI Msg;
End-PI;
Dcl-S UserId Char(10) Inz(*USER);
Dsply 'In Msg Proc' UserId;
Return;
End-Proc;

If I rewrite the above as a Cycle Main *MODULE, the EXPORT keyword is
not required on the subprocedure. The RPG Reference states:
"If the EXPORT keyword is not specified, the procedure can only be
called from within the module."
So why is EXPORT needed in the above example? (If it is removed, a bind
error occurs.)

Thx for any insight.
Brian.
--
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.