On 30 Sep 2005, at 11:30, Listserv Manager wrote:

>Since my signup files are twice the recommended size, I either need to
>increase the number of files, or else clean these up. I choose to clean
>them up, but- it's a huge task.

It looks like the password semaphore may change on different OS'es or,
more likely my older notes were scrambled.  On OpenVMS I just stopped
the server, did an ftp mget on the files to my PC, renamed them signup.*
input.*, ran a bat file with one command line for each file:

regina prune.prg input.file1  signup.file1

...and then put them back and restarted Listserv.

Regina is just PC REXX, prune.prg is:

/*  Prune signup file by tossing records without password  */

parse arg filein " " fileout

if fileout = "" then do
  say "Usage: prune filein fileout"
  return
end

passws = '8A'X                             /* password semaphore */
loops = lines(filein, 'C')
recout = 0

do n = 1 to loops
    current = linein(filein)
    if pos(passws, current) > 0 then do
        call lineout(fileout, current)
        recout = recout+1
    end
end

say "Lines in: " loops " Out: " recout

return