//DTSBD551 PROC 00000010 //* 00001700 //****************************************************************** 00001700 //* REMITAMT= TOTAL AMT FOR CHECKS SUBMITTED WITH TAPE //* EMTLOGNO = LOG NUMBER ASSIGNED BY SYSTEM //* CURRQTR = 0 = ACCEPT REPORTS WITHIN THE LAST 3 YEARS 00001700 //* 1 = ACCEPT ANY REPORT QTR //* TIMELY = Y = PROCESS REPORTS AS TIMELY 00001700 //* N = PROCESS REPORTS AS LATE 00001700 //* RCVD = FOR LATE RPTS ONLY - RECEIVED DATE 00001700 //* ERRORBYP= Y = BYPASS FATAL ERRORS 00001700 //* DUP=Y = ALLOW DUPLICATE SUBMISSIONS 00001700 //****************************************************************** 00001700 //* 00001700 //STEP0100 EXEC PGM=DTSBD551, EDIT ICESA DATA // COND=(0,LT), // PARM='&REMIT,&LOGNO,&QTR,&TIMELY,&RCVD,&ERRORBYP,&DUP' //SYSOUT DD SYSOUT=* //SYSPRT1 DD SYSOUT=* //SYSPRT2 DD SYSOUT=* //SYSPRT3 DD SYSOUT=* //SYSPRT4 DD SYSOUT=* //SYSPRT5 DD SYSOUT=* //SYSPRT6 DD SYSOUT=* //SYSPRT7 DD DUMMY //SYSPRT8 DD SYSOUT=* //SYSPRT9 DD SYSOUT=* //SYSFINAL DD DUMMY //SYSPRINT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //* //ICESAFIL DD DSN=&ICESAFIL, // DISP=SHR //* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //* //CURRBTCH DD DSN=DOESTAX.&LVLNODE..CURRBTCH, 00005000 // DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, // SPACE=(80,(80,80),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) //* //DTSFBTCO DD DSN=&&BTCTRAN, 00005000 // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //WAGETEMP DD DSN=&&WAGETMP, 00005000 // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) //* //WAGEOUT DD DSN=&&WAGEOUT, BWTC OUTPUT // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) //* //DTSBX210 DD DSN=&&DTSBX210, // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(2310,(900,900),RLSE), // DCB=(RECFM=FB,LRECL=231,BLKSIZE=2310) //CURBX210 DD DSN=DOESTAX.&MSTNODE..TST.BX210, // DISP=(OLD,KEEP,KEEP), // SPACE=(2310,(200,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) //* //DTSBX212 DD DSN=&&DTSBX212, // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(31800,(900,900),RLSE), // DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800) //*DTSBX212 DD DSN=DOESTAX.&LVLNODE..FTP.BX212(+1), //* DISP=(,CATLG,DELETE), //* UNIT=SYSDA, //* SPACE=(31800,(900,900),RLSE), //* DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) //* //DTSBX216 DD DSN=&&DTSBX216, // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(31800,(900,900),RLSE), // DCB=(RECFM=FB,LRECL=318,BLKSIZE=31800) //*DTSBX216 DD DSN=DOESTAX.&LVLNODE..FTP.BX216(+1), //* DISP=(,CATLG,DELETE), //* UNIT=SYSDA, //* SPACE=(31800,(900,900),RLSE), //* DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) //* //DTSFVRO1 DD DSN=&&BD551RPT, // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(16394,(900,900),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //DTSFVRO2 DD DSN=&&DTSR202, // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(16394,(900,900),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //UC30ARCV DD DUMMY //*C30ARCV DD DSN=&&UC30ARCV, //* DISP=(,PASS,DELETE), //* UNIT=SYSDA, //* SPACE=(800,(100,100),RLSE), //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //* //*DTSFVRO2 DD DSN=DOESTAX.&LVLNODE..DESBD201,DISP=SHR, //** DISP=(,CATLG,DELETE), //* SPACE=(16394,(900,900),RLSE), //* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR //CBCTYST DD DSN=DOES.CICS.FIN730.CBCTYST.EX100102,DISP=SHR //* 00080002 //STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS // COND=(05,LT), // REGION=0K //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&&BD551RPT,DISP=(OLD,DELETE,DELETE) // DD DSN=&&DTSR202,DISP=(OLD,PASS,DELETE) //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) //SORTOUT DD DSN=&&SRTRPT, // DISP=(,PASS,DELETE), // UNIT=SYSDA, // SPACE=(8192,(1000,1000),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR //***** 00110002 //* REPORT GENERATION 00110002 //STEP0300 EXEC PGM=DTSBD800, 00120002 // COND=(05,LT) 00130002 //SYSOUT DD SYSOUT=* 00140002 //SYSABOUT DD SYSOUT=* 00150002 //SYSUDUMP DD SYSOUT=* 00151002 //** 00152002 //PARMIN DD DUMMY 00153002 //** 00154002 //ATLSTIN DD DUMMY 00155002 //** 00156002 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //* //DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00157002 //** 00158002 //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00159002 // AMP=('BUFNI=5,BUFND=10') 00159102 //* 00159202 //** DEPOSIT TRANSMITTAL 00159302 //RPT202R1 DD SYSOUT=O, 00159402 // HOLD=NO, 00159502 // DEST=U@PRT65 00159602 //* 00159702 //** X202 EXPORT RECORD DUMMIED OUT. PRODUCED FROM DTSPDAY1. 00159302 //DTSX202F DD DUMMY 00159402 //* 00159202 //** FAILED TRANSACTION FATAL ERRORS REPORT 00159302 //RPT551R1 DD SYSOUT=Z, 00159402 // HOLD=&LHOLD., 00159502 // DEST=LOCAL 00159602 //* 00159702 //** FAILED TRANSACTION NON-FATAL ERRORS REPORT 00159302 //RPT551R2 DD SYSOUT=Z, 00159402 // HOLD=&LHOLD., 00159502 // DEST=LOCAL 00159602 //* 00159702 //** FAILED TRANSACTION NON-FATAL ERRORS REPORT MSG-E2 TO MSG-E5 //RPT551R3 DD SYSOUT=Z, // HOLD=&LHOLD., // DEST=LOCAL //* //RPT980R1 DD SYSOUT=Q,COPIES=2, 00164802 // HOLD=&LHOLD., 00164902 // DEST=LOCAL 00165002 //* //********** //*********************************************************************