PROCEDURE PRVERS
* prvers: prog verw adressen
schdat="0000100"
do datei
unr="1.6  "
ueb="Adressen-Datei"
znr="     "
lg=5
ftextnda="Adress-Kennz. nicht vorhanden !!!"
ftextda="Adress-Kennz. bereits vorhanden !!!"
if lg=7
   do upvers1
   do upvers2
   do upvers3
endif
prog1="upvers1"
prog2="upvers2"
prog3="upvers3"
do stvers
return