!***************************************************************************
!         Pre Processor for edt to confirm the creation of a new file
!         and allow VMS XLATE call spawn a subprocess.
!
DEFINE VERB E
         IMAGE DISK:[DIR]EDTSPN    ! you MUST change this line to reflect
                                   ! the proper location of EDTSPN!!

         PARAMETER p1,label=filename,value(required,type=$infile),prompt="File "
         QUALIFIER edt
         QUALIFIER command
           value(required,type=$infile)
         QUALIFIER journal,value(type=$infile)
         QUALIFIER output,value(type=$outfile)
         QUALIFIER recover
         QUALIFIER create
         QUALIFIER read_only
 	 QUALIFIER pass_symbols   ! this qualifier directs EDTSPN to pass
                                  ! Process DCL symbols and Logical names to
                                  ! the subprocess.
!*
!****************************************************************************