Re: 370 data to AS/400

Tom dont know what you could have missed but here is how we do it:

                                                                                
 Type choices, press
Enter.                                                     
                                                                                
 Tape file  . . . . . . . . . . .   QTAPE        
Name                          
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL,
*CURLIB          
 To file  . . . . . . . . . . . .   SOMFIL        Name,
*PRINT                  
   Library  . . . . . . . . . . .     SOMLIB      Name, *LIBL,
*CURLIB          
 Sequence number  . . . . . . . .   *TAPF         1-16777215, *TAPF,
*NEXT      
 Tape label . . . . . . . . . . .  
*TAPF                                       
 Member . . . . . . . . . . . . .   *FIRST        Name, *FROMLABEL,
*FIRST      
 Device . . . . . . . . . . . . .   TAP07         Name,
*TAPF                   
                + for more
values                                               
 Copy from
reels:                                                               
   Label processing type  . . . .   *SL           *TAPF, *SL, *NL, *NS,
*BLP... 
   Number of reels  . . . . . . .   *TAPF         1-255,
*TAPF                  
 Record length  . . . . . . . . .   *TAPF         Number, *TAPF,
*CALC          
 End of tape option . . . . . . .   *UNLOAD       *TAPF, *REWIND,
*UNLOAD...    
 Replace or add records . . . . .   *ADD          *NONE, *ADD,
*REPLACE         
 Print format . . . . . . . . . .   *CHAR         *CHAR,
*HEX                   
                                                                       
More... 
                                                                               
Type choices, press
Enter.                                                     
                                                                               
                                                                               
                           Additional
Parameters                               
                                                                               
Volume identifier  . . . . . . .   *TAPF         Character value, *TAPF,
*NONE 
               + for more
values                                               
Block length . . . . . . . . . .   32320         1-524288, *TAPF,
*CALC        
Record block type  . . . . . . .   *FB           *TAPF, *F, *FB, *V,
*VB...    
Number of records to copy  . . .   *END          Number,
*END                  
                                                                               


































McCollem, Tom wrote:
> 
> Hi all,
> 
> I am trying to restore data saved from a S370 to an AS/400.  Unfortunately,
> I can't make any sense of the packed data.
> 
> Is there a parm I may have missed on the CPYFRMTAP command?  Any advise or
> suggestions?
> 
> TIA
> 
> Regards,
> Tom
> 
> +---
> | 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
+---