I pretty much do what Karen does except I get an email informing me of errors
Tom Hart On Thu, Apr 22, 2021, 10:06 AM <[email protected]> wrote: > Karen, > > > > WOW – thanks. I’ll give this a look over. I appreciate this. 😊 > > > > Paul Buckley > > > > > > *From:* 'Karen Tellef' via RBASE-L <[email protected]> > *Sent:* April 22, 2021 10:19 AM > *To:* [email protected] > *Subject:* Re: [RBASE-L] - Suggestions on Using AutoCHK in a Command File > > > > Ready for a big chunk of code? Here's an example of what I use in a > command file. > > > > Karen > > > > > > DISCONN > SET MULTI OFF > CONNECT diamond > SET VAR fvChkErr INT = .xError > IF fvChkErr <> 0 THEN > PROPERTY vMessage CAPTION " " > PAUSE 2 USING "Someone else is using the database and must exit" + > CAPTION .fvCaption ICON STOP OPTION MESSAGE_FONT_SIZE 14 + > | MESSAGE_FONT_BOLD ON | BACK_COLOR WHITE | MESSAGE_COLOR WHITE + > | MESSAGE_FONT_COLOR RED > SET MULTI ON > CONNECT diamond > GOTO editform > ENDIF > > PAUSE 3 USING "Please wait... Checking database integrity (step 1)" + > CAPTION "Do NOT interrupt this process!" ICON ATTENTION + > OPTION GAUGE_VISIBLE ON | GAUGE_COLOR RED | GAUGE_INTERVAL 15 + > | MESSAGE_FONT_NAME VERDANA | MESSAGE_FONT_SIZE 10 | > MESSAGE_FONT_COLOR BLACK > > DISCONN > SET MESSAGES ON > > OUTPUT Autochk.TXT WITH SCREEN > AUTOCHK DIAMOND FULL > SET VAR fvChkErr = .XError > OUTPUT SCREEN > > CLS > IF fvChkErr > 40 THEN > DIALOG "AUTOCHK has found ERRORS in your database! You should talk to > your+ > database administrator to determine whether to run a Reload to fix the > errors.+ > This could result in a loss of data! DO YOU WANT TO CONTINUE WITH THE > RELOAD?"=75 + > vresp vendkey YES + > CAPTION "Autochk File saved AUTOCHK.TXT" ICON serious OPTION > TITLE_FONT_SIZE 11 + > | WINDOW_BACK_COLOR RED | TITLE_FONT_COLOR WHITE > IF vresp = "NO" THEN > SET MULTI ON > CONNECT diamond > GOTO editform > ENDIF > ENDIF > > IF fvChkErr > 0 AND fvChkErr <= 50 THEN > DIALOG "For some reason, the AUTOCHK program could not run, so I do > not know+ > if your database is okay or not. You should call your database > administrator+ > to find the problem. DO YOU WANT TO CONTINUE WITH THE RELOAD?"=75 vresp > vendkey YES + > CAPTION "Autochk not run" ICON serious OPTION TITLE_FONT_SIZE 11 + > | WINDOW_BACK_COLOR RED | TITLE_FONT_COLOR WHITE > IF vresp = "NO" THEN > SET MULTI ON > CONNECT diamond > GOTO editform > ENDIF > ENDIF > > IF fvChkErr = 0 THEN > DIALOG "Database passed the integrity check! Do you want to RELOAD?" + > vresp vendkey YES CAPTION .fvCaption ICON question OPTION > MESSAGE_FONT_SIZE 11 > IF vresp = "NO" THEN > SET MULTI ON > CONNECT diamond > GOTO editform > ENDIF > ENDIF > > > > > > > > -----Original Message----- > From: [email protected] > To: [email protected] > Sent: Thu, Apr 22, 2021 8:46 am > Subject: [RBASE-L] - Suggestions on Using AutoCHK in a Command File > > Good morning, > > > > I’m running the latest build of R:BASE X.5 Enterprise and I’m trying to > incorporate the AutoCHK command to run in a scheduled task every night > before doing a “Pack in Place”. Anyone have experience with this? Anyone > will to share your code? Thought I’d ask that last one 😊 > > > > Thanks, > > Paul Buckley > > > > -- > For group guidelines, visit > http://www.rbase.com/support/usersgroup_guidelines.php > --- > You received this message because you are subscribed to the Google Groups > "RBASE-L" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > To view this discussion on the web visit > https://groups.google.com/d/msgid/rbase-l/!%26!AAAAAAAAAAAYAAAAAAAAAJ4mzQXf2gpHhGgkNNfb5kTCgAAAEAAAAPzkRWmLe5JOt01PLYI1e4kBAAAAAA%3D%3D%40buckleyandassoc.com > <https://groups.google.com/d/msgid/rbase-l/!%26!AAAAAAAAAAAYAAAAAAAAAJ4mzQXf2gpHhGgkNNfb5kTCgAAAEAAAAPzkRWmLe5JOt01PLYI1e4kBAAAAAA%3D%3D%40buckleyandassoc.com?utm_medium=email&utm_source=footer> > . > > -- > For group guidelines, visit > http://www.rbase.com/support/usersgroup_guidelines.php > --- > You received this message because you are subscribed to the Google Groups > "RBASE-L" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > To view this discussion on the web visit > https://groups.google.com/d/msgid/rbase-l/1800390198.3563383.1619101162884%40mail.yahoo.com > <https://groups.google.com/d/msgid/rbase-l/1800390198.3563383.1619101162884%40mail.yahoo.com?utm_medium=email&utm_source=footer> > . > > -- > For group guidelines, visit > http://www.rbase.com/support/usersgroup_guidelines.php > --- > You received this message because you are subscribed to the Google Groups > "RBASE-L" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > To view this discussion on the web visit > https://groups.google.com/d/msgid/rbase-l/!%26!AAAAAAAAAAAYAAAAAAAAAJ4mzQXf2gpHhGgkNNfb5kTCgAAAEAAAAGheV5/WwXVOu0NUfHrgBrMBAAAAAA%3D%3D%40buckleyandassoc.com > <https://groups.google.com/d/msgid/rbase-l/!%26!AAAAAAAAAAAYAAAAAAAAAJ4mzQXf2gpHhGgkNNfb5kTCgAAAEAAAAGheV5/WwXVOu0NUfHrgBrMBAAAAAA%3D%3D%40buckleyandassoc.com?utm_medium=email&utm_source=footer> > . > -- For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php --- You received this message because you are subscribed to the Google Groups "RBASE-L" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. To view this discussion on the web visit https://groups.google.com/d/msgid/rbase-l/CABX9BNcyo7HE533uk9ktKUMrYMv3ZfBSrvD8pV1TJ3r2u%2BX3Gw%40mail.gmail.com.
