91 lines
4.6 KiB
Plaintext
91 lines
4.6 KiB
Plaintext
//*****
|
|
//** ELECTRONIC MEDIA
|
|
//** ON REQ RPT GENERATION
|
|
//*****
|
|
//DESRQRPT PROC LDEST=U@PRT65
|
|
//****
|
|
//* 00210074
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00212099
|
|
//DOESLBL1 EXEC PGM=IEBDG, 00213099
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=* 00214099
|
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00215099
|
|
// UNIT=SYSDA, 00216099
|
|
// SPACE=(TRK,1), 00217099
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00218099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00219199
|
|
// DISP=SHR 00219299
|
|
//** 00219799
|
|
//**** /* POPULATE THE LABELS WORK FILE 00219899
|
|
//DOESLBL2 EXEC PGM=IDCAMS, 00219999
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=* 00220099
|
|
//FILEIN DD DSN=&&TMP901, 00220199
|
|
// DISP=(OLD,DELETE,DELETE), 00220299
|
|
// UNIT=SYSDA 00221099
|
|
//DOESVRO1 DD DSN=&&LBL901, 00222099
|
|
// DISP=(NEW,PASS,DELETE), 00223099
|
|
// UNIT=SYSDA, 00224099
|
|
// SPACE=(8192,(1000,1000),RLSE), 00225099
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00226099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00226199
|
|
// DISP=SHR 00226299
|
|
//** 00229199
|
|
//STEP0100 EXEC PGM=DESBD800, 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)
|
|
//**
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**
|
|
//** ELEC MEDIA PACKING LIST
|
|
//RPT101R1 DD SYSOUT=Q,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** ELEC MEDIA CONFIRMATION NOTICE
|
|
//RPT102R1 DD SYSOUT=Q,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** ELEC MEDIA ERROR NOTICE
|
|
//RPT102R2 DD SYSOUT=Q,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//RPT907R1 DD SYSOUT=Z,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
|
//RPT907R2 DD DUMMY
|
|
//**RPT907R2 DD SYSOUT=Z, /* NOT NEEDED FOR THIS APP.
|
|
//** DEST=&LDEST.,
|
|
//** HOLD=&LHOLD.
|
|
//** CONTROL REPORT SUMMARY
|
|
//RPT980R1 DD SYSOUT=Q,
|
|
// DEST=&LDEST.,
|
|
// HOLD=&LHOLD.
|
|
//** 02560019
|
|
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02562099
|
|
// COND=(0,LT), 02563099
|
|
// REGION=4096K 02564099
|
|
//DOESVRI1 DD DSN=&&LBL901, 02565099
|
|
// DISP=(OLD,DELETE,DELETE) 02566099
|
|
//SYSOUT DD SYSOUT=* 02567099
|
|
//SYSABOUT DD SYSOUT=* 02568099
|
|
//SYSABEND DD SYSOUT=* 02569099
|
|
//CAIMRPTS DD SYSOUT=* 02569199
|
|
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02569299
|
|
// DEST=U@PRT155, 02569599
|
|
// HOLD=&LHOLD. 02569699
|
|
//** 02590099
|
|
//**
|