In message <[log in to unmask]>, Brian 
Donaldson <[log in to unmask]> writing at 17:09:56 in his/her local time 
opines:-
>I am experiencing a rather strange little problem.
>
>I have a Cobol/Vplus program that uses a bunch of KSAMXL files inside a Vplus
>app.
>
>I use the FOPEN intrinsic to open these KSAMXL files. The program is in user
>mode (no GETPRIVMODE being used at all)
>
>On one of these files in particular when I call FCLOSE (zero disposition) it
>is causing VPLUS to close the fast forms file!
>
>After I call FCLOSE on this one particular KSAMXL file, all of my Vplus
>calls are failing because the fast forms file has closed.
>
>This problem is only occurring on this one particular KSAMXL file. All of my
>FCLOSE's on the other files do not give me this problem.
>
>The file equation I am using for this file is :
>
>FILE TEAMS=TEAMS.DATA.SUPRLEAG;SHR;SAVE;GMULTI;LOCK
>
>Any comments, suggestions, insight, help will be much appreciated as always.
>
>TIA,
>
>Brian Donaldson.

Does the KSAMXL file close *as well*, or is it *just* the FFF that 
closes?

What's the FFF called, and what file equate (if any) are you using for 
that?

Is this all a single program - any subprograms or calls? If so, are the 
FFF and the KSAMXL in the root program, or in one of the subs? Same one 
or different?

What happens if you change the order of closing of the KSAMXL files 
(assuming this is to an extent arbitrary)?

Most likely, though, you are passing a filenum to the FCLOSE that is for 
the FFF, not the file you think it is for.

Can you display the filenums assigned to each KSAMXL file as it is 
opened, and then display the one you are using just before you close 
each one?

I'm guessing they may not be the same for the offending KSAMXL file.

In which case, you need to look at how the right one got clobbered, or 
the wrong one got used.

(Do I vaguely remember that the FFF uses filenum 0, or at least some 
very low one; if indeed zero, then an initialised - but not assigned - 
variable or array element for the filenum you intended would do it?)

How are you obtaining, and storing, and replaying, the filenums for your 
KSAMXL files? (I assume you are obtaining each one explicitly, not just 
assuming they step up in sequence - a sequence that would be broken if 
the FFF was opened in the middle of all that (or even initially if you 
forgot that a filenum is needed for the FFF, even if VPLUS keeps that 
close to its chest and doesn't reveal it).

Long shot if it's none of the above - are you doing anything that 
conflicts with the DL area restrictions (VPLUS Manual Appendix E) ?

-- 
Roy Brown        'Have nothing in your houses that you do not know to be
Kelmscott Ltd     useful, or believe to be beautiful'  William Morris

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *