Re: Journal Cleanup-Uploading Excel Data to i Series -- MIDRANGE-L

Hi,
I will explore the possibility of deleting older journals which come in sequence.

Meanwhile I am working with other libraries and I have this problem:

I am trying to upload Excel Data to i Series.

The Excel data is organised as follows:
Library        Receiver
TEST           RCVR6270
TEST           RCVR6271
TEST           RCVR6272
TEST           RCVR6273

I am trying to upload this thru Excel Data Transfer Option ->Transfer Data to i Series.

However the data which is being uploaded to iSeries is coming as junk.

Please can anyone let me know the correct way.Or is there any other alternate method to upload the data.

My intention is to upload the data on i Series and then use the file as RCVF in my CL program so that the journals listed above(200-300 in numbers actually) get deleted thru the CLP.I have tested the CLP and it is working fine.

The only problem I have currently is to upload the Excel Data to iSeries so that it can be used by my CLP.

Regards
Sneha

--- On Fri, 2/4/10, Vern Hamberg <vhamberg@xxxxxxxxxxx> wrote:

From: Vern Hamberg <vhamberg@xxxxxxxxxxx>
Subject: Re: Journal Cleanup
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date: Friday, 2 April, 2010, 12:00 PM

Sneha

The message is pretty obvious - you can't do that unless you first
delete earlier journal receivers. That makes sense - the journal
consists of entries in a certain order, and they maintain some kind of
linkage.

What keeps you from deleting older receivers?

Vern

Sneha Verma wrote:

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.