Thanks for the CL Source code Chuck.
When I try to delete the journal receiver(created between 1st Jan to 1st March),the system cannot delete these specific receivers.
The error message which I get is
Cause . . . . . : You tried to delete journal receiver RECVXXX in library
TEST; however, the previous journal receivers are not deleted. Journal
receivers must be deleted in the same order in which they were attached.
Now the problem is I have to delete only receivers created between specific date mentioned above.
Please can anyone help me this.
Regards
Sneha
--- On Thu, 1/4/10, CRPence <CRPbottle@xxxxxxxxx> wrote:
From: CRPence <CRPbottle@xxxxxxxxx>
Subject: Re: Journal Cleanup
To: midrange-l@xxxxxxxxxxxx
Date: Thursday, 1 April, 2010, 5:46 PM
Given a list of *JRNRCV object names as rows in a database *FILE
named QTEMP/ODJRNRCVLST, where the journal receiver name is column
ODOBNM & the journal receiver library name is column ODLBNM, the
following CLP source for example:
<code>
dclf QTEMP/ODJRNRCVS
NextJrnRcv:
rcvf
monmsg cpf0864 /* no more *jrnrcv */ exec(do)
rcvmsg (*SAME (*)) *PGMQ *EXCP rmv(*YES))
goto AllDone:
dltjrnrcv &odlbnm/&odobnm dltopt(*igninqmsg)
goto NextJrnRcv
AllDone:
return
</code>
How that list or rows as *JRNRCV qualified names is
obtained\generated, is left as an exercise for the reader. It could
be as simple as DSPOBJD *ALLUSR/*ALL *JRNRCV *FULL OUTPUT(*OUTFILE)
OUTFILE(QTEMP/ODJRNRCVS) OUTMBR(*FIRST *REPLACE) /* optionally rows
previously deleted or omitted; e.g. by a logical view */
Regards, Chuck
Sneha Verma wrote:
I have 250-300 journal receivers in different library which are
to be deleted. Please can anyone tell me the CL Source Program
which can help me delete these receivers from each of the
libraries.
midrange.com
