Re: AS/400 to IBM Mainframe Tape

[Don <dr2@xxxxxxxxxxxx>]

Bob,

go with the 9-track, actually the concept should would accross tape
types...

here's the concept:

You need to deal with a IBM standard label tape.  You need to use the CPYF
with a OVRTAPF or just use a CPYTOTAP.  The best thing is to use *FB
(fixed block) and fixed length records.  

Mainframers can't handle the data format of a SAVOBJ without a bunch of
programming, same as you couldn't handle a saved PDS send down with
IEHMOVE or something else that didn't send you what you wanted in fixed
rec/length format.

SO, let's say you have a physical file called DMAST in library DR2LIB.
It's got a record length of say 730 bytes.

First thing is calc the record blocking size.  For my example I'll use the
formula INT(32767/730)*730 which gives me the integer value of 32767/730
multiplied by my recordlength of 730 which is 32120 bytes per block.

then INZTAP to a standard tape and use the following command:

cpytotap fromfile(dr2lib/dmast) tofile(qtape) toseqnbr(1) tolabel(DMAST)
todev(tap01) toreels(*sl) torcdlen(730) toendopt(*unload) toblklen(32120)
torcdblk(*fb)

You can also use *calc in the toblklen.  The mainframer should be able to
do a proc tape if they have SAS or just a simple tape DEBE on the tape
when they get it...or you can do a dsptap to *print and ship it with the
tape...:)

The reason you specify a toblklen is to make sure you write more data than
IRG...:)

Let me know via pvt email if you have any further problems...:)

Don in DC


---------
On Tue, 9 May 2000, Bob Voltz wrote:

> 
> 
> I have a requirement to send a file to an unknown IBM mainframe on tape.
> 
> The requirements are as follows:
> 36 or 18 track cartridge (3480, 3490 or 3490e) or 9 track tape reel (6250 bpi)
> Character code: EBCDIC
> 
> I sent them a normal SAVOBJ on a 3480 cartridge, but they say they can't read
> it.  They gave me some gibberish about block sizes and end of record markers. 
> I
> would really appreciate any help on this one.
> 
> Bob Voltz
> Biomet
> 
> 
> +---
> | 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 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
+---