WHEN I RUN THIS SMALL PROGRAM BELOW I RECIEVED THE FOLLOWING ERRORS: DBFNTX/1001: OPEN ERROR. BUT I KNOW FOR SURE THAT THE LOOKUP.DBF IN THIS DIRECTORY(\\FILE007\INDEHELTH\Medicare\TestSys\MSTAR) ANY IDEAS, HOW TO FIX THIS?.. This is my first time to write something in clipper.
Please guide me with specifics. Thank you much in advance. CVL
STORE "08" TO CONST_TYPECODE
STORE "---" TO CONST_SRCHCODE
STORE "," TO CONST_DELIM
SET CURSOR OFF
PUBLIC line:= 0
BEGIN SEQUENCE
**************PRODUCTION DATABASE******************
**SET PATH TO \\FILE016\Med_grp\ARStar\Combstar
**************TEST DATABASE************************
SET DEFAULT TO \\FILE007\INDEHELTH\Medicare\TestSys\MSTARBase
SET PRINTER TO \\FILE016\MED_APPS\MEDICARETIMEACTIVITY\FROMSTAR\ActCode.txt
SET DEVICE TO PRINT
USE LOOKUP NEW
INDEX ON SOUNDEX(DESC1) TO lookup
SET INDEX TO lookup
GOTO TOP
DO WHILE !lookup -> (eof())
IF upper( alltrim(lookup ->TypeCode)) = CONST_TYPECODE .AND. ALLTRIM(lookup ->SRCHCODE) <> CONST_SRCHCODE
@line, 0 SAY ALLTRIM(lookup ->SRCHCODE) + CONST_DELIM + ALLTRIM(lookup ->Desc1)
line++
ENDIF
SKIP alias lookup
ENDDO
CLOSE lookup
END SEQUENCE
Please guide me with specifics. Thank you much in advance. CVL
STORE "08" TO CONST_TYPECODE
STORE "---" TO CONST_SRCHCODE
STORE "," TO CONST_DELIM
SET CURSOR OFF
PUBLIC line:= 0
BEGIN SEQUENCE
**************PRODUCTION DATABASE******************
**SET PATH TO \\FILE016\Med_grp\ARStar\Combstar
**************TEST DATABASE************************
SET DEFAULT TO \\FILE007\INDEHELTH\Medicare\TestSys\MSTARBase
SET PRINTER TO \\FILE016\MED_APPS\MEDICARETIMEACTIVITY\FROMSTAR\ActCode.txt
SET DEVICE TO PRINT
USE LOOKUP NEW
INDEX ON SOUNDEX(DESC1) TO lookup
SET INDEX TO lookup
GOTO TOP
DO WHILE !lookup -> (eof())
IF upper( alltrim(lookup ->TypeCode)) = CONST_TYPECODE .AND. ALLTRIM(lookup ->SRCHCODE) <> CONST_SRCHCODE
@line, 0 SAY ALLTRIM(lookup ->SRCHCODE) + CONST_DELIM + ALLTRIM(lookup ->Desc1)
line++
ENDIF
SKIP alias lookup
ENDDO
CLOSE lookup
END SEQUENCE