HP3000-L Archives

July 2004, Week 3

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:
Re: Cobol OPEN I-O vs GETPRIVMODE intrinsic
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Fri, 16 Jul 2004 13:09:08 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (76 lines) 
The file only gets opened once.

It is the presence of the GETPRIVMODE intrinsic that is causing this file
problems.

Without the call to GETPRIVMODE the file is opened successfully.

When I introduce the GETPRIVMODE the file cannot be opened.

Brian.

On Thu, 15 Jul 2004 09:56:56 -0400, Doug Werth <[log in to unmask]> wrote:

>Brian Donaldson wrote:
>> Are there any GETPRIVMODE experts out there who can tell me the
>> answer to this one?
>>
><snip>
>> ...
>> ...
>> CLOSE PAGE-031-FILE.
>> CLOSE   =>42<
>> OPEN OUTPUT PAGE-031-FILE.
>> OPEN OUT=>00<
>> CLOSE PAGE-031-FILE.
>> CLOSE   =>00<
>> OPEN I-O PAGE-031-FILE.
>> OPEN I-O=>00<
>>
>> CALL INTRINSIC "GETPRIVMODE" (need it so the AIF subs will work).
>> Works fine.
>>
>> Here's an interesting thing I just discovered:
>>
>> If I change things around slightly, thus:
>>
>> CALL INTRINSIC "GETPRIVMODE".
>>
>> CLOSE PAGE-031-FILE.
>> CLOSE   =>42<
>> OPEN OUTPUT PAGE-031-FILE.
>> OPEN OUT=>9<
>> CLOSE PAGE-031-FILE.
>> CLOSE   =>42<
>> OPEN I-O PAGE-031-FILE.
>> OPEN I-O=>9Z<
>>
>> Why can this file not be opened when the program is in priv mode?
>>
>
>Brian,
>
>The error 42 on CLOSE means you were trying to close a file that was
>previously closed. The error 9Z means you are trying to open a file that is
>already accessed and you are trying to open it exclusively (9 means file
>system error, Z=ascii 90 or File System Error 90).
>
>Is it possible your program is executing routines twice? Trying to close
the
>file twice, trying to open the file twice? Only the second time through
each
>routine would be an error, the first time through would result in a
>successful open or close. This may be a logic flaw that is only revealed
>when you are in priv mode.
>
>Doug.
>--
>Doug Werth                             Beechglen Development Inc.
>[log in to unmask]                               Cincinnati, Ohio
>
>* 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