$ ! --------------------------------------------------------------
$ ! This script will accepts a reply from the user and proceeds ahead.
$ ! if user enters 'N' it will not display the file
$ ! Author: Ramakrishnan S
$ ! Date:10/28/2004
$ ! --------------------------------------------------------------

$ WRITE SYS$OUTPUT "VMS Script to Search for anything in a file"
$ Write Sys$output "-------------------------------------------"
$ INQUIRE CHECK "Enter Y[ES] to continue
$ IF .NOT. CHECK THEN EXIT
$ show symbol CHECK

$ ! Following Step Accepts Input file to be opened.
$ ! -----------------------------------------------
$ INQUIRE/GLOBAL FFNAME "Enter file to be Searched
$ INQUIRE/GLOBAL FFF1   "Enter 1st field :
$ INQUIRE/GLOBAL FFF2   "Enter 2nd field :
$ INQUIRE/GLOBAL FFF3   "Enter 3rd field :
   
$ pipe search &FFNAME &FFF1 & search &FFNAME &FFF2 & search &FFNAME &FFF3 
