34 lines
2.6 KiB
Plaintext
34 lines
2.6 KiB
Plaintext
//DTSUC30T JOB (UI,4300,3400,T),PROD.UC30.TAPE, 00000128
|
|
// CLASS=P,MSGCLASS=X, 00000227
|
|
//**** TYPRUN=SCAN, 00000317
|
|
// NOTIFY=ECNTSUP,REGION=0K 00000417
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//** 00000510
|
|
// SET LVLNODE='PROD' 00001327
|
|
//***SET LVOLSER='300154' 00001427
|
|
//* 00001612
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001712
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001812
|
|
//**** 00001927
|
|
//** - CREATE A CART./TAPE WITH CONTRIBUTION/WAGE DATA (E.G., 00002027
|
|
//** THE UI RATE) FOR SHIPMENT TO A **>VENDOR FOR PRINTING<** 00002129
|
|
//**** 00002227
|
|
//STEPCPY1 EXEC PGM=IDCAMS 00100027
|
|
//SYSPRINT DD SYSOUT=* 00101027
|
|
//INDD01 DD DSN=DOESTAX.PROD.UC30DATA, 00102027
|
|
// DISP=SHR 00103027
|
|
//INDD02 DD DSN=DOESTAX.UC30DATA, 00104027
|
|
// UNIT=E85, 00105027
|
|
//**** UNIT=3480, 00105127
|
|
//**** VOL=SER=&LVOLSER., 00106028
|
|
// VOLUME=(,RETAIN), 00107027
|
|
// DISP=(NEW,KEEP,DELETE), 00108027
|
|
// LABEL=(1,SL), 00109027
|
|
//**** LABEL=EXPDT=98000, 00109127
|
|
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=385) 00109227
|
|
//SYSIN DD * 00109327
|
|
REPRO INFILE(INDD01) OUTFILE(INDD02) 00109427
|
|
/* 00109527
|
|
// 00109627
|
|
//** 00110000
|