home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dedit.zip / LISTER.PRG < prev    next >
Text File  |  1986-06-19  |  1KB  |  49 lines
  1. clear
  2. store space(10) to datafile
  3. do while datafile = space(10)
  4. clear
  5.  @ 6,10 say "Name of DBF file to list?  ";
  6.             get datafile picture "!!!!!!!!"
  7. read
  8. clear
  9. store datafile+".DBF" to d1
  10. if .not. file("&d1")
  11.  @ 7,10 say "File does not exist."
  12.  store space(10) to datafile
  13.  endif
  14. enddo
  15. USE &datafile
  16. * Display field name header.
  17. f = 1
  18. ? "Record#  "
  19. DO WHILE "" <> FIELD(f)
  20.     field = FIELD(f)
  21.     DO CASE
  22.         CASE TYPE("&field") = 'C'
  23.             LEN = LEN(&field)
  24.         CASE TYPE("&field") = 'N'
  25.             LEN = LEN(str(&field))
  26.         CASE TYPE("&field") = 'D'
  27.             LEN = LEN(DTOC(&field))
  28.         CASE TYPE("&field") = 'L'
  29.             LEN = 1
  30.     ENDCASE
  31.     ?? SUBSTR(field + SPACE(80), 1, LEN) + ' '
  32.     f = f + 1
  33. ENDDO
  34. *Display data..
  35. DO WHILE .NOT. EOF()
  36.     ? RECNO(), IF(DELETED(), "*", " ")
  37.     f = 1
  38.     DO WHILE "" <> field(f)
  39.         field = FIELD(f)
  40.         ?? &field
  41.         ?? ' '
  42.         f = f + 1
  43.     ENDDO
  44.     SKIP
  45. ENDDO
  46. wait
  47. Return
  48.  
  49.