//JDIVREPF  JOB MSGLEVEL=(1,1),MSGCLASS=F,TIME=1440   
//*                                                   
//* **READ ME ]]]]]]]                                 
//*     CICS 50=>HLQAREA=05                           
//*     CICS 20=>HLQAREA=02                           
//*     CICS 10=>HLQAREA=01                           
//* **CHANGE HERE ]]]]]]]                             
//*                                                   
//SET1     SET   HLQAREA=01                           
//*                                                   
//JOBLIB   DD DSN=BCI&HLQAREA..LIB.PROD.LOAD,DISP=SHR 
//         DD DSN=KCI&HLQAREA..LIB.PROD.LOAD,DISP=SHR 
//         DD DSN=KCI00.LIB.PROD.LOAD,DISP=SHR        
//*                                                   
//STEP1     EXEC PGM=IEFBR14                                      
//LIST      DD DSN=PRINT01.KCI&HLQAREA..FUNDSRP,DISP=(MOD,DELETE),
//          DCB=(RECFM=FB,LRECL=145,DSORG=PS),                    
//          SPACE=(TRK,1),UNIT=SYSDA                              
//*                                                               
//STEP2     EXEC PGM=DIVB006,PARM='ERRCOUNT(0)/'                  
//LIST      DD DSN=PRINT01.KCI&HLQAREA..FUNDSRP,DISP=(NEW,CATLG), 
//          DCB=(RECFM=FB,LRECL=145,DSORG=PS),                    
//          SPACE=(CYL,(50,5),RLSE),UNIT=SYSDA                    
//DVPARMR   DD DSN=BIO&HLQAREA..FUNDS.DVPARMR,DISP=SHR            
//DVTRANR   DD DSN=BIO&HLQAREA..FUNDS.DVTRANR,DISP=SHR            
//LIST      DD SYSOUT=*                                           
//CARD      DD *                                                  
  PT2  OEI IA NI?AAEAOA=ALL    CA IA?EIA IO 20050601 AI 20050630  
/*                                                                
//STEPFTP3     EXEC PGM=FTP,PARM='10.212.4.78 (EXIT'              
//SYSPRINT DD SYSOUT=*                                            
//OUTPUT  DD SYSOUT=*,DCB=(RECFM=FB,LRECL=160,BLKSIZE=3200)  
//INPUT   DD *                                               
 OPERATOR OPERATOR                                           
 SENDSITE                                                    
 LOCSITE SBD=BCA1VTF.FTP.TCPXLBIN                            
 CD  /KCI01/B6600/DIVIDENTI                                  
 PUT 'PRINT01.KCI01.FUNDSRP' FUNDSPR                         
 CLOSE                                                       
 QUIT                                                        
//*