Re: journal receiver maintenance

Some journal receivers in question date back to 2007. Their DSPJRNRCVA status is "PARTIAL":

PARTIAL
The receiver status is partial for one of the following reasons:

o It was restored from a version that was saved while it was
attached to the journal. Additional journal entries may
have been written that were not restored.

o It was one of a pair of dual receivers, and it was found
damaged while attached to the journal. The receiver has
since been detached. This receiver is considered partial
because additional journal entries may have been written to
the dual receiver.

o It is associated with a remote journal and it does not
contain all the journal entries that are in the associated
journal receiver attached to the source journal.

It might be this was caused by some unusual situation the pre=dated my existence.

Jerry



On 4/24/2015 10:04 AM, Jerry Draper wrote:

We have a journal receiver maintenance routine that deletes journal
receivers that have been saved and are older than nn days.

This has been working fine on V5R4 but on V6R1 and V7R1 we have a new
issue. (I don't have a V5R4 machine to prove this however.)

The CL pgm creates a work file:

DSPOBJD OBJ(&LIB/*ALL) OBJTYPE(*JRNRCV) DETAIL(*FULL) OUTPUT(*OUTFILE)
OUTFILE(wrklib/JRNRCVPF)

It then reads this file and checks to see if the journal receiver has
been saved:

IF COND(&ODSDAT *EQ ' ') THEN(GOTO CMDLBL(LOOP))

&ODSDAT is the date the journal receiver was saved.

If it is not blank then the routine deletes the journal receiver:

DLTJRNRCV JRNRCV(&ODLBNM/&ODOBNM)

For some reason when &ODSDAT is NOT BLANK we get this error:

Message ID CPA7025: Receiver xxxx in yyyy never fully saved. (I C)

An attempt was made to delete a receiver that was never fully saved
after the receiver was detached with a CHGJRN command.

Anyone know what field in the *OUTFILE is getting checked for this message?

Thanks,


Jerry