!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  00000010
!!                   VOLUMES BY QUALIFIER                           !!  00000020
!!                    SCRATCHED/ACTIVE/S                            !!  00000030
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  00000040
 COPY EARLDEFS                                                          00000050
                                                                        00000052
 !DEF SYSPARM   (X 10)  = 'N,SCRATCH'
 DEF REQ_NUM_CHAR   = SYSPARM 01-01 X
 DEF REQ_NUM_NUM    = SYSPARM 01-01 N
 DEF REQ_TYPE       = SYSPARM 03-09 X

                                                                        00000060
 DEF REQ_DATE  (P 7.0) = 0 PIC 'ZZ99/999  '                             00000070


 DEF DSN_CHARS ARRAY 44    = DSN  1-1 X
 DEF NODES_PROCESSED (X 27) = ' '  'NODES' 'PROCESSED'
 DEF NODE_CHARS ARRAY 27  = NODES_PROCESSED 1-1 X
 DEF INDEX        (N 2.0)  = 0
 DEF NODES_FOUND  (N 2.0)  = 0
 DEF NODES_LENGTH (N 2.0 ) = 0
 DEF QUALS_REQD   (N 2.0)  = 1
! BY DEFAULT THE REPORT TYPE IS ACTIVE. COMMENT OUT ACTIVE AND
! COMMENT IN THE SCRATCH REPORT_TYP.
 DEF REPORT_TYP   (X   7)  = 'ACTIVE '
!DEF REPORT_TYP   (X   7)  = 'SCRATCH'
!DEF REPORT_TYP   (X   7)  = 'OUTSERV'

 DEF  MDS_REC_COUNT (8.0)  = 0 'MDS RECORDS'
 DEF  FILES_ON_VOL  (8.0)  = 0 '# FILES'
 DEF  FIRST_TIME    (X 1)  = 'Y'
                                                                        00000080
 IF FIRST_TIME = 'Y'
                                                                        00000080
    SET FIRST_TIME = 'N'
    SET TYPRUN = R_VOLUME                                                  00000
                                                                           00000
    IF REQ_TYPE = 'SCRATCH'                                                00000
     OR  REQ_TYPE = 'ACTIVE '                                              00000
       OR  REQ_TYPE = 'OUTSERV'                                            00000
       SET REPORT_TYP = REQ_TYPE                                           00000
    ENDIF                                                                  00000

    IF REQ_NUM_CHAR  > '0'                                                 00000
       AND REQ_NUM_CHAR  < '4'
       SET QUALS_REQD = REQ_NUM_NUM                                        00000
    ENDIF                                                                  00000

    COMPUTE NODES_LENGTH = (9 * QUALS_REQD) + 1                            00000

 ENDIF                                                                     00000
                                                                        00000200
 GETTAG:                                                                00000210
                                                                        00000200
 GET TAPEDB                                                             00000220
   GOTO EOJ (TAPEDB = 'E')                                              00000230
                                                                        00000260
 IF REPORT_TYP = 'ACTIVE '
    IF SCRATCH_IND = 'Y'                                                00000270
     OR SERVICE_IND ='OUT'                                              00000275
       GOTO GETTAG                                                      00000280
    ENDIF                                                               00000290
 ENDIF
                                                                        00000300
 IF REPORT_TYP = 'SCRATCH'
    IF SCRATCH_IND = 'N'                                                00000270
     OR SERVICE_IND ='OUT'                                              00000275
       GOTO GETTAG                                                      00000280
    ENDIF                                                               00000290
 ENDIF
                                                                        00000300
 IF REPORT_TYP = 'OUTSERV'
    IF SERVICE_IND = 'IN '                                              00000270
       GOTO GETTAG                                                      00000280
    ENDIF                                                               00000290
 ENDIF
                                                                        00000300
 IF  FILESEQ = 0
  OR FILECNT = 0
     GOTO GETTAG
 ENDIF


 SET FILES_ON_VOL = FILECNT - FILESEQ + 1
 IF  FILES_ON_VOL < 2
     GOTO GETTAG
 ENDIF

 COMPUTE MDS_REC_COUNT  = FILES_ON_VOL / 2
                                                                        00000300
 IF DSN = ' '
    SET NODES_PROCESSED = ' ** NO DSN ON VMF ** '
    GOTO TEST
 ENDIF

 SET NODES_PROCESSED = ' '
 SET NODES_FOUND     = 0
 SET INDEX           = 1

 GET_NODES:

 IF DSN_CHARS (/INDEX/) = '.'
   OR DSN_CHARS (/INDEX/) = ' '
    SET NODES_FOUND = NODES_FOUND + 1
 ENDIF

 SET NODE_CHARS (/INDEX/) = DSN_CHARS (/INDEX/)
 SET INDEX  = INDEX + 1
 GOTO TEST (DSN_CHARS (/INDEX/) = ' ')

 IF NODES_FOUND < QUALS_REQD
  AND INDEX < NODES_LENGTH
    GOTO GET_NODES
 ENDIF

 REPORT                                                                 00000400
  TITLE 0 &COMPANY_NAME                                                 00000410
          @58 REPORT_TYP 'VOLUMES SORTED BY ' 0 QUALS_REQD 1 'NODES'    00000420
        @112  'TLAUXHLQ' 2 'PAGE ' PAGENUMBER                           00000430
  TITLE @1 'CA TLMS '
        @9 &RELNO &GENLEVEL
        @112 DATEOFREPORT 3 TIMEOFREPORT

  CONTROL (NODES_PROCESSED)


  PRINT  TOTALS ONLY
      @5 NODES_PROCESSED
         (MDS_REC_COUNT)
         (FILES_ON_VOL)
  END