SUBROUTINE TESTPHANTOM (RETURNVAL,PARAMETRES,W_Sortie)
EXECUTE 'DATE.FORMAT'
EXECUTE 'SET-DEC ,'
EXECUTE "SET-THOUS ."
EXECUTE 'LISTU' CAPTURING MSG
W_Sortie = ""
*IF INDEX(OCONV(MSG,"MCU"),"PHANTOM",1) # 0 THEN
	W_Sortie = "1"
*END
RETURN
