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] <mailto:[email protected]> To: [email protected] <mailto:[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] <mailto:[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] <mailto:[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.
