$! PQM_STARTUP.COM	Startup procedure for PQM
$!
$! This procedure should be run at system startup to define PQM logicals.
$!
$! To run PQM, define a foreign command such as
$!
$!	PQM :== $PQM_EXE
$!
$!
$! Created 19-Nov-2003 by Jeremy Begg <jeremy@vsm.com.au>
$!
$!******************************************************************************
$
$	set noon
$
$	proc = f$environment("PROCEDURE")
$	procdir = f$parse(proc,,,"DEVICE") + f$parse(proc,,,"DIRECTORY")
$
$!
$! Define a logical pointing the PQM program, so that it's easier to define
$! a foreign command to run PQM
$!
$	define/sys pqm_exe	'procdir'PQM.EXE
$
$!
$! The PQM_LOGFILE logical name specifies where PQM should create its
$! session log.  By default, the log file will be SYS$SCRATCH:PQM_LOGFILE.LIS
$! Defining it as NL: suppresses creation of the session log.
$!
$	define/sys pqm_logfile	NL:
$
$!
$! The PQM_BROWSER logical specifies a DCL command for browsing (displaying)
$! a file.
$!
$	define/sys pqm_browser	"EDIT/TPU/READ/NOOOUT/NOJOURN"
$
$	exit