19 lines
648 B
Plaintext
19 lines
648 B
Plaintext
//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
|
|
//**
|