Re: File open problem -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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?

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.