Re: File open problem

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi David,

This normally happens when a service program is set up with 
ACTGRP(*CALLER), and gets called from the DAG.  RCLRSC doesn't 
understand service programs, but it does understand files.  so it closes 
the files, but leaves the service program loaded, and thinking that it's 
file is still open.   Next time the service program runs, it goes 
haywire, referring to memory that's either freed up, or in use for a 
different purpose.

I can't see how *INLR would help.

This issue is why most/all ILE experts tell people to use named 
activation groups instead of using ACTGRP(*CALLER) for all ILE PGM objects.



On 1/11/2011 4:40 AM, David FOXWELL 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?