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:
Denys Beauchemin <[log in to unmask]>
Reply To:
Denys Beauchemin <[log in to unmask]>
Date:
Wed, 20 Aug 2008 21:26:39 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (101 lines)
Excuse me?

:build denys1;rec=-1,,b,ascii;disc=2147483647
:listf denys1,2
ACCOUNT=  DENYS       GROUP=  PUB     

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

DENYS1              1B  BA           0 2147483647   1        0  0  *


:listf denys1,3
********************
FILE: DENYS1.PUB.DENYS           

FILE CODE : 0                   FOPTIONS: ASCII,BYTESTREAM,NOCCTL,STD
BLK FACTOR: 1                   CREATOR : **                   
REC SIZE: 1(BYTES)              LOCKWORD: **                   
BLK SIZE: 1(BYTES)              SECURITY--READ    : ANY        
EXT SIZE: 0(SECT)                         WRITE   : ANY        
NUM REC: 0                                APPEND  : ANY        
NUM SEC: 0                                LOCK    : ANY        
NUM EXT: 0                                EXECUTE : ANY        
MAX REC: 2147483647                     **SECURITY IS ON       
                                FLAGS   : NO ACCESSORS         
NUM LABELS: 0                   CREATED : WED, AUG 20, 2008,  9:18 PM
MAX LABELS: 0                   MODIFIED: WED, AUG 20, 2008,  9:18 PM
DISC DEV #: 3                   ACCESSED: WED, AUG 20, 2008,  9:18 PM
SEC OFFSET: 0                   LABEL ADDR: **                 
VOLCLASS  : MPEXL_SYSTEM_VOLUME_SET:DISC


:

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Brian Donaldson
Sent: Wednesday, August 20, 2008 8:59 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] The POSiX Animal On An MPE Box

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 *
No virus found in this incoming message.
Checked by AVG - http://www.avg.com 
Version: 8.0.138 / Virus Database: 270.6.6/1624 - Release Date: 8/20/2008
7:11 PM

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

ATOM RSS1 RSS2