Here is part of my code that's not working too good.

The problem is afile error 401 on the Open with the

table name DOG thats inside the variable NEW_FILE. I

don't know if this is a quote thing or something with

the way the file got created in my last posting. It was

a copy og thr RTC_FILE and DICT. The file DOG is there

I made a entry window for it and put one record in it.

I've tried the open statment several ways with no luck.

Take a looksee and tell me where my brain is failing me.

input_file_name=GET_PROPERTY(@WINDOW:".FILE_NAME","TEXT")

FILE_NAME=input_file_name

NEW_FILE=FILE_NAME

IF FILE_NAME=' THEN

Line_no=30

MESSAGE_1=NO FILE NAME WAS ENTERED'

MESSAGE_2=' 

GOSUB PRINT_MSG

GOTO OUT

END

input_game_number=GET_PROPERTY(@WINDOW:".GAME_NUMBER","TEXT")

GAME_NUMBER=input_game_number

IF GAME_NUMBER=' THEN

Line_no=41

MESSAGE_1=NO GAME NUMBER WAS ENTERED'

MESSAGE_2=' 

GOSUB PRINT_MSG

GOTO OUT

END

OPEN ,'RTC_FILE' TO RTC_FILE ELSE Line_no=49 MESSAGE_1=COULD NOT OPEN RTC_FILE' MESSAGE_2=' GOSUB PRINT_MSG GOTO OUT END OPEN 'DICT','RTC_FILE' TO @DICT ELSE Line_no=57 MESSAGE_1=COULD NOT OPEN DICTIONARY TO RTC_FILE' MESSAGE_2=' GOSUB PRINT_MSG GOTO OUT END * This is where the trouble starts … table=quote(new_file) OPEN table TO tab_name THEN OPEN "DICT", table TO @DICT ELSE NULL END ELSE Line_no=65 MESSAGE_1=COULD NOT OPEN ':NEW_FILE:' ' MESSAGE_2=' GOSUB PRINT_MSG GOTO OUT END If @LIST_ACTIVE Then ClearSelect SEL=SELECT":RTC_FILE Call RLIST(sel,5,,,) DONE=0 LOOP READNEXT @ID ELSE DONE=1 UNTIL DONE READ THIS_REC FROM RTC_FILE,@ID THEN IF THIS_REC=GAME_NUMBER THEN GOSUB PROCESS_RECORD END ELSE Line_no=86 MESSAGE_1=UNABLE TO READ RECORD FROM RTC_FILE' MESSAGE_2=' GOSUB PRINT_MSG GOTO AROUND END END AROUND: REPEAT OK=0 IF THISCOUNT=0 THEN OK=1 END IF RTCCOUNT=0 THEN Line_no=104 MESSAGE_2=NO GAME #':GAME_NUMBER:' Game Record(s) found on RTC FILE' GOSUB PRINT_MSG GOTO OUT END PROCESS_RECORD: columvaluelist=" AGENT_NUMBER=THIS_REC STATUS =THIS_REC REPORTED =THIS_REC FROM_RTC =THIS_REC THRU_RTC =THIS_REC DATE_RTC =THIS_REC BOX =THIS_REC DATE_ADDED =THIS_REC Q =THIS_REC BAL_RTC ={BAL_RTC} PROBLEM ={PROBLEM} QTY_RTC ={QTY_RTC} RETURNED ={RETURNED} F1 =AGENT_NUMBER F2 =STATUS F3 =REPORTED F4 =FROM_RTC F5 =THRU_RTC F6 =DATE_RTC F7 =BOX F8 =DATE_ADDED F9 =Q F10=BAL_RTC F11=PROBLEM F12=QTY_RTC F13=RETURNED columvaluelist=F1:@FM:F2:@FM:F3:@FM:F4:@FM:F5:@FM:F6:@FM:F7:@FM:F8:@FM:F9:@FM:F10:@FM:F11:@FM:F12:@FM:F13 WRITE columvaluelist TO tab_name,@ID ELSE Line_no=145 MESSAGE_1=UNABLE TO WRITE RECORD TO ':TABLE_NAME: MESSAGE_2=' GOSUB PRINT_MSG GOTO AROUND END RECS_COPIED=RECS_COPIED + 1 DELETE_ROW("RTC_FILE", @ID, 0) RECS_DELETED=RECS_DELETED + 1 RETURN MESSAGE_1=RECS_COPIED:" Game ":game_number:" Record(s) were copied to ":FILE_NAME MESSAGE_2=And ":RECS_DELETED:" recored(s) deleted from the RTC File" GOSUB PRINT_MSG goto out OUT: RETURN 1 PRINT_MSG: text=*":Program:\0D0A\:\0D0A\:"Program Info From Line #":line_no:\0D0A\:\0D0A\:MESSAGE_1:\0D0A\:MESSAGE_2 m=Message_Box(@window,text," Program Information **",MSG_BTN_OK$) the_message=" MESSAGE_1=" MESSAGE_2=" RETURN </QUOTE> —- === At 15 JUN 2001 09:15AM WinWin/Revelation Support wrote: === <QUOTE>Steve: you don't need the line table=quote(new_file) just have table=new_file Bob </QUOTE> —- === At 15 JUN 2001 09:27AM Don Miller - C3 Inc. wrote: === <QUOTE>Right-O me boy. Made that mistake more than once myself. :(. Don </QUOTE> —- === At 15 JUN 2001 09:57AM S Bell wrote: === <QUOTE> OK. Thanks. That worked, the file is open. Now I'm not getting a list of keys from that select example I used. I wondered about that calling Rlist. It does'nt seem to work. I don't seem to be catching on to this Basic+ very good. Any R/BASIC to BASIC+ classes coming up? </QUOTE> —- === At 16 JUN 2001 03:09AM The Sprezzatura Group wrote: === <QUOTE>Similar problem - use the file name for RLIST selects not the file variable Call Rlist("SELECT RTC_FILE", 5, ….. etc or just use the standard select file variable syntax. Select RTV_File as that is the variable name. The Sprezzatura Group World Leaders in all things RevSoft </QUOTE> View this thread on the forum...