//DTSUC3HX JOB (UI,4300,3400,T),PROD.SEND.UC30H,
//         CLASS=P,MSGCLASS=X,
//         NOTIFY=ECNTJP2,
//         USER=#DOADTS,
//****     TYPRUN=SCAN,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//**
//** TRANSMIT THE YRLY UC30H DATA FILE TO DHS.  THIS DATA MUST
//**   BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO A **>VENDOR
//**   FOR PRINTING & MAILING<** OF THE UC30H FORMS.
//**
//STEP0100 EXEC PROC=NJESEND,                     /*  UC30 DATA
//         INFILE='DOESTAX.PROD.UC30HDAT',
//         JCLSTART=NJEUC3HS,
//         JCLEND=NJEUC3HE
//**