Re: Problems with Prototyping and Calling RPGIII Programs

Hi Birgitta

I think this may be a PTF issue. I have tried multiple combinations of AGs
with the sample programs I sent you and changing the RPG 3 program to return
with LR on or off.

The fact that it seems to work fine when you use a CALL operation but does
not work in free form would seem to indicate something amiss in the
compiler/create.

Try to get some time off over the week end :-)

Paul


----- Original Message -----
From: "Hauser, Birgitta" <Birgitta.Hauser@xxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 05, 2005 2:24 PM
Subject: Re: Problems with Prototyping and Calling RPGIII Programs


> Hi Paul,
>
> >>My guess is that it is either Activation Groups, a PTF issue or
something
> in
> >>the code that we are not seeing :-)
>
> This was my first idea. That's why we recompiled the RPGIV and RPGIII
> programs.
> After recompiling we started a new session to get an "empty" environment.
> But no success!
>
> >>Since it looks like you are working on converted RPG III programs my
guess
> is
> >>that you are compiling with DFTACTGRP(*YES) but, just in case, which AG
is
> the
> >>RPG IV program running in? Was DFTACTGRP(*YES) specified on the
CRTBNDRPG
> or
> >>was it DFTACTGRP(*NO) with ACTGRP(*CALLER)? MCH3601 usually crops up
when
> AGs
> >>are reclaimed or some such and MCH3601 will occur if you have a "true"
ILE
>
> >>program running in the default AG and do a RCLRSC.
>
> I think we'd less problems if we would only use the default activation
group
> and no ILE.
> But we use named activation groups for our programs (Activation group =
> Program name)
> We only have a few RPGIV programs. Only what we call from menu or
> command line or submit are programs. The rest is embedded in service
> programs.
> Most service programs run in the activation group *CALLER.
> Some service programs that contain procedures that are called by almost
> every program,
> have named activation groups.
> We have a compile tool that determines the activation groups, creates
> programs and service programs,
> Adds service programs into binding directories, generates binding language
> sources
> and other things depending on our naming conventions.
>
> I think our problem is, that we have about 30% of our application highly
> modularized in ILE mode,
> About 20% in OPM RPGIV with a few procedure calls.
> And the rest is not yet converted. "Never change a running system!".
> For us converting means redesigning.
>
> With the programmers it's the same thing, some of them can think modular,
> some others less and some others never will learn it.
>
> I'll say thanks for help to everybody!
> This week-end I'll test some different situations, may be I can find out
> what happened.
>
> Birgitta
>
> --
> This is the RPG programming on the AS400 / 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.
>
>