RE: Open file

To whom it may concern:

There is an old System/38 trick that can be used to close files that are
left open.
If you can isolate the job stream that is leaving the files open.
You can use the RCLRSC (Reclaim Resources)command in a driver CLP program.
This will close all files opened during the application run.

Example:

             PGM        /* Customer Order Select */

/*******************************************************************/
/*  OBJECT ID: XXX350C          WRITTEN: 02/05/98         V4R4M0   */
/*       TEXT: CUSTOMER ORDER SELECT                               */
/*******************************************************************/
/*  MODIFICATIONS:                                                 */
/* --------------------------------------------------------------- */
/*  MOD     SCN      DATE       MODIFICATION SUMMARY               */
/* --------------------------------------------------------------- */
/*  XXX     XXX    XX/XX/XX     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX */
/*******************************************************************/

             OVRDBF     FILE(RCML12) SHARE(*YES)

             CALL       PGM(XXX350) <-- program calls other programs
                                    that use an open query file for
                                    select and leaves RCML12 open
                                    for sub file inquiry select.

             DLTOVR     FILE(*ALL)
             RCLRSC     <-- Closes RCML12 and any other file left open

 EOJ:        ENDPGM

I hope this helps.

Chris Ertz
Software Development Manager
American Metal Products
(662)890.8182
certz@americanmetalproducts.com


-----Original Message-----
From: bpcs-l-admin@midrange.com [mailto:bpcs-l-admin@midrange.com]On
Behalf Of DAsmussen@aol.com
Sent: Friday, March 22, 2002 6:45 PM
To: bpcs-l@midrange.com
Subject: Re: Open file


--
[ Picked text/plain from multipart/alternative ]
Hello, Anonymous,

In a message dated 3/22/02 4:53:34 PM US Eastern Standard Time,
THOWARD@accuridecorp.com writes:


> I have noticed several posting on the "open files after progam close"
issue
> but have as of yet found one that can tell me how to effectively close the
> file without dropping the current BPCS session (getting out of BPCS). I am
> trying to do an OVRDBF which is not being performed because the file is
> still open. Have tried this with Secure *YES on the override but still do
> not get the desired results. Have tried DLTOVR as well as I have  written
a
> program to try and open and close the file but the file still remains
open.
> Any assistance will be greatly appreciated.
>

The SECURE(*YES) should work, as long as you are performing an override
scope
 of *JOB.  The only reason it wouldn't work would be if you're performing it
within an ADK program and not performing an OPEN to the file _after_ the
override...

JMHO,

Dean Asmussen
Enterprise Systems Consulting, Inc.
Fuquay-Varina, NC  USA
E-mail:  DAsmussen@aol.com

"Often the best way to win is to forget to keep score." -- Marianne Espinosa
Murphy
_______________________________________________
This is the SSA's BPCS ERP System (BPCS-L) mailing list
To post a message email: BPCS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/bpcs-l
or email: BPCS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/bpcs-l.