Click above to get retro games delivered to your door ever month!

 PURGE
------------------------------------------------------------------------------
 Purpose:
 Emulate the Novell 286 PURGE.EXE utility.

 Syntax:
 PURGE [ALL]

 Parameters:
 ALL The flag to purge all erased files on the server.

 Returns:
 None. NWErrorGet() returns non-zero if an error occurs.

 Description:
 PURGE emulates the NetWare 286 PURGE.EXE command line utility, which
 releases disk space taken up by erased files.

 Example:
 // To purge the erased files of the workstation:

 PURGE
 if ( NWErrorGet() = 0 )
    ? "All erased files have been purged successfully"
 endif

 // To purge all erased files from the file server:

 PURGE ALL
 if ( NWErrorGet() = 0 )
    ? "All erased files for all workstations "
    ?? "have been purged"
 endif

 Notes:
 This UDC only works with CA-Clipper 5.x. PURGE also requires that
 the requesting user has console operator rights.