Re: Deletion of Journal Receivers

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