103 lines
5.3 KiB
Plaintext
103 lines
5.3 KiB
Plaintext
//*****
|
|
//** REPORT GENERATION FOR AUDIT ASSIGNMENT (DTSRQ602)
|
|
//*****
|
|
//DTSRQ602 PROC LDEST='U@PRT155',
|
|
// LVDHOLD='YES'
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
|
|
//DOESLBL1 EXEC PGM=IEBDG, 00001806
|
|
// COND=(0,LT) 00001906
|
|
//SYSPRINT DD SYSOUT=* 00002006
|
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106
|
|
// UNIT=SYSDA, 00002206
|
|
// SPACE=(TRK,1), 00002306
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
|
|
// DISP=SHR 00002606
|
|
//**** /* POPULATE THE LABELS WORK FILE 00003105
|
|
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
|
|
// COND=(0,LT) 00003306
|
|
//SYSPRINT DD SYSOUT=* 00003405
|
|
//FILEIN DD DSN=&&TMP901, 00003505
|
|
// DISP=(OLD,DELETE,DELETE), 00003605
|
|
// UNIT=SYSDA 00003705
|
|
//DOESVRO1 DD DSN=&&LBL901, 00003805
|
|
// DISP=(NEW,PASS,DELETE), 00003905
|
|
// UNIT=SYSDA, 00004005
|
|
// SPACE=(8192,(1000,1000),RLSE), 00004105
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00004305
|
|
// DISP=SHR 00004405
|
|
//** 00004705
|
|
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//**
|
|
//PARMIN DD DUMMY
|
|
//**
|
|
//ATLSTIN DD DUMMY
|
|
//**
|
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
|
|
//**
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001
|
|
//** 00100100
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//** 00100100
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**
|
|
//** AUDIT SELECTION CRITERIA
|
|
//RPT602R1 DD SYSOUT=0
|
|
//** AUDIT CANDIDATES LIST
|
|
//RPT602R2 DD SYSOUT=0
|
|
//** AUDIT CANDIDATES SELF MAILERS
|
|
//RPT602R3 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** AUDIT MFAS FLAT FILE
|
|
//RPT602F3 DD DSN=DOESTAX.PROD.AUDIT.F602,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
//** DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(30,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=1064,BLKSIZE=21280)
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT909R1 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT909R2 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT909R3 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT909R4 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT909R5 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT909R6 DD SYSOUT=W,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//RPT980R1 DD SYSOUT=Q,HOLD=&LVDHOLD.,
|
|
// DEST=&LDEST.
|
|
//** EXPORT CONTROL REPORTS
|
|
//RPT991R1 DD SYSOUT=Q,COPIES=2,
|
|
// DEST=&LDEST.
|
|
//****
|
|
//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=&LDEST., 00155302
|
|
// HOLD=&LVDHOLD. 00155403
|
|
//** 00157001
|
|
//**
|