If you want to delete a block of records, you will have to loop through the
file.

You can use the Process template to loop thru the file and selectively
delete. Or create a small Loop in your code to do the same. Or if you
want to delete them all you can use Empty(). It needs exclusive access
so do something like this:

       close(tps_inp)
       open(tps_inp,18)  !* open with exclusive rights
       empty(tps_inp)