//DTSRQ439 JOB (UI,4300,3400,T),RUNRQ439,
//         CLASS=S,MSGCLASS=X,
//         USER=#DOADTS,
//         NOTIFY=ECNTSUP,
//**       TYPRUN=SCAN,
//         REGION=0M
//**
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET LHOLD='YES'
//**
//*
//*******************************************************************
//* - DTSBE439 - WRITE OFF PARAMETERS:
//*   1. INCLUDE EMPLOYERS WITH DEFERED PAYMENT CONTRACRS (Y/N).
//*   2. INCLUDE EMPLOYERS WITH LIENS (Y/N).
//*   3. INCLUDE SELF-INSURED EMPLOYERS (Y/N).
//*   4. IF THE PARAMETER IS: 'N,BLANK,BLANK'  OR 'BLANK,BLANK,BLANK'
//*      THE DEFAULT WILL BE 'N,Y,Y' OR 'Y,Y,Y', RESPECTIVELY.
//*******************************************************************
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*  NO BACKUP NEEDED BEFORE THIS REPORT
//STEP0100 EXEC DTSUX439,
//             RUNTYPE='OR',
//             PREBACK='Y'
//STEP0100.EXTPARM DD *
439,N,N,Y
/*
//*                        REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//*                        REPORT GENERATION
//STEP0300 EXEC PGM=DTSBD800,
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//**
//PARMIN   DD  DUMMY
//**
//ATLSTIN  DD  DUMMY
//**
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//**
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//DTSFVRI1 DD  DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
//**
//**   WRITE OFF CANDIDATE REPORT
//RPT439R1 DD  SYSOUT=Z,
//             HOLD=&LHOLD.,
//             DEST=LOCAL
//**                             CONTROL REPORT SUMMARY
//RPT980R1 DD  SYSOUT=Q,COPIES=2,
//             HOLD=&LHOLD.,
//             DEST=LOCAL
//*
//****************************************************************
//***                              SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP
//SYSPRINT DD  SYSOUT=*
//SOUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT439),DISP=SHR
/*
//****
//*     THE NORMAL DAILY BACKUP
//*     DUE TO THE CHANGES IN THE DATABASE MADE BY THE RUN.
//*
//STEP0400 EXEC DTSUTVSM,
//         BKUPGEN='(+1)'
//*