Re: Identify journals used by files

[rob@xxxxxxxxx]

Well the first thing I checked was the QSYS2/SYS* class of files but no 
luck this time.

We have a custom command called PRGJRNRCV


                      Purge Journal Receivers (PRGJRNRCV)  
  
Type choices, press Enter.  
  
Journal Receiver . . . . . . . .                 Name, generic*, *ALL  
  Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *ALL, 
*ALLUSR...
Days since detached  . . . . . .   45            Days  



Which executes an RPGLE program.
      
***************************************************************************
      * Program: Purge journal recievers that have been detached for 
longer     *
      * than the number of days as passed in.  They must have also been 
saved.  *
      *      *
      * Modification log:      *
      * 01/23/06 by R.Berendt, CCP    Group Dekko Services, LLC      *
      *          Created.      *
      * 12/15/06 by C.Strong.      *
      *          Modified some includes for qualification, etc.      *
      * 12/26/06 by R.Berendt, CCP    Group Dekko Services, LLC      *
      *          1. Error on QCMD needed to be checked with %error because 
psds *
      *             was not being cleared on success.      *
      *          2. Getting CPF705F-Unable to delete journal receiver, 
Receiver *
      *             not replicated to 1 remote journal.      *
      *      *
      *      *
      * Compilation instructions:      *
      *   (no special instructions this time.)      *
      *      *
      
***************************************************************************


Rob Berendt