cleardata statement

cleardata

The following program is invoked from a macro. A list of filenames and record IDs is passed to it from the macro with DATA statements.

5 *
input filename
if filename = "end" then stop
open filename to file else
   print "can’t open file ":filename
   print "please enter new filename "
   cleardata
   goto 5
end