program won't let go of file

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

Hi all,

 
Our RPG OPM's always had a parameter ReturnType so that we could instruct them to return with either RT or LR on. At the end of processing, the caller would use a cleanup routine to call all the programs that had been activated. The called programs would then just set on LR and end. 

For some reason unbeknown to me, this method was not used with RPGIV programs. 

Now, this (simplified)situation has "evolved" :

PGM1(CLP)
	PGM2(RPGIII)
		PGM3(RPGIII)
			PGM4(RPGIV)
				PGM5(RPGIV Converted from RPGIII)

Everything is running in DFTACTGRP.

When PGM2 is finished, it will call PGM3 with ReturnType to tell it to switch on LR and return. PGM4 does not have this facility and always returns with LR off. As it does not know what PGM3 is doing, it never calls PGM5 to tell it to set on its LR indicator and its files stay open. 

On returning to PGM1, I need PGM5 to be freed up. A file it uses is staying open. The boss says to issue a call from PGM2 or PGM3 to PGM5 to get it to switch on LR. I don't know if that would even work, would it? Even if it did, there are other RPGIV called by PGM5 that would probably give the same problem. How do I get out of this mess? 


TIA.