Not quite. Edition 7 of the Intrinsics Reference Manual (as on my
LaserROM CD) says in the entry for FPOINT:
"If the filenum parameter refers to a byte stream file, the lrecnum
parameter is interpreted as a byte offset to which the file pointer is
set."
Still on the subject of FCOPY. One of the bytestream files I'm trying to
read is shown by Windows Explorer as 93KB (via a Samba share). On the HP
it has an EOF of 8193. An :FCOPY;CHAR;HEX lists one record of 4103
bytes.
regards,
Robert W.Mills
Systems Development Manager
Windsong Services
(020) 8309 3604
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Tracy Pierce
Sent: 07 October 2005 16:21
To: [log in to unmask]
Subject: Re: [HP3000-L] FSERR 40 when calling FPOINT -- Additional info
apparently fpoint sees the situation the same as does fcopy: no records
to which to point.
maybe you could redefine the file as one-byte fixed-length records and
get fpoint to do its magic.
I don't see the reason for the FS40, other than fpoint predating BA
files.
Tracy Pierce, GGBHTD
desk 415-923-2266
cell 415-517-7175
> -----Original Message-----
> From: Robert Mills [mailto:[log in to unmask]]
> Sent: Friday, October 07, 2005 4:53 AM
> To: [log in to unmask]
> Subject: FSERR 40 when calling FPOINT -- Additional info
>
> An ":fcopy from=fnac1.qwertyiw;to=;char;hex" reports that there is
> only one (1) record in the file.
>
>
> regards,
>
> Robert W.Mills
> Systems Development Manager
> Windsong Services
> (020) 8309 3604
>
> -----Original Message-----
> From: Robert Mills
> Sent: 07 October 2005 12:49
> To: 3000-L Mail List ([log in to unmask])
> Subject: FSERR 40 when calling FPOINT
>
> Environment: MPE/iX 6.5 and Cobol 85
>
> FPOINT intrinsic is returning an "OPERATION INCONSISTENT WITH ACCESS
> TYPE (FSERR 40)" against a bytestream file FOPENed with FOPTION =
> %40107 and AOPTION = %0.
>
> :LISTF,2 reports:
>
> ACCOUNT= SYSDEV GROUP= QWERTYIW
>
> FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
> SIZE TYP EOF LIMIT R/B SECTORS #X MX
>
> FNAC1 1B BA 4605 2147483647 1 256 1 *
>
> :LISTF,3 reports:
>
> FILE: FNAC1.QWERTYIW.SYSDEV
>
> 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: 4605 APPEND : ANY
> NUM SEC: 256 LOCK : ANY
> NUM EXT: 1 EXECUTE : ANY
> MAX REC: 2147483647 **SECURITY IS ON
> FLAGS : NO ACCESSORS
> NUM LABELS: 0 CREATED : WED, SEP 28, 2005, 11:54 AM
> MAX LABELS: 0 MODIFIED: WED, SEP 28, 2005, 11:54 AM
> DISC DEV #: 14 ACCESSED: FRI, OCT 7, 2005, 12:34 PM
> SEC OFFSET: 0 LABEL ADDR: **
> VOLCLASS : MPEXL_SYSTEM_VOLUME_SET:DISC
>
> What am I doing wrong?
>
> regards,
>
> Robert W.Mills
> Systems Development Manager
> Windsong Services
> (020) 8309 3604
>
> * 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 *
|
