PROCEDURE PRVV
* prvv: programm f�r vers/verstorb.
schdat="1100100"
do datei
select 2
//set relation to auftrnr into abest
unr="1.2  "
ueb="Versicherungs-Anschreiben"
zznr="      "
cZeile := " "
zansp_bez=space(10)
nrverskz="     "
lg=6
ftextnda="Auftrags-Nr nicht vorhanden !!!"
if lg=99
   do upvv1
   do upvv2
   do upvv3
endif
prog1="upvv1"
prog2="upvv2"
prog3="upvv3"
do bewegv
return