&REFER(VARANLFR,Sortie).
&CLEX(PLACEMOT).
&VAL.
0:.
&FIN.