I wonder if using 'hpfopen' would make a difference. Perhaps using
'fopen' somehow invokes (if I remember correctly) some emulator that
attempts to present the contents of bytestream files in a 'record'
oriented format.
A string search program (CM) that I have tries to read as large of a file
block as possible, but I could never get it to read more than a single
record at a time from a 'bytestream' file.
Regards
Paul Christidis
----------------------------------------------------------------------------------------
This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery. NOTE: Regardless of content, this e-mail shall not operate to
bind CSC to any order or other contract unless pursuant to explicit
written agreement or government initiative expressly permitting the use of
e-mail for such purpose.
----------------------------------------------------------------------------------------
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 *
|