58 lines
3.2 KiB
Plaintext
58 lines
3.2 KiB
Plaintext
//DTSRQ707 JOB (UI,4300,3400,T),PROD.BD707, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
// REGION=0K
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** 00001700
|
|
// SET LVLNODE='DEVL' 00001700
|
|
// SET MSTNODE='PROD' 00001700
|
|
// SET LDEST=U@PRT65 00001700
|
|
// SET LHOLD='YES' 00001700
|
|
// SET LCYR='CY2003' 00001700
|
|
//**** 00001700
|
|
//** DTS BAD ADDRESSES BY ZIP CODE LIST. 00001700
|
|
//**** 00001700
|
|
//* EACH QUARTER TAX STAFF PREPARES A SPREADSHEET(S) WITH BAD
|
|
//* ADDRESSES FROM RETURNED UC30'S. THESE FILES WILL BE UPLOADED
|
|
//* AND PROCESSED BY THIS PROGRAM (& CREATES A FIELD ASSIGNMENT
|
|
//* (MFAS) FOR EACH EMPLOYER WITH A DC ADDRESS AND 3 OR MORE REPORTS
|
|
//* BEING PURSUED).
|
|
//* 00001700
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//* 00001700
|
|
//* (NO UPDATES PERFORMED - NO BACKUP NEEDED)
|
|
//* 00001700
|
|
//STEP0200 EXEC PGM=DTSBD707, COMPARE MTAD ADDRESS FROM FUTA ADDRESS
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//** /* CONCATENATE INPUT FILES AS NEEDED 00001700
|
|
//DTSBADAD DD DSN=DOESTAX.CONV.BADADDR,DISP=SHR 00005000
|
|
//** /* THIS FILE PRODUCED BY DTSRQ701 00001700
|
|
//DTSFRQST DD DSN=DOESTAX.CONV.FUTACERT.&LCYR., 00005000
|
|
// DISP=SHR 00005000
|
|
//** /* WORK FILE FOR SORT & RPT 00001700
|
|
//REPORTF1 DD DSN=&&BADADR,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=270,BLKSIZE=270)
|
|
//** 00001700
|
|
//DTSMSTR INCLUDE MEMBER=DTSIMSTR 00001600
|
|
//** 00001700
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**
|
|
//** DUTAS BAD ADDRESSES BY ZIP CODE 00001700
|
|
//RPT707R1 DD SYSOUT=O,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD
|
|
//**
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE)
|
|
//****
|
|
//*
|