96 lines
4.9 KiB
Plaintext
96 lines
4.9 KiB
Plaintext
//DTSRQ762 JOB (UI,4300,3400,T),PROD.RQ762.SPECLABL,
|
|
// 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='YES'
|
|
// SET LDEST=U@PRT65
|
|
//**
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//* ON REQUEST REPORT(S) FOR JOB SERVICE:
|
|
//* - DTSBR762 - SPECIAL MAILING LABEL EXTRACT
|
|
//****
|
|
//* NO BACKUP NEEDED BEFORE THIS REPORT
|
|
//STEP0100 EXEC DTSUEXT
|
|
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ762),
|
|
// DISP=SHR
|
|
//* /* REPORT RECORD SORT
|
|
//STEP0250 EXEC DTSRSORT
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
|
|
//DOESLBL1 EXEC PGM=IEBDG 00001801
|
|
//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
|
|
//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)
|
|
//** 00060000
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001
|
|
//**
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//* 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
|
|
//**** 00120000
|
|
//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
|