66 lines
3.3 KiB
Plaintext
66 lines
3.3 KiB
Plaintext
//*****
|
|
//*
|
|
//* 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,PARM='VLTEST=0', 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
|