• Subject: RE: Processing Tape Files
  • From: Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>
  • Date: Mon, 27 Nov 2000 09:37:36 -0800

The simple clumsy solution, which could use a lot of tape, is to use
cpytotap or write directly to tape in RPG with qtape defined as a sequential
program described file to put the file on tape.  

You can read directly from tape using the sequential file method.  You'll
need to define a data structure to receive the input from the file.  

Here's an excerpt from an RPGIII program we use to read directly from tape
in cases where cpyfrmtap chokes on media errors--in RPG you can skip the bad
block(s) with a little error handling. 

 FQTAPE   IF  F     750            SEQ                  
 FOUTFILE O   F     750            DISK                 
 IFLD1        DS                                        
 I                                        1 250 FLDA    
 I                                      251 500 FLDB    
 I                                      501 750 FLDC    
 C                     READ QTAPE     FLD1         9899 

> -----Original Message-----
> From: theresa.luebeck@springs.com [mailto:theresa.luebeck@springs.com]
> Sent: Monday, November 27, 2000 7:29 AM
> To: midrange-l@midrange.com
> Subject: Processing Tape Files
> Hello all,
> Has anyone come up with a way to directly process records from a tape
> through an RPG or CL program?  We're looking for a way to save/archive
> records from a large file on the AS/400 to tape and then, at 
> a later time,
> we would like to be able to read through the records on the tape with
> specific processing.  We're a converted mainframe shop and we 
> know how to
> do this from that standpoint, but don't know if this possible on the
> AS/400.  We really don't want to use SAVLIB and RSTLIB due to 
> the volume of
> records we're anticipating putting onto tape.
> Thanks,
> Theresa Luebeck
> Springs Window Fashions
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].