It was in his sample he posted a while back. Your sample looks like it accomplishes the same thing.
Just wondering if anybody has tried to connect again instead of exiting. Dan Goldberg From: karentellef via RBASE-L [mailto:[email protected]] Sent: Friday, March 31, 2017 7:36 AM To: [email protected] Subject: Re: [RBASE-L] - how to eliminate this error I have never heard of SQLCODE = -7..... My goto is: SET VAR vtext = (CVAL('Database')) IF vtext IS NULL THEN PAUSE 2 USING 'Trouble Connecting to Database!' CAPTION 'ERROR!' + ICON STOP OPTION MESSAGE_FONT_SIZE 11 EXIT RETURN ENDIF If it continues to happen for you, maybe try replacing the SQLCODE with a test of a connected database as above? Karen -----Original Message----- From: Dan Goldberg <[email protected]<mailto:[email protected]>> To: rbase-l <[email protected]<mailto:[email protected]>> Sent: Fri, Mar 31, 2017 9:25 am Subject: RE: [RBASE-L] - how to eliminate this error I use his startup stuff except this part. SET ERROR MESSAGE 2495 OFF CONNECT dbname IDENTIFIED BY ownername SET ERROR MESSAGE 2495 ON SET MESSAGES ON SET ERROR MESSAGES ON -- Check the availability of database IF SQLCODE = -7 THEN …. I am thinking of using it but with a slight modification. Maybe a second connect try would get it to connect. SET ERROR MESSAGE 2495 OFF CONNECT dbname IDENTIFIED BY ownername SET ERROR MESSAGE 2495 ON SET MESSAGES ON SET ERROR MESSAGES ON -- Check the availability of database IF SQLCODE = -7 THEN --second try SET ERROR MESSAGE 2495 OFF CONNECT dbname IDENTIFIED BY ownername SET ERROR MESSAGE 2495 ON Endif What do you guys think? Has anyone tried it? Dan Goldberg From: [email protected]<mailto:[email protected]> [mailto:[email protected]<mailto:[email protected]?>] On Behalf Of Tom Hart Sent: Friday, March 31, 2017 7:06 AM To: [email protected]<mailto:[email protected]> Subject: Re: [RBASE-L] - how to eliminate this error I use Razz's config setup in all my compiled apps, that enforces multi on Tom On Mar 31, 2017 8:54 AM, "Dan Goldberg" <[email protected]<mailto:[email protected]>> wrote: Sometimes when we run our compiled apps we get this message. [cid:[email protected]] If we exit and run it again it works fine. Just annoying. It is a link on our desktops to our compiled app on the server. Anybody have a solution to eliminate this error? Dan Goldberg -- 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]>. For more options, visit https://groups.google.com/d/optout. -- 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]>. For more options, visit https://groups.google.com/d/optout. -- 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]>. For more options, visit https://groups.google.com/d/optout. -- 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]>. For more options, visit https://groups.google.com/d/optout. -- 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]. For more options, visit https://groups.google.com/d/optout.
