CAVman Conversion › Tape Contents › Load the Tape to Disk

Load the Tape to Disk

To load the tape to disk, modify and run the following job stream:

//...     JOB ...
//UNLOAD  PROC DU='SYSDA',           <--- SPECIFY DEFAULT DISK UNIT  
//             DV='disk-volser',     <--- SPECIFY DEFAULT DISK VOLSER
//             HLQ='hlq',            <--- SPECIFY HIGH-LEVEL QUALIFIER
//             TU='CART',            <--- SPECIFY DEFAULT TAPE UNIT
//             TV='tape-volser'      <--- SPECIFY DEFAULT TAPE VOLSER
//STEP1   EXEC PGM=IEBCOPY                
//SYSPRINT  DD SYSOUT=*                   
//TF1 DD DSN=CAI.TPX.V2TCNTL,           
//             DISP=(OLD,KEEP),           
//             UNIT=&TU,                  
//             VOL=SER=&TV,               
//             LABEL=(9,SL,EXPDT=98000)  
//TF2 DD DSN=CAI.TPX.V2TLOAD,           
//             DISP=(OLD,KEEP),           
//             UNIT=&TU,                  
//             VOL=SER=&TV,               
//             LABEL=(10,SL,EXPDT=98000)  
//DF1       DD DSN=&HLQ..V2TCNTL,         
//             DISP=(NEW,CATLG),          
//             UNIT=&DU,
//             VOL=SER=&DV,                         
//             SPACE=(TRK,(15,15,15)),              
//             DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB) 
//DF2       DD DSN=&HLQ..V2TLOAD,                   
//             DISP=(NEW,CATLG),                    
//             UNIT=&DU,                            
//             VOL=SER=&DV,                         
//             SPACE=(TRK,(15,15,5)),               
//             DCB=(BLKSIZE=6144,RECFM=U)           
//        PEND                                      
//STEP1   EXEC UNLOAD                               
//SYSIN     DD *                                    
 COPY INDD=TF1,OUTDD=DF1                            
 COPY INDD=TF2,OUTDD=DF2                            
//