78 lines
3.5 KiB
Plaintext
78 lines
3.5 KiB
Plaintext
//DTSRQ352 JOB (UI,4300,3400,T),PROD.UC30H.BE352, 00000010
|
|
// CLASS=S,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
//**** USER=#DOADTS,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
//* JOB : UC-30H YRLY MASS MAILING (910)
|
|
//* UC-30 COUNTS REPORT (908)
|
|
//* NO TPS CONTRIBUTION RPT RECORDS (719) (EXPORT)
|
|
//****
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//***
|
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='QR',
|
|
// PREBACK='Y'
|
|
//*
|
|
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ352),
|
|
// DISP=SHR
|
|
//*
|
|
//STEP0100.DTSFWGH DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//**** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//**** REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.RPT719R1 DD DUMMY
|
|
//STEP0100.RPT902R1 DD HOLD=YES
|
|
//STEP0100.RPT907R1 DD HOLD=YES
|
|
//STEP0100.RPT907R2 DD HOLD=YES
|
|
//STEP0100.RPT908R1 DD HOLD=YES
|
|
//*
|
|
//STEP0100.DTS910F1 DD DSN=DOESTAX.&LVLNODE..UC30HDAT, 490
|
|
// DISP=SHR
|
|
//*
|
|
//STEP0100.RPT910R1 DD HOLD=YES <=== OUTPUT TO THE FORM
|
|
//STEP0100.RPT910R2 DD HOLD=YES <=== OUTPUT TO THE FORM
|
|
//STEP0100.RPT980R1 DD HOLD=YES
|
|
//STEP0100.RPT991R1 DD HOLD=YES
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00631000
|
|
//*
|
|
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0',COND=(0,NE) 00015000
|
|
//SYSOUT DD SYSOUT=(*) 00017000
|
|
//SYSPRINT DD SYSOUT=(*) 00018000
|
|
//* 00019000
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR 00020000
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..UC30HDAT,DISP=SHR 00035000
|
|
//* DISP=(NEW,CATLG,DELETE), 00036000
|
|
//* UNIT=SYSDA, 00037000
|
|
//* SPACE=(CYL,(5,5),RLSE), 00038000
|
|
//* DCB=*.SORTIN 00040000
|
|
//* 00040100
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00040200
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00040300
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00040400
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00040500
|
|
//* 00042000
|
|
//SYSIN DD * 00043000
|
|
SORT FIELDS=(6,7,CH,A) 00044000
|
|
/* 00045000
|
|
//STEP0500 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)'
|
|
//***
|
|
//* 00046000
|