/*---------------------------------------------------
  CALL WZEROFILE FILESPEC
  Uses WZEROFILE to Zero out a file
  Specify path to WZEROFILE.EXE or put in Path
  ---------------------------------------------------*/
WZEROFILE: PROCEDURE
 PARSE ARG TFILE
 TCMD = 'H:\U\WZEROFILE.EXE 'TFILE
 ADDRESS DOS TCMD
RETURN