home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / DBBTOC.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  364 b   |  13 lines
  1. %===============    db_open,close  and bt_open,close   =======================
  2. /* Use for: db_open, db_close
  3.        and: bt_open, bt_close
  4. */     
  5. DOMAINS
  6.   DB_SELECTOR = mydba
  7.  
  8. GOAL    db_open(mydba,"dd.bin",in_file),
  9.     bt_open(mydba,"personnames",BT_SELECTOR),
  10.     % ...... Update and acces the database here
  11.     bt_close(mydba,BT_SELECTOR),
  12.     db_close(mydba).
  13.