//****                                                                  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