//DECPDS       PROC  DSN=,        DATA SET NAME OF TAPE FILE            
//             FILE=,             NUMBER OF FILE ON TAPE                
//             VOLSER=,           VOLUME SERIAL OF TAPE                 
//             PDS=,              DATA SET NAME OF RECEIVING PDS        
//             MEMBER=            MEMBER NAME TO BE CREATED             
//*                                                                     
//* REFER:     SYS2.PROCLIB(DECPDS)                                     
//*                                                                     
//* DOC:       COPY DECK TAPE FILE TO MEMBER OF A PDS AND CONVERT IT    
//*            FROM 512 VBS TO 80 FB.                                   
//*                                                                     
//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=&PDS(&MEMBER),DISP=OLD  EXISTING PDS