Directives 

Format

REFILE [ TABLE ] filename$ [,OPT=options$] [,ERR=stmtref]

Where:

(The TABLE option was added in PxPlus v6.30.)

Description

Use the REFILE directive to erase all data in a specified file. If you use the REFILE directive to erase a file, the file still exists in the system but contains no data. (The system returns disk space to the system while preserving the lock.) Any READ directives for the file will return an End-of-File message.

Using either the REFILE or PURGE directive is faster than deleting the file and recreating it.

If the given filename does not already exist, the system returns an Error #12: File does not exist (or already exists). If the file is in use by another user, the application will receive an Error #0: Record/file busy.

Unlike the PURGE directive, the REFILE directive works if the file is not opened.

Note:
WindX in PxPlus supports the use of this directive via the [WDX] or [LCL] tags; e.g. REFILE "[WDX]somefile.ext". Non-PxPlus versions require you to encapsulate the command in an EXECUTE directive with a [WDX] tag (i.e. EXECUTE "[WDX]..."). See [WDX] Direct Action to Client Machine or [LCL] Access to Users Local Machine.

TABLE Option

The keyword TABLE before the filename$ indicates that the value provided is the logical table name for the file as defined in the currently opened data dictionary file. See OPEN DICTIONARY.

(The TABLE option was added in PxPlus v6.30.)

Multi-Segment Files

If you want to erase the contents of a file that may have multiple segments, you need to either include an ,OPT="ALLSEG" or enable the '+E' system parameter. This will assure all segments are deleted from the system.

(The REFILE logic to clear related segments was added in PxPlus v7.00.)

See Also

LOCK Reserve File for Exclusive Use
PURGE Clear Data from a File
'SK' Shrink Keyed Files

Example

refile "PRNTFL" ! Pre-clear data file
open (2)"PRNTFL"
lock (2)
print (2)'FF',"Date:",day,@(40),TTL$