Re: Deletion of Journal Receivers

[CRPence <CRPbottle@xxxxxxxxx>]

William_Milyard@xxxxxxxxxxxx wrote:
> We're trying to prevent journal receivers from being deleted 
> before we want them to be deleted. We need to keep receivers for
> several days, however, no matter what we've tried, there are
> always 12 receivers for this journal.
>
> The application that uses the journal has a job that can be 
> called at specified intervals to clean up receiver but we 
> disabled the job several months ago so it can't be deleting them.
>
>
> <<SNIP>> No matter the settings, as one receiver is created, the 
> oldest is deleting leaving 12 receivers.
>
> How can I gain control of when receivers are deleted? What am I 
> missing?

  OVRPRTF QPDSPJNA HOLD(*YES) OVRSCOPE(*JOB) SPLFOWN(*JOB)
  WRKJRNA TheLib/TheJrn OUTPUT(*PRINT)
  DSPSPLF QPDSPJNA SPLNBR(*LAST)
  /* In above spool, locate receiver directory.   */
  /* Record the oldest as &OldestJrnRcv, and its  */
  /* library name as &RcvLib to be replaced with  */
  /* the literal names in the next command        */
  DSPJRN TheLib/TheJrn jrncde(j) enttyp(rd)
    rcvrng(&RcvLib/&OldestJrnRcv &RcvLib/&OldestJrnRcv)
    output(*) outfmt(*char)
  /* Use 5=Display on the entries to identify the */
  /* job and program that issued the DLTJRNRCV on */
  /* the named [missing] *JRNRCV Object & Library */

Regards, Chuck