//DTSBXREG JOB (UI,4300,3400,T),DTSBXREG-ESSP-REGA,                     00000010
//          CLASS=A,MSGCLASS=X,                                         00000010
//*          TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTZL1,
//          REGION=0M
//**********************************************************************00001700
//****************  CANNOT ADD NAME TO EMAIL LIST - MAX REACHED         00001700
//****************  TO ADD NAME REMOVE SOMEONE              4/20/17 ZL1 00001700
//**********************************************************************00001700
//   SET LVLNODE='CONV'
//   SET MSTNODE='PROD'
//   SET IMPNODE='CONV'
//   SET LVDHOLD='YES'                                                  00001700
//   SET LHOLD='YES'                                                    00001700
//   SET EXTNODE='CONV'                                                 00001700
//   SET RPTNODE='ESSP.BX420.RPT'                                       00001700
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB      /ESSP LOAD LIBARY               00001600
//**                                                                    00001700
//*   PROCESS EMPLOYER DATA FROM ESSP WEB DATABASE,UPDATE DUTAS         00001700
//*   MAINFRAME CICS SYSTEM.                                            00001700
//**                                                                    00001700
//** THIS JOB WILL CREATE REGISTRATION DATA FOR DUTAS TO CREATE         00001700
//** EMPLOYERS REGISTERED IN ESSP               11/21/14    ZL1         00001700
//**                                                                    00001700
//** JOB CAN RUN AND RERUN AT ANY TIME DOES NOT UPDATE MASTER FILES     00001700
//** IT WILL CREATE T002 AND T003 TRANSACTIONS FOR DUTAS.               00001700
//**                                                                    00001700
//** ESSP FILES PROCESSED BY THIS JOB                                   00001700
//*      - X102 -EMPLOYER PROFILE                                       00001700
//*      - X104 -DETERMINATION                                          00001700
//*      - X106 -EMPLOYER NAME                                          00001700
//*      - X108 -EMPLOYER RATES                                         00001700
//*      - X110 -EMPLOYER ADDRESS                                       00001700
//*      - X120 -EMPLOYER OPO DATA                                      00001700
//*                                                                     00001700
//*   DAILY INPUT FILES ARE SORTED INTO:                                00001700
//*         - DOESTAX.CONV.FROMESSP (+1) GDG                            00001700
//*                                                                     00001700
//*   READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003            00001700
//*               TRANSCATIONS                                          00001700
//*
//*   OUTPUT FILES:                                                     00001700
//*          DOESTAX.CONV.ESSP.X421.BTC        /EMPLOYER PROFILE CREATE 00001700
//*          DOESTAX.CONV.ESSP.X424.BTC      /EMPLOYER ADDRESS/OPO INFO 00001700
//*                                                                     00001700
//*   OUTPUT FILES ARE PASSED ON THE DAILY UPDATE JOB DTSPDAY1          00001700
//*   FOR PROCESSING                                                    00001700
//*                                                                     00001700
//*    ALL FILES INPUT AND OUTPUT ARE REINITLIZED EACH DAY AFTER        00001700
//*        DAILY CYCLE COMPLETES SUCESSUFLLY BY JOB DTSRQ202            00001700
//*                                                                     00001700
//*   BACKUPS:  ALL FILES INPUT AND OUTPUT ARE ARCHIVED IN JOB          00001700
//*             DTSRQ325 EACH DAY BEFORE THE DAILY CYCLE STARTS         00001700
//*                                                                     00001700
//*                                                                     00001700
//*   THIS JOB MAY BE RERUN.                                            00001700
//*   IT REBUILDS THE OUTPUT BTC FILES EACH TIME IT RUNS.               00001700
//**                                                                    00001700
//*****************************************************************
//*
//STEP0200 EXEC DTSNXREG        /CREATE DUTAS REGISTRATIONS DATA.
//*
//STEP0500 EXEC DTSRSESP        / SORTS ERROR REPT FOR NEXT STEP
//***
//*
//*TEP0600 EXEC DTSRERPT        / GENERATES ERROR REPORTS
//*TEP0600 EXEC DTSREGPT        / GENERATES ERROR REPORTS
//STEP0100.RPT140R1 DD  HOLD=YES
//STEP0100.RPT140R2 DD  HOLD=YES
//STEP0100.RPT907R1 DD  HOLD=YES
//STEP0100.RPT907R2 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//*                                                                     00001700
//************************* END PROC****************************    ZL1 00001700