99 lines
7.8 KiB
Plaintext
99 lines
7.8 KiB
Plaintext
//**** 00000104
|
|
//** 00000204
|
|
//** EXTRACT STEP FOR THE ANNUAL FUTA CERTIFICATION 00000304
|
|
//** 00000404
|
|
//DTSUX704 PROC 00000511
|
|
//** DEFNS NEEDED FOR THIS PROC: 00000611
|
|
//** LVLNODE = DEVL/TEST/PROD 00000711
|
|
//** FISCALYR = FYNNNN (WHERE NNNN=THE 4-DIGIT YEAR) 00000811
|
|
//** 00000911
|
|
//** 00001011
|
|
//********************************************************************* 00001111
|
|
//** FUTA CERTIFICATION - PART 2 00001211
|
|
//STEP0100 EXEC PGM=DTSBD610, 00001311
|
|
// COND=(0,LT), 00001412
|
|
// PARM='98' 00001512
|
|
//SYSOUT DD SYSOUT=* 00001611
|
|
//SYSABOUT DD SYSOUT=* 00001711
|
|
//SYSUDUMP DD SYSOUT=* 00001811
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00002011
|
|
//DTSFRQST DD DUMMY 00002111
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00002211
|
|
// AMP=('BUFNI=5,BUFND=10') 00002311
|
|
//DTSFZ50 DD DSN=DOESTAX.&LVLNODE..FUTAZ50.&FISCALYR., 00002412
|
|
// DISP=(,CATLG,DELETE), 00002511
|
|
// UNIT=SYSDA, 00002611
|
|
// SPACE=(CYL,(1,1),RLSE), 00002711
|
|
// DCB=(RECFM=FB,LRECL=326,BLKSIZE=9780) 00002811
|
|
//DTSFNZ50 DD DSN=DOESTAX.&LVLNODE..FUTANZ50.&FISCALYR., 00002912
|
|
// DISP=(,CATLG,DELETE), 00003011
|
|
// UNIT=SYSDA, 00003111
|
|
// SPACE=(CYL,(1,1),RLSE), 00003211
|
|
// DCB=(RECFM=FB,LRECL=326,BLKSIZE=9780) 00003311
|
|
//DTSFRPLY DD DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR., 00003411
|
|
// DISP=(,CATLG,DELETE), 00004000
|
|
// UNIT=SYSDA, 00005000
|
|
// SPACE=(TRK,(30,30),RLSE), 00006019
|
|
// DCB=(RECFM=FB,LRECL=326,BLKSIZE=27710) 00007018
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1), 00040004
|
|
// DISP=(,CATLG,DELETE), 00041000
|
|
// UNIT=SYSDA, 00042000
|
|
// SPACE=(CYL,(5,1),RLSE), 00043000
|
|
// DCB=(SYS3.MODEL,RECFM=VB,BLKSIZE=19069) 00044000
|
|
//DTSFCURR DD DSN=&&CURR, 00044111
|
|
// DISP=(,PASS,DELETE), 00044211
|
|
// UNIT=SYSDA, 00044311
|
|
// SPACE=(TRK,(15,15),RLSE), 00044411
|
|
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=8000) 00044511
|
|
//** 00047517
|
|
//** SORT AND ELIMINATE DUPLICATES 00047617
|
|
//** FROM CURRENT YEAR CERTIFICATION 00047717
|
|
//STEP0200 EXEC PGM=DTSBD620, 00047817
|
|
// COND=(0,LT) 00048005
|
|
//SYSOUT DD SYSOUT=* 00049000
|
|
//SYSABOUT DD SYSOUT=* 00050000
|
|
//SYSUDUMP DD SYSOUT=* 00060000
|
|
//DTSFIN DD DSN=&&CURR,DISP=(OLD,DELETE,DELETE) 00070000
|
|
//DTSFOUT DD DSN=&&SCURR, 00080000
|
|
// DISP=(,PASS,DELETE), 00090000
|
|
// UNIT=SYSDA, 00091000
|
|
// SPACE=(TRK,(15,15),RLSE), 00092000
|
|
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=8000) 00093000
|
|
//*** 00094010
|
|
//STEP0300 EXEC PGM=IDCAMS, DEFINE EMPLOYERS CERTIFIED FOR 00095000
|
|
// COND=(0,LT) CURRENT YEAR VSAM FILE 00096008
|
|
//SYSPRINT DD SYSOUT=* 00097000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSTCURR),DISP=SHR 00098009
|
|
//*** 00159810
|
|
//STEP0400 EXEC PGM=SORT, LOAD EMPLOYERS CERTIFIED FOR 00159900
|
|
// COND=(0,LT) CURRENT YEAR VSAM FILE 00160000
|
|
//SYSOUT DD SYSOUT=* 00170000
|
|
//SORTIN DD DSN=&&SCURR,DISP=(OLD,DELETE,DELETE) 00180000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.CURRCERT,DISP=SHR, 00190004
|
|
// AMP=('BUFNI=5,BUFND=20') 00200000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00210004
|
|
//*************************************************************** 00220000
|
|
//** FUTA NON FEDERAL FILER 00230006
|
|
//STEP0500 EXEC PGM=DTSBD630, 00240006
|
|
// COND=(0,LT) 00250000
|
|
//SYSOUT DD SYSOUT=* 00260000
|
|
//SYSABOUT DD SYSOUT=* 00270000
|
|
//SYSUDUMP DD SYSOUT=* 00280000
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00310000
|
|
//DTSFCERT DD DSN=DOESTAX.&LVLNODE..VSAM.CURRCERT,DISP=SHR, 00311012
|
|
// AMP=('BUFNI=5,BUFND=10') 00312012
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00320004
|
|
// AMP=('BUFNI=5,BUFND=10') 00330000
|
|
//DTSFPOT DD DUMMY 00340018
|
|
//**DTSFPOT DD DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR., 00341018
|
|
//** DISP=(,CATLG,DELETE), //** NO LONGER 00350018
|
|
//** UNIT=SYSDA, //** NEEDED 00360018
|
|
//** SPACE=(CYL,(15,15),RLSE), 00370018
|
|
//** DCB=(RECFM=FB,LRECL=401,BLKSIZE=2005) 00380018
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2), 00390004
|
|
// DISP=(,CATLG,DELETE), 00400000
|
|
// UNIT=SYSDA, 00410000
|
|
// SPACE=(CYL,(5,1),RLSE), 00420000
|
|
// DCB=(SYS3.MODEL,RECFM=VB,BLKSIZE=19069) 00430000
|
|
//* 00440001
|