//***** //* //* DAILY EFT EMPLOYER STATUS EXTRACT //* //***** //EFTEX100 PROC RUNTYPE='OR', // PREBACK='N', // CHKONLY='N', // IOTRACE='N' //* //********************************************************************* //STEP0100 EXEC PGM=EFTBD400, PERIODIC EXTRACT // COND=(0,LT), // PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.' //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWGH DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFBTCO DD DUMMY //* DISP=(,CATLG,DELETE), //* SPACE=(16384,(100,100),RLSE), //* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //DTSFVRO1 DD DSN=DOESTAX.&CYPNODE..GOV1.EFTEXT, // DISP=SHR //* DISP=(,CATLG,DELETE), //* UNIT=SYSDA, 00003116 //** SPACE=(CYL,(400,100),RLSE), //* SPACE=(8192,(1000,1000),RLSE), 00003216 //* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DDNAME=EXTPARM //************************************************************* //*TEP0200 EXEC PGM=SORT, SORT OUTPUT RECORDS 00002116 //** COND=(0,LT) 00002216 //*YSOUT DD SYSOUT=* 00002316 //*ORTIN DD DSN=DOESTAX.&LVLNODE..EFTG1EXT, //* DISP=(OLD,PASS,DELETE), 00003016 //* UNIT=SYSDA, 00003116 //** SPACE=(CYL,(400,100),RLSE), //* SPACE=(8192,(1000,1000),RLSE), 00003216 //* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00003316 //* 00003416 //*SORTOUT DD DSN=DOESTAX.&LVLNODE..EFTESR(+1), //*ORTOUT DD DSN=DOESTAX.&LVLNODE..EFTEX100, //* DISP=(OLD,KEEP,KEEP), //* DISP=(,CATLG,DELETE), //* UNIT=CART, 00003116 //* VOLUME=(,RETAIN), 00003116 //* LABEL=(1,SL), 00003116 //* SPACE=(8192,(1000,1000),RLSE), 00003216 //* UNIT=SYSDA, 00003116 //* SPACE=(CYL,(400,100),RLSE), //* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //*YSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTSREC1),DISP=SHR 00004016 //*ORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004116 //*ORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004216 //*ORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004316 //*ORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004416 //**** 00004516