DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
37
JCL/DTSBZ084.jcl
Normal file
37
JCL/DTSBZ084.jcl
Normal file
@ -0,0 +1,37 @@
|
||||
//DTSBZ084 JOB (UI,4300,3400,T),PROD.BZ084,CLASS=P,MSGCLASS=X, 00000010
|
||||
// USER=#DOADTS,
|
||||
//*** NOTIFY=ECNTSUP
|
||||
// NOTIFY=ECNTJP2
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//* 00001700
|
||||
// SET PRGNODE='DEVL' 00001700
|
||||
// SET MSTNODE='PROD' 00001700
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//* 00001700
|
||||
//STEP0100 EXEC PGM=DTSBZ084, /* T031 ADJUSTMENT FOR HOUSEHOLD
|
||||
// COND=(0,LT), /* EMPS DELINQUENT IN 2002/1
|
||||
// REGION=4096K
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSABEND DD SYSOUT=*
|
||||
//CAIMRPTS DD SYSOUT=*
|
||||
//DTSFMSTA DD DSN=DOESTAX.&MSTNODE..VSAM.MSTA,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFMSTB DD DSN=DOESTAX.&MSTNODE..VSAM.MSTB,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFMSTC DD DSN=DOESTAX.&MSTNODE..VSAM.MSTC,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFMSTD DD DSN=DOESTAX.&MSTNODE..VSAM.MSTD,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFAIX DD DSN=DOESTAX.&MSTNODE..VSAM.AIX,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(8192,(1000,1000),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
/*
|
||||
//****
|
||||
Reference in New Issue
Block a user