Delete a file if exits.

[anandknr]

Hi all,
I need the 4gl code for deleting a file if it exits. Please help.

 

[ganesh@anbu]

fullname = SEARCH(filename).
IF fullname = ?
THEN
DISPLAY "UNABLE TO FIND FILE " filename
WITH FRAME b ROW 6 CENTERED NO-LABELS.
ELSE
unix silent rm value(fullname).

 

[rzr]

OS-DELETE VALUE(filename)