Dayle You may want to change line 21 as well. ANSI is a reserved word.
You could change lines 20, 21 and 22 to 20 SET VAR vmsg = (.msg + (CHAR(013)) + (CHAR(013)) + "Are you sure you want to continue?") 21 DIALOG .vmsg vYesNo Vkey yes 22 IF vYesNo = "YES" THEN Buddy ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Bill Downall Sent: Wednesday, February 13, 2008 10:19 AM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: 6.5 command code not working in 7.6 Dayle, I'm not sure the "TO" keyword can be used as a synonym for "=" anymore. Try: SET VAR msg = + ("You are about to start reporting for" & CTXT(.bvdate)) Bill On Feb 13, 2008 10:12 AM, Coxen, Dayle <[EMAIL PROTECTED]> wrote: I am new to rbase and have only recently started converting a 6.5 application to 7.5. The following code works in 6.5. But in 7.6 lines 18, 19 and 20 seem to be ignored. No error. The content of msg is not displayed. Execution continues to "Are you sure you want to continue?" Also when I run R:style on this code, it gives the message for line 14 "Not a valid command: CONNECT" 1 SET ANSI OFF 2 SET QUOTES=" 3 SET SINGLE=? 4 SET MANY=* 5 SET AND OFF 6 SET VAR vdate DATE 7 SET VAR ANSI TEXT 8 SET ERROR VAR hold 9 SET VAR CONTAINS INTEGER 10 SET VAR CONTAINS = 1 11 SET ERROR MESSAGES OFF 12 SET MESSAGES OFF 13 LABEL start 14 CONNNECT wdoss 15 SET NULL " " 16 CLS 17 FILLIN vdate USING "Enter Date To Be Reported. ==> " AT 5 10 18 SET VAR bvdate = .vdate 19 SET VAR msg TO ("You are about to start reporting for" & CTXT(.bvdate)) 20 WRITE .msg 21 DIALOG "Are you sure you want to continue? " ANSI vkey yes AT 17 22 IF ANSI EQ "Yes" THEN 23 GOTO end1 24 ELSE 25 GOTO start 26 ENDIF Very much a Newbie, Dayle Coxen 850-410-5635 FDOT Office of Maintenance 605 Suwannee St. Mail Station 52 Tallahassee, FL 32399
