Re: journal receiver maintenance

[Jerry Draper <midrangel@xxxxxxxxxxxxx>]

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