RE: AS/400 to IBM Mainframe Tape

Try CPYTOTAP.  Ask them if they prefer standard label or non labeled tape.
Give it a block size that's a multiple of the record length--a good one is
INT((32k -1)/reclen) * reclen .  

Copy the file directly, don't send them a SAVOBJ. Here's a screen print for
a standard label tape made from a file with a 666 byte record length.  It
assumes that the device file is called QTAPE.  I think I remembered the
relevent parameters, haven't done this in a couple of years.

                             Copy To Tape (CPYTOTAP)

 

 Type choices, press Enter.

 

 From file  . . . . . . . . . . .   yourfile      Name

   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB

 Tape file  . . . . . . . . . . .   qtape         Name

   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB

 From member  . . . . . . . . . .   *FIRST        Name, generic*, *FIRST,
*ALL 
 File sequence number . . . . . .   *TAPF         1-16777215, *TAPF, *END

 Tape label . . . . . . . . . . .   *FROMMBR

 Device . . . . . . . . . . . . .   *TAPF         Name, *TAPF

                + for more values

 Copy to reels:

   Label processing type  . . . .   *sl           *TAPF, *SL, *NL, *LTM

 Record length  . . . . . . . . .   666           Number, *TAPF, *CALC...

 End of tape option . . . . . . .   *unload       *TAPF, *REWIND, *UNLOAD...

 

 

 

 

                            Additional Parameters

 

 Volume identifier  . . . . . . .   *none         Character value, *TAPF,
*NONE
                + for more values

 Block length . . . . . . . . . .   32634         1-524288, *TAPF, *CALC

 Record block type  . . . . . . .   *fb           *TAPF, *F, *FB, *V, *VB...

 File expiration date . . . . . .   *TAPF         Date, *TAPF, *PERM

 Number of records to copy  . . .   *END          Number, *END

 Data compaction  . . . . . . . .   *TAPF         *TAPF, *NO

 




> -----Original Message-----
> From: Bob Voltz [mailto:Bob_Voltz@Biometmail.com]
> Sent: Tuesday, May 09, 2000 7:54 AM
> To: MIDRANGE-L@midrange.com
> Subject: AS/400 to IBM Mainframe Tape
> 
> 
> 
> 
> 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
+---