0 DEL 40 F (if p(v40) then if v40^F<>'' and v40^F<>'******' and v40^F.4<='2017' then '1' else '0' fi fi/) XXXXXXXXXXXXXXXXXXX