/* Blindly purge all X-DEL files in the LISTSERV reader */
cp = diag( 8 , "QUERY READER ALL LISTSERV" , 8192 )
parse var cp head '15'x cp
parse var cp line '15'x cp
k = 0
do while words( line ) ^== 0
   parse var line . num . . . . . . . name1 name2 .
   if name1 == "X-DEL" then do
      say left( "Purging..." line , 79 )
      call diag 8 , "TRANSFER LISTSERV READER" num "TO * READER"
      tag = diag( 8 , "TAG QUERY FILE" num )
      parse var tag tag '15'x
      say left( "          " tag , 79 )
      call diag 8 , "PURGE READER" num
      k = k + 1
   end
   parse var cp line '15'x cp
end
files = "files"
were = "were"
if k == 1 then files = "file"
if k == 1 then were = "was"
if k == 0 then k = "no"
say "There" were k "X-DEL" files "purged from LISTSERV"
exit