Hello,
I've adjusted the code a little:
PROGRAM DELPRGLB
VAR
STATUS : INTEGER -- The status returned from the built-in calls
file_spec : STRING[30] -- The created file specification for DELETE
BEGIN
DELETE_FILE ('MD:\BALA.TP', FALSE, STATUS) -- Delete the file.
IF (STATUS <> 10003) AND (STATUS <> 85014) THEN
WRITE ('ERROR', STATUS,'IN attempt TO delete',CR, file_spec,CR)
ENDIF
END DELPRGLB
I have some remarks:
1. Always format your code in order to look easier to read.
2. You have to enclose MD:\BALA.TP in ' '.
3. You must enclose ’ERROR ’ .. in ' ', not in ’ ’.
4. Variable SUCCESS is not declared.