report r03 # d03
with
	columns 50
	lines 60
	all lines 66
	
	define #num          = integer   2
	define #name         = char     20
	define #gehalt       = integer   2
	define #leiter       = integer   2
	define #gebdat       = integer   2
	define #einstdat     = integer   2

as

on pagebegin do
	'-' 50 \n
	'Gehalt und Geburtsjahr nach Leitern'
	\42 date \n2
	'Abtlg.'
	\8 'Name'
	\30 'Gehalt'
	\40 'Geburtsjahr'
	\n
	'-' 50 \n2
end

for all do
	for one do
		if groupbegin leiter then
			\n integer @4 #leiter
		end if
		\8 char	@20 #name
		\30 integer @5 #gehalt ',- M'
		\40 integer @9 #gebdat
		\n
	end one
end all
'-' 50 \n2
;
