HP3000-L Archives

September 2005, Week 4

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:
Re: Reading logical records from a bytestream file.
From:
"Gribbin, Francis J." <[log in to unmask]>
Reply To:
Gribbin, Francis J.
Date:
Tue, 27 Sep 2005 09:46:26 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (70 lines) 
You could preprocess the file.

1. Write a quick and dirty on the 3000 to read x bytes at a time, 
replace all single quotes with carriage returns, and 
write to a new bytestream.

2. Move the file to a PC.  
In Word replace all single quotes with a carriage return and 
make sure to save as a .txt.  
Move the file back to the 3000.  
I did the moves with SAMBA and it worked.

Regards,

Frank Gribbin
Information Systems
Potter Anderson & Corroon LLP
 

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Robert Mills
Sent: Monday, September 26, 2005 1:02 PM
To: [log in to unmask]
Subject: Re: [HP3000-L] Reading logical records from a bytestream file.

I've had several replies to this post. Some suggested using tobyte and
another's suggested treating the file as variable format.

Sadly neither of these will work as the file does not contain any of the
normally accepted record terminators (CR or CR/LF). It uses a single
quote (') to indicate the end of a record.


regards,
 
Robert W.Mills
Systems Development Manager
Windsong Services
(020) 8309 3604

-----Original Message-----
From: Robert Mills
Sent: 26 September 2005 16:36
To: 3000-L Mail List ([log in to unmask])
Subject: Reading logical records from a bytestream file.

I have a bytestream file that contains up to several hundred logical
records terminated by a printable character. The file needs to be read
by an existing Cobol program that is invoked by another program using
the create and activate intrinsic.

Before I write a read routine to do the unblocking of this file I'm
asking if there is anybody on the list who has already done something
like this and is willing to share some code?
 

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 *

ATOM RSS1 RSS2