. Do everything from the foot of the main menu
for the database involved,
or beyond, via call qcmd.
. The instructions below assume the library involved
is TM4L. If not, use
your library name instead of TM4L in the
instructions below.
. If the date or type or any other aspect of the
last regen is unknown or
uncertain, examine the data areas named
ZZREGEN0-9. The last regen is
documented always in ZZREGEN0. More
on this later.
. Regen menu opt 98, positively identify the CUSTddhhmm
and FIEGddhhmm
backup files. These were the original CUST
and FIELG file before they
were renamed. If BOTH these files
do not exist, the last regen did not
rebuild the database.
. For safety, while in the regen menu, take option
92 to archive the
current definition in case it is needed
again. Name it FIEG999999 or any
other name you choose.
SCENERIO 1 -- LAST REGEN WAS A FULL REGEN, ie 2 files exist.
. To be absolutely safe, backup or copy the entire
library, or maybe just
files CUST FIEL and FIELG at this point.
Which of these you do (if any)
determines how hard it will be to recover
if the recovery goes wrong.
EG, CUST data entered since the bad regen
will be lost.
. Delete all logical files over the CUST file by
entering this command:
DLTDLF TM4L/CUST
. Rename the physical CUST file (or delete it if
you are brave enough):
Rename it to CUST999999 or any other name
you choose.
RNMOBJ TM4L/CUST *FILE CUST999999
or
DLTF TM4L/CUST
. Rename the regen backup cust file back to the
real cust file name: (you
noted the name up above):
RNMOBJ TM4L/CUSTddhhmm *FILE CUST
. Copy the regen backup database layout over the
user-changed one
currently in the FIEL file:
CPYF TM4L/FIEGddhhmm TM4L/FIEL MBROPT(*REPLACE)
. Go to the regen menu and do a normal full regen.
. Finished.