home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3291.dms / 3291.adf / Rexx / export_bt_ii.dfa < prev    next >
Encoding:
Text File  |  1994-08-16  |  1.6 KB  |  84 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : export_bt_ii.dfa
  6. ** Created on       : Monday, 04.04.94 16:15:39
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V2.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **
  14. ** Exports marked addresses to a file that you can use together with
  15. ** Beckertext II to mailmerge your letters.
  16. **
  17. ** Supported mail merge strings for Beckertext-II:
  18. **
  19. ** - Salutation
  20. ** - First
  21. ** - Name
  22. ** - Street
  23. ** - ZIP
  24. ** - City
  25. ** - Country
  26. **
  27. ** Feel free to insert additional fields or remove existing ones.
  28. **
  29. **
  30. ** Revision V2.0
  31. ** --------------
  32. ** created on Monday, 04.04.94 16:15:39  by  Dirk Federlein.   LogMessage :
  33. **     --- Initial release ---
  34. **
  35. *********************************************************************************/
  36.  
  37. options results
  38.  
  39. tabchar = '09'X
  40. cr    = '0A'X
  41.  
  42. exportfile = 't:dfa_bt2.export'
  43.  
  44. if ~show(ports, DFA) then
  45. do
  46.     exit 10
  47. end
  48.  
  49.  
  50. if open('exfh',exportfile,'W') then
  51. do
  52.     writeln( 'exfh', 'Salutation;First;Name;Street;ZIP;City;Country')
  53.  
  54.     address 'DFA'
  55.  
  56.     FIRST STEM ADR.
  57.  
  58.     if ADR.ADDRESS.24 = 0 then
  59.         NEXTSEL STEM ADR.
  60.  
  61.     do while RC = 0
  62.         writech('exfh', ADR.ADDRESS.0)
  63.         writech('exfh', (';'))
  64.         writech('exfh', ADR.ADDRESS.1)
  65.         writech('exfh', (';'))
  66.         writech('exfh', ADR.ADDRESS.2)
  67.         writech('exfh', (';'))
  68.         writech('exfh', ADR.ADDRESS.4)
  69.         writech('exfh', (';'))
  70.         writech('exfh', ADR.ADDRESS.5)
  71.         writech('exfh', (';'))
  72.         writech('exfh', ADR.ADDRESS.6)
  73.         writech('exfh', (';'))
  74.         writech('exfh', ADR.ADDRESS.8)
  75.         writech('exfh', (cr))
  76.  
  77.         NEXTSEL STEM ADR.
  78.     end
  79.  
  80.     close ('exfh')
  81. end
  82.  
  83. exit
  84.