parm files="?",from="",to=""
if "!files" = "?"then
  echo
  echo EDITCHG
  echo
  echo      A Quad Editor change utility.
  echo
  echo SYNTAX
  echo
  echo      EDITCHG [selection],[from],[to]
  echo
  echo PARAMETERS
  echo
  echo selection            The 'selection' determines which group of
  echo                      files are to be edited.  If left blank the
  echo                      help is displayed.
  echo
  echo from                 This is the string that you want changed in
  echo                      each of the selected file, if found.
  echo
  echo to                   This is the string that you want the 'from'
  echo                      string changed to, if found.
  echo
  echo EXAMPLE(S)
  echo
  echo      To change 'jon' to 'john' in all the files of the test group
  echo
  echo      EDITCHG @.test,jon,john
  echo
  echo
  return
endif
setvar my_c "c '!from' '!to' all"
setvar my_quad "quad.pub.techgrp"
file outfile;msg
errclear
listfile !files,6>*outfile
if hpcierr <> 0 then
  echo Command not allowed (CIERR: !hpcierr)
  return
endif
reset outfile
while finfo('outfile','eof')>0 do
  input my_f<outfile
  setvar my_f rtrim(my_f)
  run !my_quad;info="t !my_f;!my_c;k;e"
endwhile
deletevar my_@