//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 //*