/* 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