Dayle, in addition to Bill and Dawn's comments, I would also avoid using
reserved words as variables, ANSI and CONTAINS in lines 7 and 9
specifically. vANSI and vContains maybe, but I'd not use them at all.
Doug
Coxen, Dayle 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
