//DECRDR  PROC DSN='IBMJCL.DAT',       DEFAULT FILE NAME                
//             VOLSER='999999'         DEFAULT TAPE VOL SER             
//*                                                                     
//* REFER:  SYS2.PROCLIB(DECRDR)                                        
//*                                                                     
//* DOC:    THIS PROCEDURE, WHEN STARTED THRU THE CONSOLE WILL          
//*         READ THE FIRST FILE ON A "DEC TO IBM" TAPE AND SEND IT      
//*         TO THE INTERNAL READER. (Tape created by AVATU/TAPEXFER
//*         on VAX 11/750)
//*                                                                     
//IEFPROC    EXEC  PGM=VBSTOFB   VBS TO FB                              
//SYSIN      DD    DUMMY                                                
//SYSPRINT   DD    SYSOUT=A                                             
//SYSUT1     DD    DDNAME=IEFRDER                                       
//SYSUT2     DD    SYSOUT=(A,INTRDR),DCB=BLKSIZE=80                     
//IEFRDER    DD    DSN=&DSN,DISP=OLD,                                   
//           UNIT=TAPE,VOL=(,RETAIN,,,SER=&VOLSER),                     
//           LABEL=(1,SL)