home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9107.ZIP / AQUA1 next >
Encoding:
Text File  |  1991-05-28  |  396 b   |  15 lines
  1. LISTING 1
  2.  
  3. function main
  4. local fields_ := { "LNAME", "ADDRESS" }, ahold_ := {}
  5. use rolodex new
  6. for x = 1 to len(fields_)
  7.     aadd(ahold_, fieldget(fieldpos(fields_[x])) )
  8.     @ x, 1 say padr(fields_[x] + ":", 12) get ahold_[x]
  9. next
  10. read    
  11. //───── now dump array contents to the fields of this record
  12. aeval(ahold_, { | ele, num | fieldput(fieldpos(fields_[num]), ;
  13.               ele) })
  14. return nil
  15.