Ed-
I have to refer to my notes and rmd,eep,mac’s (I call the extension many
different things depending on what type class they are in.)
As for as the reload ‘Load’ It is done at the R prompt and prior to I change
the db name from org to org_bak or just a sample I could find. It does have
errors so.
SET VAR dbname TEXT = ‘ Enter your Db name here’
DISCONNECT
SET MESSAGES ON
SET ERROR MESSAGES ON
SET MULTI OFF
SET ERROR VAR vul_Error
WRITE 'Checking database for errors...'
AUTOCHK dbname Full
IF vul_Error = 0 THEN
WRITE 'AUTOCHK successful - No errors found'
ENDIF; goto NoError
IF vul_Error > 40 THEN
WRITE 'AUTOCHK has found errors in the database! '
Launch autochk.chk
ENDIF
Label NoError
CONNECT dbname
SET NULL -0-
SET TIME FORMAT hhmmss
SET VAR vul_time = (CTXT(.#TIME))
SET VAR vul_jdate = (CTXT(JDATE(.#DATE)))
SET VAR vul_pass TEXT = 'RBaseRocks'
SET VAR vul_unique TEXT = ('dbname' + (.vul_jdate + .vul_time))
SET VAR vul_out TEXT = (.vul_unique + '.all')
OUTPUT .vul_out encrypt .vul_pass
UNLOAD ALL
OUTPUT SCREEN
DISCONNECT
SET VAR vul_db1 TEXT = ('Rename dbname.R?? ' + .vul_unique + '.R??') --
Covers the RB’s & RX’s
&vul_db1
SET VAR vul_db2 TEXT = ('Run ' + .vul_out + ' ' + .vul_pass)
&vul_db2 -- need to trap any error messages in the future. Need to also
compare db SYS_Info (tables, views, etc..) to see what got lost.
CLEAR VAR vul_%
PAUSE FOR 5 USING 'Rebuild is Complete - Now going to Re-Index !' CAPTION
'Rebuild status' ICON confirm BUTTON 'Ok!'
disconnect
set multi off
conn dbname
Pack all
disconnect
Set Multi on
connect dbname
RETURN
If you leave this out in the open, everyone could know your password is
‘RBaseRocks’ so if it is in a form it is safe (compressed). Almost from all
prying eyes.
I would insert some code to ‘Halt on Errors’ or trap the error’s. I even
better like the idea of running this from a rff form and then switch between
db’s and store the results for reference later.
Oh, if you have not used a rff form yet. Try it, it is cool. It runs on
its own. Like a menu without a db attached. When you use the menu you include
a db name and connect stamen and run. If the user is prone to stay at the menu
(as most do) they are attached to Nothing! But they think they are. Power
glitch - No Problem!
Sincerely,
Paul D.
I know this is going to get updated and a few people are going to add to this.
I would and appreciate ALL the feed back I get. Good and Bad.
I was up late 4am and up at 8am. No comment and sorry if errors are in the
above code. I did not do a complet test on it yet. Razzak I need Starbucks I
think.
