RE: HELP! Records deleted in a file -- RPG400-L

This is very simple man!. You can do it thru simple
SQL. Restore your recent backup to your prototype lib,
rename it. Go to STRSQL and select the records from
your renamed file which are not in your production
file. Change the session attributes to generate a file
thru shift+f1. Once a a file is generated, copy the
generated file data to your production file thru cpyf
and add option. That's it.

Note: Always take a backup of your production file
before you play on that, just through cpyf.




--- Joel Fritz <JFritz@sharperimage.com> wrote:
> Query might come in handy here.  Copy the current
> production file and the
> most recent backup to a convenient place.  Use an
> exception (type 3) join to
> find all the records that are in the backup that
> aren't in the production
> file and write them to an output file.  Copy the
> current production file and
> the output from the query to a third file that will
> become your new
> production file.
>
> > -----Original Message-----
> > From: Jim Langston [mailto:jlangston@celsinc.com]
> > Sent: Thursday, June 27, 2002 2:59 PM
> > To: 'rpg400-l@midrange.com'
> > Subject: RE: HELP! Records deleted in a file
> >
> >
> > I would restore your backup to a different library
> first of
> > all, one that's
> > not in the library list.
> >
> > What I did in this situation once was to write a
> quick RPG
> > program that
> > opened up the file twice, once for Primary Input,
> once for
> > full procedure.
> > Then I did an OVRDBF to override the input to the
> restored
> > version, and the
> > full procedure update to the active one.  One of
> the
> > situations where using
> > a Primary file is justified, IMO.
> >
> > Simple program chain to the full procedure.  If it
> doesn't
> > exist in the full
> > procedure, then I add the record with a write.
> >
> > What this winds up doing is adding all deleted
> records from
> > the restored
> > file to the active file, leaving the rest alone.
> You may wind up with
> > records that were deleted that were supposed to be
> deleted,
> > but that is
> > cleanup you'll have to do.
> >
> > Good luck.
> >
> > Regards,
> >
> > Jim Langston
> >
> > -----Original Message-----
> > From: Wills, Mike N. (TC)
> [mailto:MNWills@taylorcorp.com]
> >
> > We have a file that mysteriously had a number of
> records
> > deleted. The good
> > thing is it isn't a mission critical file. The bad
> thing, the file has
> > changed, and we don't know when the records were
> deleted.
> > What is the best
> > approach to retrieving the records we have from a
> backup and
> > adding them
> > back in the file. Obliviously we have to cut our
> losses on
> > some of the other
> > data and re-enter it, but that is better than what
> we are at now.
> >
> > Thanks for any help at all.
> >
> > Mike Wills
> > IT Corporate Support
> > Taylor Corporation
> > mnwills@taylorcorp.com
> > Phone: (507) 386-3187
> NOTICE:
> All e-mail sent to or from this e-mail address will
> be received or otherwise
> recorded by The Sharper Image corporate e-mail
> system and is subject to
> archival, monitoring, review by and/or disclosure to
> Sharper Image security
> and other management. This message is intended only
> for the use of the
> addressee and may contain information that is
> privileged and confidential.
> If you are not the intended recipient, dissemination
> of this communication
> is prohibited.
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
>


__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com