Re: File open problem

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.