//ECNTVCRT JOB (SY),DOES.CARTLIST,CLASS=P,MSGCLASS=X,                   00010002
//         USER=#DOADTS,                                                00011005
//         NOTIFY=ECNTJP2,                                              00011106
//***      NOTIFY=ECNTSUP,                                              00011206
//         REGION=0M                                                    00012002
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//****                                                                  00020002
//      SET LVDHOLD='YES'                                               00021002
//****                                                                  00024002
//*     THIS JOB SENDS THE DOES ACTIVE TAPE LIST TO VIEWDIRECT  **      00050006
//****                                                                  00060002
//TMSGRW   EXEC PGM=TMSGRW,REGION=64M                                   00070001
//*                                                                     00080002
//TMSRPT   DD  SYSOUT=(Z,DTSCRTW2),HOLD=&LVDHOLD,                       00110003
//            DEST=U@PRT65                                              00110102
//*                                                                     00111002
//SYSOUT   DD  SYSOUT=*                                                 00120000
//* Z/OS 1.4   DSN=SYS1.SORTLIB,DISP=SHR                                00130000
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)                     00140000
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)                     00150000
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)                     00160000
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)                     00170000
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)                     00180000
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG)                     00190000
//SYSIN    DD  *                                                        00200000
CONTROL-SECTION                                                         00201000
 SORT DSN                                                               00202000
 ALTER DSNB=NO                                                          00203000
 TITLE 'DOES ACTIVE TAPES'                                              00204000
 DEFINE VOL1   CH '400000'                                              00205000
 DEFINE VOL2   CH '404370'                                              00206000
 DEFINE DELETED HX '02'                                                 00207000
 DEFINE SCRATCH HX '04'                                                 00208000
PROCESS-SECTION                                                         00209000
 WHEN FLAG1 ON SCRATCH                                                  00209100
   REJECT                                                               00209200
  WHEN FLAG1 ON DELETED                                                 00209300
    REJECT                                                              00209400
  WHEN VOLSER GE VOL1                                                   00209500
  AND VOLSER LE VOL2                                                    00209600
  LIST                                                                  00209700
REPORT-SECTION                                                          00209800
  PRINT DSN VOLSER CJOB CDATE EXPDT                                     00209900
/*                                                                      00210000
//****                                                                  00220002