//DTSUD551 PROC 00000010 //* 00001700 //***************************************************************** //* >>> DEVL VERSION: ACCESSES ONLY DEVL FILES <<< 00001700 //* 00001700 //* COPY REPORT AND WAGE DATA FROM TEMPORARY FILES TO 00001700 //* BTC. AND WAGE.BTC FOR INPUT TO DAILY UPDATE. 00001700 //* IT ALSO COPIES THE INPUT FILE TO AN ARCHIVE. //* THIS PROC RUNS ONLY ON SUCCESSFUL COMPLETION OF DTSBD551 //***************************************************************** //STEP0100 EXEC PGM=IDCAMS, COPY WAGES TO WAGE.BTC // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&WAGEOUT,DISP=(OLD,DELETE,DELETE) //OUTDD01 DD DSN=DOESTAX.DEVL.TST.WAGE.BTC(+1), // DISP=(,CATLG,DELETE), // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSRONE),DISP=SHR //* //STEP0110 EXEC PGM=IDCAMS, COPY T027 TRANSACTIONS TO BTC // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&BTCTRAN,DISP=(OLD,DELETE,DELETE) //OUTDD01 DD DSN=DOESTAX.DEVL.TST.BTC(+1), 00005000 // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSRONE),DISP=SHR //* //******************************************************************** //STEP0250 EXEC PGM=IDCAMS, COPY SUBMITTER OUTPUT // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&DTSBX210, // DISP=(OLD,DELETE,DELETE) //* //OUTDD01 DD DSN=DOESTAX.&MSTNODE..TST.BX210(+1), // DISP=(,CATLG,DELETE), // SPACE=(2310,(200,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSRONE),DISP=SHR //******************************************************************** //STEP0275 EXEC PGM=IDCAMS, COPY EMPLOYER OUTPUT // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&DTSBX212, // DISP=(OLD,DELETE,DELETE) //* //OUTDD01 DD DSN=DOESTAX.&MSTNODE..TST.BX212(+1), // DISP=(,CATLG,DELETE), // SPACE=(31800,(200,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSRONE),DISP=SHR //******************************************************************** //STEP0280 EXEC PGM=IDCAMS, COPY MESSAGES OUTPUT // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&DTSBX216, // DISP=(OLD,DELETE,DELETE) //* //OUTDD01 DD DSN=DOESTAX.&MSTNODE..TST.BX216(+1), // DISP=(,CATLG,DELETE), // SPACE=(31800,(200,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSRONE),DISP=SHR //******************************************************************** //STEP0290 EXEC PGM=IDCAMS, COPY R202 DEPOSIT TRANSMITTAL // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&DTSR202, // DISP=(OLD,DELETE,DELETE) //* //OUTDD01 DD DSN=DOESTAX.&MSTNODE..RPT.R202(+1), // DISP=(,CATLG,DELETE), // SPACE=(16394,(900,900),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSRONE),DISP=SHR //********************************************************************