/*	Gets all addresses stored in the running DFA's database and puts
	them in the current file. The parts of the inserted addresses may be
	modified to suit your needs.
*/

options results

address 'rexx_ced'

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

text cr

UP

/* Make sure that DFA is running */

if ~show(ports, DFA) then
do
	'okay1' 'You should have DFA running, if you' cr 'want to get an address from it!'
     exit 0
end


address 'DFA' FIRST STEM ADR.

do while RC = 0
	text ADR.ADDRESS.2
	"Beg of line"
	do i=1 to 20
		RIGHT
	end

	text ' '

	"Delete to EOL"

	text ADR.ADDRESS.1

	"beg of line"

	do i=1 to 40
		RIGHT
	end

	text ' '

	"Delete to EOL"

	text ADR.ADDRESS.8

	text cr
	address 'DFA' next stem adr.
end

exit