function long delete_all_files

!labels

!constants

!types

!variables
declare long			sys_status, job, idx
%include "que_struct.bas"

!procedures

!functions
external long function		delete_file

for job = 1% to num_jobs
    for idx = 1% to num_files
	sys_status = delete_file( file_name )
	if (sys_status and 1%) = 0% then
	    call lib$signal( sys_status by value )
	end if
    next idx
next job

delete_all_files = sys_status

end function