!Adds family name to empty fields in TPWDEND1
e.supd=true;obtain 1;qfam=family;letsgo=0
while letsgo=0 do
 if tpwdend1.family=" " then
  tpwdend1.family=qfam
 else
  qfam=tpwdend1.family
 endif
 obtain next 
 if pastend(tpwdend1)=true then
  letsgo=1
 endif
 if letsgo ne 0 then;break;endif
endwhile
e.supd=false
release qfam,letsgo