HP3000-L Archives

August 2008, 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:
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Wed, 20 Aug 2008 21:59:15 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (51 lines)
My problem was only happening with bytestream files.

I discovered that FOPEN wasn't working correctly in opening these file
types. FOPEN apparently opened the file, returned a non zero positive
file number but the file was nowhere to be found, not in the perm or temp
directories.

I had to replace the FOPEN with a call to HPFOPEN which works
perfectly. Don't even specify the file limit and HPFOPEN builds the file
with the correct flimit. 

I also discovered that the BUILD command won't build a bytestream file.
I found a way around this -- wrote a utility that will build a bytestream
file based upon user defined parms.

Same with priv mode files. My little utility will build a bytestream or
PM file based upon user defined parms (either in the perm or temp domains).

I will offer a copy of this utility to anyone out there who wishes a copy of
it.

Let me know.

Brian.



On Wed, 20 Aug 2008 09:00:02 -0500, Michael <[log in to unmask]> wrote:

>Actually signed 16 bit should be Compute my-signed-16-bit-nbr = (0 +
>(16384 * 2)) - 1, unsigned ((0 + (16384 * 4) - 1.
>
>In any case  16 bit 32 bit and so on  MOVE looks at the  four digit
>limit in s9(4) comp, where compute looks at the 16 bit limit.
>
>It's Ok to talk to yourself, as long as you don't answer your own
>questions :-P
>
>I wrote:
>> In the past I've used the Cobol Compute statement to get around this
>> issue.
>>
>> Compute my-16-bit-nbr = 0 + 65.535
>>
>
>* 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