//***** //** 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 //**