23 lines
878 B
Plaintext
23 lines
878 B
Plaintext
//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
|
|
//**
|