parm file_set, search_string, entry_point="main"
#  grepem.xeq - uses grep to search a fileset for
#               all occurrences of a search string
#  Tim Ericson
if "!entry_point" = "main"
  listfile !file_set,6 > allfiles
  !hpfile not_needed, !search_string, print < allfiles
  purge allfiles,temp
  purge thisfile,temp
  deletevar allfiles_eof, record_counter, file_name
else
  setvar allfiles_eof, finfo("allfiles","eof")
  setvar record_counter, 0
  while setvar(record_counter, record_counter + 1) < allfiles_eof
    input file_name
    echo ==========================
    echo !file_name
    echo --------------------------
    print !file_name;page=0 > thisfile
    grep.hpbin.sys "-i '!search_string'" < thisfile
  endwhile
  echo ==========================
endif