home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR503.W96 / DC_UTILS.PR_ / DC_UTILS.PR
Text File  |  1995-06-20  |  241b  |  15 lines
  1. TEXTBLOCK C:\CLIP53\CACI\SAMPLES\DC_UTILS.PRG
  2. // Created by CA-Clipper Workbench
  3.  
  4. FUNCTION DC_UseFiles()
  5.  
  6. DBUSEAREA(.T., "DBFNTX", "DISKDATA")
  7. IF NETERR()
  8.     RETURN .F.
  9. ENDIF
  10.  
  11. DBSETINDEX("DISKID.NTX")
  12. DBSELECTAREA(1)
  13.  
  14. RETURN .T.
  15.