//DECDISK      PROC  DSN=,           DATA SET NAME OF TAPE FILE.        
//             FILE=,                POSITION OF FILE ON THE TAPE.      
//             VOLSER=               VOLUME SERIAL OF TAPE.             
//*                                                                     
//* REFER:     SYS2.PROCLIB(DECDISK)                                    
//*                                                                     
//* DOC:       COPY DEC TAPE FILE TO DISK 1 FOR 1 AND CONVERT           
//*            THE FORMAT FROM VARIABLE BLOCK SPANNED TO FIXED BLOCK.   
//*                                                                     
//DELETE       EXEC PGM=IEFBR14                       DELETE DATA SET   
//DD1          DD DSN=DEC.&DSN,DISP=(MOD,DELETE),     IF THERE          
//             UNIT=DISK,SPACE=(TRK,1),DCB=RECFM=U                      
//*                                                                     
//COPY         EXEC PGM=VBSTOFB  (CONVERT 512 BYTE VBS TO 80 BYTE FB)   
//*                                                                     
//SYSUT1       DD DSN=&DSN,DISP=(OLD,PASS),                             
//             UNIT=TAPE,VOL=(,RETAIN,,,SER=&VOLSER),                   
//             LABEL=(&FILE,SL)                                         
//SYSUT2       DD DSN=DEC.&DSN,DISP=(,CATLG),      "DEC" BECOMES 1ST    
//             UNIT=DISK,VOL=SER=WRK001,                 QUALIFIER      
//             SPACE=(TRK,(15,5),RLSE),                                 
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=4800)