home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 002 / address_zi / GENADDR.OPL < prev   
Text File  |  1994-08-16  |  1KB  |  48 lines
  1. proc genaddr:
  2. rem    open "loc::a:\dat\nwgc.dbf",a,f1$,f2$,f3$,f4$,f5$,f6$,f7$,f8$,f9$,f10$,f11$,f12$,f13$,f14$
  3. rem    open "\dat\nwgc.dbf",a,f1$,f2$,f3$,f4$,f5$,f6$,f7$,f8$,f9$,f10$,f11$,f12$,f13$,f14$
  4. rem \dat\Address.dbf is the name of the new record file for your
  5. rem address book. You may use any name you wish.
  6. rem You do need to retain the 15 field names, f1$ to f$15.
  7.     open "\dat\Address.dbf",b,f1$,f2$,f3$,f4$,f5$,f6$,f7$,f8$,f9$,f10$,f11$,f12$,f13$,f14$,f15$
  8.     use a
  9.     do
  10. rem f1$ is the group field, personal or work
  11.     b.f1$="personal"
  12. rem f2$ is the name field
  13.     b.f2$=a.f1$
  14. rem f3$ is the company or second name field
  15.     b.f3$=""
  16. rem f4$ is the persons position
  17.     b.f4$=""
  18. rem f5$ is first line of their address
  19.     b.f5$=a.f5$
  20. rem f6$ is the second line of their address
  21.     b.f6$=""
  22. rem f7$ is the town
  23.     b.f7$=a.f6$
  24. rem f8$ is the county
  25.     b.f8$=""
  26. rem f9$ is the postcode
  27.     b.f9$=a.f7$
  28. rem f10$ is home telephone
  29.     b.f10$=a.f2$
  30. rem f11$ is work telephone
  31.     b.f11$=a.f3$
  32. rem f12$ is fax number
  33.     b.f12$=a.f4$
  34. rem f13$ is mobile telephone
  35.     b.f13$=""
  36. rem f14$ is first line of note
  37.     b.f14$=a.f8$
  38. rem f15$ is second line of note
  39.     b.f15$=""
  40.     use b
  41.     append
  42.     use a
  43.     next
  44.     until eof
  45.     close
  46.     close
  47. ENDP
  48.