//RECEIVEJ JOB (9999),'',CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1), 
// REGION=0M,NOTIFY=&SYSUID                                 
//ALLOCATE EXEC PGM=IEFBR14                                 
//SALIDA   DD DSN=IBMUSER.CBT019,                           
//            DISP=(,CATLG,DELETE),                         
//            UNIT=3390,                                    
//            SPACE=(CYL,(5,10,15)),                        
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)          
//RECEIVE  EXEC PGM=IKJEFT01,                               
//            DYNAMNBR=30                                   
//FROMFILE DD DSN=IBMUSER.CBT019.XMI,                       
//            DISP=SHR                                      
//SYSPRINT DD  SYSOUT=*                                     
//SYSTSPRT DD SYSOUT=*                                      
//SYSTSIN  DD  *                                            
 RECEIVE   +                                                
 INDDNAME(FROMFILE)                                         
 DATASET('IBMUSER.CBT019')                                  
/*