home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / TABLES / TBLSRC / TBLCLEAR.PRG < prev    next >
Text File  |  1992-11-13  |  1KB  |  46 lines
  1. * Program   :TblClear.prg
  2. * Author    :Mark D. Miller
  3. * Date      :12-Nov-1992
  4. * Notice    : Copyright (c) 12-Nov-1992 by Mark D. Miller
  5. *             All Rights Reserved.
  6. * Notes     :Releasing the memory used by the current table
  7. *
  8. * The includes
  9. *
  10. #include table.hdr
  11. #include string.hdr
  12. #include pick.hdr
  13. *
  14. * Global Table Memory
  15. *
  16. VARDEF  EXTERN
  17.     CHAR( 12 )  OpenTableName
  18.     FILE        OpenTableHandle
  19.     UINT        TableCnt, TableCnt2, TableKy
  20.     LONG        DataList, KeyList
  21.     INT         TableType
  22.     INT         TableIdx
  23. ENDDEF
  24. **********************************************************************
  25. *                   T H E    R O U T I N E S                         *
  26. **********************************************************************
  27. * Procedure :ClearTable
  28. * Date      :11-Nov-1992
  29. * Parameters:(none)
  30. *           :
  31. *           :
  32. * Notes     :Clear the currently open table from memory
  33. *
  34. PROCEDURE ClearTable
  35.     PICK_CLEAR( DataList )
  36.     IF TableType = 2
  37.         PICK_CLEAR( KeyList )
  38.     ENDIF
  39.     OpenTableName = SPACE( 12 )         && Indicate that no table is active
  40.     TableIdx = 0
  41.     TableCnt = 0
  42.     TableCnt2= 0
  43. ENDPRO
  44.  
  45. *  EOF : TblClear.prg
  46.