Re: File open problem

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Your RPGIV  program must have DFTACTGRP(*NO) ACTGRP(*CALLER)....which
is a no-no given that the calling program is a OPM RPGIII one...you
end up running an ILE program in the DAG...

Having the RPGIV return with LR=*ON may not solve the issue...even if
it appears to, you should have the RPGIV program have ACTGRP(*NEW) or
ACTGRP('MYACTGRP')  then your RPGIII could issue a RCLACTGRP along
with the RCLRSC.

Give some thought to converting the RPGIII and CLP to ILE....

HTH,
Charles

On Tue, Jan 11, 2011 at 5:40 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx> wrote:
> hi all,
>
> A coworker informs me of this problem :
>
>
> PGM_RPG_III
>
>          CALL PGM_RPG_IV
>                 CALLP ModifyDB
>                 CALL CLP
>
> Everything runs in the DAG.
> The CLP issues a RCLRSC. When control returns to PGM_RPG_III and it calls PGM_RPG_IV again, it crashes as the RCLRSC closed the files and PGM_RPG_IV does not reopen them. The "cure" was to delete the RCLRSC, but this has lead to other problems as the files used remain locked. I say that PGM_RPG_IV should simply use *INLR so that it would reopen the files on each call.
>
> What do you think?
> --
> This is the RPG programming on the IBM i / System i (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.