; CITATION / LB 3 / A 2
; "Neue Art erfassen"
; ENG ok
; mod. 21.5.2006
; mod. 02.11.2006
; mod. 12.2.2008
DEFINE	rx,i
DEFINE	is,i
MOV	is,source
FILE	species
APB
PUT	sauthor,is
#error	2
EDT			; editieren
#error	0
CMP	lasterror,0
JNE	ende
FLSH
MOV	rx,recno
REIDX
FILE	binomina
APB      
PUT	species,rx
PUT	senior,rx
FLSH
MOV	rx,recno
REIDX
FILE	citation
PUT	now_ass,rx
PUT	onow_ass,rx
:ende
RELE	rx
RELE	is
FILE	citation
EXIT