41 lines
633 B
Plaintext
41 lines
633 B
Plaintext
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
|
|
;
|