-- Copyright 1996-2000 Robelle Solutions Technology Inc.
-- Version 1.01 September 7, 2000

name QSLUtilListCopy group "Ro&belle" command "List &Copy";

property QSLScriptVersion = "ListCopy 1.01 - Copyright Robelle Solutions Technology 2000";

--	This script allows a user to search for strings, regexp or patterns in one or more
--	files. This script uses the ProcessListRequest method of the ListAll.qsl script.
--	Of course, the ListAll script has to be loaded already.
-- 
--	The script has entry points implemented as On Command	blocks:
--
--	String in Copy: search Copy library files with a simple string
--	Regexp in Copy: search Copy library files with a regular expression
--	Pattern in Copy: search Copy files with a pattern
--	About: displays a short text in the Script Control Panel explaining basic
--			operations
--

on command "&String"

	QSLUtilListAll.ProcessListRequest(1, "Copy");
	
endon

on command "&Regexp"

	QSLUtilListAll.ProcessListRequest(2, "Copy");
	
endon

on command "&Pattern"

	QSLUtilListAll.ProcessListRequest(3, "Copy");

endon

on command "About..."
   qedit.showscp = true;
	writelog QSLScriptVersion ;
	writelog " " ;
	writelog "This script will perform a search on the current file and ";
	writelog "all files named in Cobol Copy statements.";
	writelog " " ;
	writelog "ListCopy will use selected text, if any, as the search string.";
	writelog "If no text is highlighted, then ListCopy will prompt you for";
	writelog "a search string." ;
	writelog " ";
endon ;