PARM P1,P2 SETVAR FNAME "!P1" COMMENT ************************************************************* COMMENT COMMAND FILE: SCANFILE.XEQ.SYS COMMENT DESCRIPTION: READS THROUGH A FILE AND SEARCHS IT FOR A COMMENT STRING. COMMENT USAGE: SCANFILE.XEQ.SYS file,"String to search for" COMMENT RESULTS: SETVAR FOUND WILL BE TRUE IF THE STRING IS FOUND COMMENT ELSE IT WILL BE FALSE. COMMENT SETVAR REC WILL CONTAIN THE LINE FOUND SETVAR SEARCH_STRING "!P2" IF FINFO("!FNAME",0) THEN RUN CI.PUB.SYS;PARM=3;STDIN=!FNAME;INFO="READFILE.XEQ.SYS" > $NULL ELSE ECHO $$$ *** File !FNAME does not exist ENDIF