Re: Remove duplicate records

I wrote a program much as you outlined two days ago. It is slightly more involved, as there are two record formats. I ran the thing in test mode, printing what would be deleted. I had a 17 page spool file when done. But, it can't be displayed, copied, or sent. Have had NO time the past two days to even look at it.

Now, the really odd part: The same basic program that posts notes for another agency has been working flawlessly for months, while tis one has bombed twice in two weeks. Thought I had fixed the error - obviously not. But, this duplicates removal program may end up being used more than once. I had received an email instructing me to not post notes for a specific account - after the attempt. Notes might not have posted, depending on where in the file they were. another 1500 or more records to delete.

John McKee


-----Original message-----
From: Booth Martin booth@xxxxxxxxxxxx
Date: Thu, 24 Sep 2009 14:32:52 -0500
To: Midrange Systems Technical Discussion midrange-l@xxxxxxxxxxxx
Subject: Re: Remove duplicate records

*start setll
dow not %eof
read
populate klist
klist reade
dow not %eof
delete record
reade
enddo
klist setgt
enddo

Or something like that? Of course, the first time through the file you
could print the records that you intend to delete, just so you can
eyeball the list and not be surprised by some silly result later.



jmmckee wrote:

Can't change that. This is intended to allow multiple users to add comments concurrently. I just need to remove my duplicates.

John

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.