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

change the data transfer to use CHARACTER instead of UNICODE which is the
default.

Thanks,
Tommy Holden

From: Sneha Verma <snehaverma001@xxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 04/02/2010 08:30 AM
Subject: Re: Journal Cleanup-Uploading Excel Data to i Series
Sent by: midrange-l-bounces@xxxxxxxxxxxx

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.