EZACFSM1 - to add date in date/dilename by unsing instream procedure

//DLPXV1A  JOB (SULM2G20),                 
//             CLASS=0,                    
//             MSGCLASS=T,                 
//             NOTIFY=DLPXV1,              
//             USER=DLPXV1                 
//*                                        
//STEP040  EXEC  PGM=EZACFSM1              
//SYSOUT   DD SYSOUT=(*,INTRDR)            
//SYSIN    DD  DATA,DLM=@@                 
//DLPXV1B  JOB (SULM2G20),                 
//*            FTPFTP,                     
//             CLASS=0,                    
//             MSGCLASS=T,                 
//             NOTIFY=DLPXV1,              
//             USER=DLPXV1                 
//*                                        
//STEP050  EXEC PGM=IEBGENER               
//SYSPRINT DD  SYSOUT=*                     //SYSUT1   DD  DSN=TCCPU.PU0704DP.CLRFY.TES2,DISP=SHR                 
//SYSUT2   DD  DSN=TCCPU.PU0704DP.CLRFY.TES2.D&LYYMMDD,               
//             DISP=(,CATLG,DELETE),                                  
//             UNIT=SYSDA,                                            
//             SPACE=(CYL,(1,1),RLSE),                                
//             DCB=RECFM=FB                                           
//SYSIN    DD  DUMMY                                                  
@@                                                                    
//