/* REXX */
trace o

address tso
   "execio * diskr indd(stem line. finis"

do x = 1 to line.0
      line=strip(line.x)
      parse var line mem nam rest
      ress=strip(rest)
      if mem="MEMBER" & nam="NAME" then
      do
         out="./ ADD NAME="ress
         queue out
         address tso "execio 1 diskw outdd"
      end
      else do
         queue line.x
         address tso "execio 1 diskw outdd"
      end
end
ende:
address tso "execio 0 diskw outdd"
exit