As stated in previous replies, once you have opened the file as
bytestream, read it 1 byte at a time, building up your output buffer
until you reach the quote character. Tedious, but with this type of
byte-stream I think you have no other choice.
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Robert Mills
Sent: 04 October 2005 14:15
To: [log in to unmask]
Subject: Re: [HP3000-L] FCONTROL 25 not working.
This is getting me puzzled.
I'm using HPFOPEN to open the file as OLD-PERMANENT, READ-ONLY,
EXCLUSIVE, NATIVE-BYTESTREAM. The returned filenumber was passed to
FREAD (works OK even though it wants an I16 and it was given an I32) and
FCONTROL (which did not work and wants an I16 value). Tried moving the
filenumber to an I16 and passing that to FCONTROL which still did not
work.
Have confirmed that both the I16 and I32 contains the same value.
Somebody please -- H E L P ! ! !
regards,
Robert W.Mills
Systems Development Manager
Windsong Services
(020) 8309 3604
-----Original Message-----
From: Miller, Keven [mailto:[log in to unmask]]
Sent: 03 October 2005 16:52
To: Robert Mills
Subject: Re: [HP3000-L] FCONTROL 25 not working.
I put this test together.
I used file 0 instead of FOPENing one of my own.
It seems to work ok for me.
Could your W410-FILENUM be invalid?
Keven
ps: After FREAD, FCHECK still gave me 0 for the error even after
using single quote to end the read.
001000$CONTROL POST85,NOSOURCE,NOLIST
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CONDITION-CODE IS Intrinsic-code.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CMD PIC X(150).
01 IERR PIC S9(4) COMP.
01 IPARM PIC S9(4) COMP.
01 CC PIC S9(4) COMP.
01 W410-FCONTROL-PARAMETERS.
05 W410-FILENUM Pic S9(04) Comp.
05 W410-ITEMNUM Pic S9(04) Comp Value 25.
05 W410-ITEM Pic 9(004) Comp Value %47.
PROCEDURE DIVISION.
MAIN SECTION.
* Define single-quote as an additional end-of-record character.
MOVE 0 TO W410-FILENUM.
Call Intrinsic "FCONTROL" Using W410-FILENUM,
W410-ITEMNUM,
W410-ITEM
End-Call
If Intrinsic-Code = 0 Then
Display "Additional EOR set."
Else
Display "Additional EOR not set."
CALL INTRINSIC "FCHECK" USING W410-FILENUM, IERR
DISPLAY "Fcheck=", IERR
End-If
Call Intrinsic "FREAD" Using W410-FILENUM, CMD, \-10\
Giving IPARM.
Call Intrinsic "FCHECK" Using W410-FILENUM, IERR.
DISPLAY "FREAD=", IPARM, " error=", IERR.
MAIN-EXIT.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
The contents of this email are confidential to the intended recipient
and may not be disclosed. Although it is believed that this email and
any attachments are virus free, it is the responsibility of the recipient to confirm this.
Smith & Williamson Corporate Finance Limited - A member of the London Stock Exchange.
A member of M&A International Inc. http://www.mergers.net Registered in England No. 4533970. Authorised and regulated by the Financial Services Authority
Smith & Williamson Investment Management Limited, Registered No. 976145. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Pension Consultancy Limited - Independent Intermediary. Registered No. 3133226. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Fund Administration Limited, Registered No. 1934644. Authorised and regulated by the Financial Services Authority.
Smith & Williamson Limited - A member of Nexia International. Registered in England No. 4534022. Regulated by the Institute of Chartered Accountants in England & Wales for a range of investment business activities.
NCL Investments Limited, Registered No. 1913794.
Member of the London Stock Exchange authorised and regulated by the Financial Services Authority.
Registered Office: 25 Moorgate, London EC2R 6AY
Telephone: 020 7131 4000 http://www.smith.williamson.co.uk
Nexia Audit Limited - A member of Nexia International. Registered in
England No. 4469576. Registered to carry on audit work and regulated by the Institute of Chartered Accountants in England & Wales for a range of investment business activities.
Registered Office: 25 Moorgate, London EC2R 6AY
Telephone: 020 7131 4000 http://www.nexiaaudit.co.uk
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|