/************************* REXX ****************************/
/* Author: Tom Brannon                                     */
/* Create Date: 2003-10-31                                 */
/* Purpose: Read the EXHPDM backup file and find the tape  */
/*          used as output for a specific volume           */
/* Chng:                                                   */
/***********************************************************/

trace o
c = 0                                          /* setup counter    */
tt = 0                                         /* setup counter    */
eof = 'NO'                                     /*                  */
                                               /*                  */
c = c + 1                                      /*                  */
out.c = ' '                                    /*                  */
c = c + 1                                      /* put lpar as      */
out.c = '      DCOLLECT Report Run on' lpar    /* first record     */
c = c + 1                                      /*                  */
out.c = ' '                                    /*                  */
                                               /*                  */
Do While eof  ='NO'                        /* do until end of file */
 Drop input1.                     /*clear input1. array (storage)*/
 "EXECIO 1000 DISKR INDD1 (STEM input.)"     /* read 1000 recs   */
  If RC = 2 then                     /* RC of 2 means end of file */
   eof = 'YES'
   Do index1 = 1 to input.0
    Parse Var input.index1 ,
     =25  check1 +12 ,
     =38  domid1  +4 ,
     =117 volser1 +6 .
    If check1 = 'SYS3.PARMLIB' then
     Do
            c = c + 1
            tt = tt + 1
            say check1||'.'||domid1 volser1
            out.c = input.index1
         End
   End index1

End                                               /* end of file1*/

 c = c + 1
 out.c = '     Total Records:' tt
 c = c + 1
 out.c = '  '

 "EXECIO * DISKW REPORT (STEM out. FINIS)"


Exit