home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / DBASE / TAG_UTES.ZIP / SAMPLE.PRG < prev   
Text File  |  1992-02-01  |  344b  |  24 lines
  1. PROCEDURE Sample
  2. PRIVATE mdbf
  3.  
  4. DO LISTDBFS
  5.  
  6. USE Dbfs
  7.  
  8. SCAN
  9.   STORE LEFT( Dbf, AT(".DBF",Dbf)-1 ) TO mdbf
  10.  
  11. *  STORE TRIM(LEFT(Dbf,8)) TO mdbf
  12.   SELECT SELECT()
  13.   DO PrntTags WITH "&mdbf."
  14.   *-- Could have done the RedoTags procedure -- DO RedoTags WITH "&mdf."
  15.   SELECT ("Dbfs")
  16. ENDSCAN
  17.  
  18. USE
  19.  
  20. RETURN
  21.  
  22.  
  23. *-- EOP: Sample.prg
  24.