home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / database / dfa / rexx / export_bt_ii.dfa < prev    next >
Encoding:
Text File  |  1995-02-27  |  1.2 KB  |  61 lines
  1. /************************************************************************
  2.  *
  3.  * export_bt_ii.dfa                by Dirk Federlein 1993
  4.  *
  5.  * Exports marked addresses to a file that you can use together with
  6.  * Beckertext II to mailmerge your letters.
  7.  *
  8.  *
  9.  * Feel free to insert additional fields or remove existing ones
  10.  *
  11.  *
  12.  ************************************************************************/
  13.  
  14. options results
  15.  
  16. tabchar = '09'X
  17. cr    = '0A'X
  18.  
  19. exportfile = 't:dfa_bt2.export'
  20.  
  21. if ~show(ports, DFA) then
  22. do
  23.     exit 0
  24. end
  25.  
  26.  
  27. if open('exfh',exportfile,'W') then
  28. do
  29.     writeln( 'exfh', 'Address;Name;First;Street;ZIP;City;Country')
  30.  
  31.     address 'DFA'
  32.  
  33.     FIRST STEM ADR.
  34.  
  35.     if ADR.ADDRESS.14 = 0 then
  36.         NEXTSEL STEM ADR.
  37.  
  38.     do while RC = 0
  39.         writech('exfh', ADR.ADDRESS.0)
  40.         writech('exfh', (';'))
  41.         writech('exfh', ADR.ADDRESS.1)
  42.         writech('exfh', (';'))
  43.         writech('exfh', ADR.ADDRESS.2)
  44.         writech('exfh', (';'))
  45.         writech('exfh', ADR.ADDRESS.3)
  46.         writech('exfh', (';'))
  47.         writech('exfh', ADR.ADDRESS.4)
  48.         writech('exfh', (';'))
  49.         writech('exfh', ADR.ADDRESS.5)
  50.         writech('exfh', (';'))
  51.         writech('exfh', ADR.ADDRESS.6)
  52.         writech('exfh', (cr))
  53.  
  54.         NEXTSEL STEM ADR.
  55.     end
  56.  
  57.     close ('exfh')
  58. end
  59.  
  60. exit
  61.