HP3000-L Archives

January 2010, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Sun, 24 Jan 2010 18:29:40 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (64 lines)
I solved the problem -- I was reading the Intrinsics manual incorrectly.

My mistake.

FFILEINFO Item 106 states that Perm domain = 1 and the temp domain = 2

I incorrectly read it as 2 for the perm and 1 for the temp domain.

My boo boo, so FFILEINFO works just fine.

Thanks anyway.





On Sat, 23 Jan 2010 19:09:20 -0500, Brian Donaldson <[log in to unmask]> wrote:

>To reaffirm my suspicions about FFILEINFO, I wrote a Pascal/AIF sub
>that calls AIFFILEGGET to give me the domain of this file and the AIF
>is telling me the file is in the TEMP domain, which is correct.
>
>So for whatever reason FFILEINFO is incorrectly reporting the domain as
>PERM.
>
>TIA,
>Brian Donaldson.
>
>
>On Sat, 23 Jan 2010 18:21:36 -0500, Brian Donaldson <[log in to unmask]> wrote:
>
>>I hope someone out there may know the answer to this one --
>>
>>I have a Cobol program that has opened a file in the TEMP domain.
>>
>>It is opened with FOPEN. I call FFILEINFO on that particular file number
>>to get a bunch of different items, one of which is the DOMAIN of the file
>>(item 106).
>>
>>FFILEINFO is telling me the file is in the PERM domain which is not correct.
>>There is
>>no such file in the PERM domain. It resides in the TEMP domain only. 
>>
>>This part of the program is covered by a call to GETPRIVMODE.
>>
>>I have even tried plugging in a call to GETUSERMODE but the results are the
>>same.
>>
>>There is no file equation in place for this file.
>>
>>Anyone have an idea what is happening?
>>
>>TIA,
>>Brian Donaldson.
>>
>>* To join/leave the list, search archives, change list settings, *
>>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

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

ATOM RSS1 RSS2