//DTSUC30X JOB (UI,4300,3400,T),PROD.SEND.UC30,
//         CLASS=P,MSGCLASS=X,
//         USER=#DOADTS,
//         NOTIFY=ECNTJP2,
//****     TYPRUN=SCAN,
//         REGION=0M               /* RUNS AFTER DTSRQ902/ECNTV902
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//**
//** TRANSMIT THE QTRLY UC30 DATA FILE TO DHS.  THIS DATA MUST
//**   BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO DOES, AND
//**   THEN, **>TO A VENDOR FOR PRINTING & MAILING<** OF THE UC30'S.
//**
//** 1. CHECK NOTIFICATION OF ECNTJP2 (FOR JOB COMPLETION) AND
//** 2. NOTIFICATION OF ECNTSUP (FOR X'FER OF DATA) AND
//**      JCL OUTPUT UNDER ODC1UC30 (FOR CART. NUMBER)
//**
//STEP0100 EXEC PROC=NJESEND,                     /*  UC30 DATA
//         INFILE='DOESTAX.PROD.UC30DATA',
//         JCLSTART=NJEUC30S,
//         JCLEND=NJEUC30E
//**