$Job QGInstall
dump
$EchoSome
;			Declare Some Constants
;
LocalSpec = '[Sys]<Sys>'
ServerSpec = '[Sys]<Sys>'

$If InstallType = 0
	SrcSpec = '[QuickGraph]<QG>'
$Endif

$If InstallType = 2
	SrcSpec = '[Sys]<sys>'
$EndIf

$IF Public
	DestPath = ServerSpec
	PublicYN = 'Y'
	DestVol = '[Sys]'
$Else
	DestPath = LocalSpec
	PublicYN = 'N'
	DestVol = '[Sys]'
$EndIf
;			Copy run file
$Command LCopy, QuickGraph.Run, 
		SrcSpec, 
		DestPath,, Yes
QGRun = ConcatStrings(DestPath,'QuickGraph.Run')
$EchoOff
$Display('Creating QuickGraph command ... ')
$Run ([Sys]<Sys>CmdFileEditor.Run, 'New Command', 'AC'),'QuickGraph', 
		QGRun,,'To quickly prepare Pie, Bar and Line Graphs.', 
		y,00, CmdFileTo,PublicYN
$DisplayLine('Done.')

$Display('Adding QuickGraph to Context Manager CmConfig.Sys file ... ')
$Run ([Sys]<Sys>CMEditor.Run, 'CM Add Application', '01'),
	CmConfigFile,QuickGraph,[Sys]<sys>QuickGraph.Run,850,' QG ',,,,,
	,,,,Y,Y,,,
$DisplayLine('Done.')
QFFPF	uvvvb
FP