/* $Revision Header built automatically *************** (do not edit) ************
**
** © Copyright by Dirk Federlein
**
** File             : export_bt_ii.dfa
** Created on       : Monday, 04.04.94 16:15:39
** Created by       : Dirk Federlein
** Current revision : V2.0
**
**
** Purpose
** -------
**
** Exports marked addresses to a file that you can use together with
** Beckertext II to mailmerge your letters.
**
** Supported mail merge strings for Beckertext-II:
**
** - Salutation
** - First
** - Name
** - Street
** - ZIP
** - City
** - Country
**
** Feel free to insert additional fields or remove existing ones.
**
**
** Revision V2.0
** --------------
** created on Monday, 04.04.94 16:15:39  by  Dirk Federlein.   LogMessage :
**     --- Initial release ---
**
*********************************************************************************/

options results

tabchar = '09'X
cr	= '0A'X

exportfile = 't:dfa_bt2.export'

if ~show(ports, DFA) then
do
	exit 10
end


if open('exfh',exportfile,'W') then
do
	writeln( 'exfh', 'Salutation;First;Name;Street;ZIP;City;Country')

	address 'DFA'

	FIRST STEM ADR.

	if ADR.ADDRESS.24 = 0 then
		NEXTSEL STEM ADR.

	do while RC = 0
		writech('exfh', ADR.ADDRESS.0)
		writech('exfh', (';'))
		writech('exfh', ADR.ADDRESS.1)
		writech('exfh', (';'))
		writech('exfh', ADR.ADDRESS.2)
		writech('exfh', (';'))
		writech('exfh', ADR.ADDRESS.4)
		writech('exfh', (';'))
		writech('exfh', ADR.ADDRESS.5)
		writech('exfh', (';'))
		writech('exfh', ADR.ADDRESS.6)
		writech('exfh', (';'))
		writech('exfh', ADR.ADDRESS.8)
		writech('exfh', (cr))

		NEXTSEL STEM ADR.
	end

	close ('exfh')
end

exit