Files
DUTAS/JCL/DTSRQ761.jcl

104 lines
5.0 KiB
Plaintext

//DTSRQ761 JOB (UI,4300,3400,T),PROD.RQ761.JOBSERV,CLASS=S,MSGCLASS=X,
// NOTIFY=ECNTJP2,
//**** TYPRUN=SCAN,
//**** USER=#DOADTS,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//**
// SET LVLNODE='PROD'
// SET LHOLD='NO'
// SET LDEST=U@PRT65
//****
//* ON REQUEST REPORT(S) FOR JOB SERVICE:
//* - DTSBR761 - MAILING LABEL EXTRACT
//* - DTSBR763 - NEW & REACTIVATED EMPLOYERS LIST
//****
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* NO BACKUP NEEDED BEFORE THIS REPORT
//STEP0100 EXEC DTSUEXT
//STEP0100.EXTPARM DD *
761,4,R
763
/*
//* REPORT RECORD SORT
//STEP0250 EXEC DTSRSORT
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
//DOESLBL1 EXEC PGM=IEBDG, 00001801
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00001900
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002001
// UNIT=SYSDA, 00002100
// SPACE=(TRK,1), 00002202
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00002405
// DISP=SHR 00002505
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003205
// COND=(0,LT)
//SYSPRINT DD SYSOUT=* 00003305
//FILEIN DD DSN=&&TMP901, 00003405
// DISP=(OLD,DELETE,DELETE), 00003505
// UNIT=SYSDA 00003605
//DOESVRO1 DD DSN=&&LBL901, 00003705
// DISP=(NEW,PASS,DELETE), 00003805
// UNIT=SYSDA, 00003905
// SPACE=(8192,(1000,1000),RLSE), 00004005
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004105
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00004205
// DISP=SHR 00004305
//**** /* REPORT GENERATION
//STEP0300 EXEC PGM=DTSBD800,
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//**
//PARMIN DD DUMMY
//**
//ATLSTIN DD DUMMY
//**
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
//** 00040001
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001
//**
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//* JOB SERVICE REPORT
//RPT763R1 DD SYSOUT=Z,
// HOLD=&LHOLD.,
// DEST=U@PRT65
//** NO LONGER PRODUCED THIS WAY (05.17.01)
//** REGULAR LABELS (DUMMY)
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663,
//** HOLD=&LHOLD.,
//** DEST=LOCAL
//* JOB SERVICE LABELS
//**RPT901R2 DD SYSOUT=(C,,6662),FCB=P663,
//** HOLD=&LHOLD.,
//** DEST=LOCAL
//** CONTROL REPORT SUMMARY
//RPT980R1 DD SYSOUT=Q,COPIES=2,
// HOLD=&LHOLD.,
// DEST=U@PRT65
//****
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00131001
// COND=(0,LT), 00140000
// REGION=4096K 00150000
//DOESVRI1 DD DSN=&&LBL901, 00150101
// DISP=(OLD,DELETE,DELETE) 00150201
//SYSOUT DD SYSOUT=* 00151000
//SYSABOUT DD SYSOUT=* 00152000
//SYSABEND DD SYSOUT=* 00153000
//CAIMRPTS DD SYSOUT=* 00154000
//DOESLBL1 DD SYSOUT=(C), 00155101
// FCB=P104, 00155201
// DEST=U@PRT155, 00155302
// HOLD=&LHOLD. 00155403
//** 00157001