• State Verified Answer
  • +1 person also asked this people also asked this
  • Replies 6 replies
  • Answers 1 answer
  • Subscribers 14 subscribers
  • Views 3082 views
  • Users 0 members are here
Related

Agilent Knowledge Portal

Find maintenance, best practice, and troubleshooting articles.

Agilent Knowledge Portal

Help - The ChemStation did not complete its initialization cycle

emgc-ms

Hi,

 

MassHunter Acquisition software opens but this error "The ChemStation did not complete its initialization cycle" appears and then shuts down but leaves a log (attached or below).

 

Any help would be greatly appreciated.

 

Tried:

- re-installing by disc.

- restarting PC, GC, MS

 

Thanks.

 

 

Log file is C:\GCMS\Msexe\icstart1.log. Logging is On
macro _exepath$+"dosnote.mac"
Macro(s) in C:\GCMS\Msexe\dosnote.mac loaded.
macro _exepath$+"ictopcm1.mac"
Macro(s) in C:\GCMS\Msexe\ictopcm1.mac loaded.
macro _exepath$+"ictopcm2.mac"
Macro(s) in C:\GCMS\Msexe\ictopcm2.mac loaded.
macro _exepath$+"instctlid.mac"
Macro(s) in C:\GCMS\Msexe\instctlid.mac loaded.
InitInstVars
local a
varlock 0
Variable locking is Off
InitInstVars_GC
_gctype = getinfo("inlet_gc")
6
_isgc = 0
0
_isgc6850 = 0
0
_isgc6890 = 0
0
_isgc7810 = 0
0
_isgc7820 = 0
0
_isgc7890 = 0
0
_isgcOther = 0
0
_isgc68xx = 0
0
_isgc78xx = 0
0
_isgcRC = 0
0
_gcname$="??_GC"
??_GC
gcmod$ = ""

_gcready = 0
0
_gcacqmethfile$=""

if _gctype = 0
endif
if _gctype = 1
endif
if _gctype = 2
endif
if _gctype = 3
endif
if _gctype = 4
endif
if _gctype = 5
endif
if _gctype = 6
_isgc7820 = 1
1
_isgc78xx = 1
1
_isgcRC = 1
1
_isgc = 1
1
_gcname$ = "7820"
7820
_gcacqmethfile$="7890method.bin"
7890method.bin
gcmod$ = "7820"
7820
return
InitInstVars_MS
_mstype = getinfo("ms_type")
7
_isMSNewIfc = 0
0
_msacqmethfile$="acq.ms"
acq.ms
_isms = 0
0
_ismsQ1 = 0
0
_isMS5973N = 0
0
_isMS5975 = 0
0
_isMS5976 = 0
0
_isMS5977 = 0
0
_ismsQQQ = 0
0
_ismsQTOF = 0
0
_ismsTOF = 0
0
_ismsTrap = 0
0
_ismsTrap220 = 0
0
_ismsTrap240 = 0
0
_msname$ = "??_MS"
??_MS
_mstype$ = "MS?"
MS?
_ismsNone = 0
0
if _isDotNet=1
_msready = 0
0
else
endif
if _mstype = 1
endif
if _mstype = 2
endif
if _mstype = 3
endif
if _mstype = 4
endif
if _mstype = 5
endif
if _mstype = 6
endif
if _mstype = 7
_isms = 1
1
_ismsQ1 = 1
1
_isMS5977 = 1
1
_msname$ = "5977"
5977
_mstype$ = "MSD"
MSD
return
InitInstVars_HS
local i
varlock off
Variable locking is Off
_isHS =0
0
_isHS7694 =0
0
_isHSG1888=0
0
_isHS7697 =0
0
_isHSmodel$=""

i=getinfo("hs_type")
0
if i=0
return
set_gcinst
if _isms=0 and _isDotNet = 0
_gcinst=-1
-1
endif
_adinst=-1
-1
return
_isoffline = getinfo("offline")
0
_alstype = getinfo("als_type")
0
_isctc = 0
0
_ctcname$="NO_CTC"
NO_CTC
if _alstype = 2
endif
_injready = 0
0
varlock 1
Variable locking is On
return
hackoffline
if _isoffline=0
return
if _ismsq1=1 and _isdotnet=1
usecipi=1
1
endif
macro _exepath$+"da_id.mac"
Macro(s) in C:\GCMS\Msexe\da_id.mac loaded.
InitDAVars 1,_isDotNet
varlock 0
Variable locking is Off
_IsMustangDA = 0
0
_IsMassHunterDA = 0
0
_IsMassHunterQuant = 0
0
_IsMassHunterQual = 0
0
_enhapp=getinfo("application")
2
filesize _exepath$+"msda.exe"
if size > 0
_IsMustangDA = 1
1
endif
LocateMHDAComponent FindMH,_IsMassHunterQual,_IsMassHunterQuant
MHQualExePath$=""

MHQualVer$=""

MHQuantExePath$=""

MHQuantVer$=""

MHCustHome$=""

if FindMH = 0
endif
local tree$
FindLatestQual MHQualExePath$,MHQualVer$
local qualpath$,last$,done,count,tempdef$,temp$,last,lastlatest$,tree$
getregvalue_ 0,"software\agilent\MassHunter\Workstation\Qual","home",qualpath$,,tree$
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter\Workstation\Qual
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter\Workstation\Qual
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if len(retval) = 0
Check32 = 1
1
endif
endif
else
endif
if Check32 = 1
tree$=Mnode$+node$
software\agilent\MassHunter\Workstation\Qual
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1 and num(retval) <> 0 and REGVALUEEXIST <> 0
endif
endif
endif
item = retval

return
if len(qualpath$) > 0
endif
qualpath$=""

getregvalue_ 0,"software\agilent\MassHunter\Workstation\Qual","",qualpath$,1,tree$,"home"
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter\Workstation\Qual
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter\Workstation\Qual
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if 0 = REGVALUEEXIST or num(retval) = 0
if len(musthave$) > 0
a=1
1
while a <= num(retval)
skey$=retval[a]
B.06.00
mustkey$=""

getregvalue what,tree$+"\"+skey$,musthave$,mustkey$
print musthave$,mustkey$
home C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\
if regvalueexist > 0 and len(mustkey$) > 0
found_one = 1
1
endif
a=a+1
2
endwhile
while a <= num(retval)
endif
if found_one = 0
endif
endif
else
endif
else
endif
if Check32 = 1
endif
item = retval
ARRAY of strings of length 1
return
if num(qualpath$) > 0 and check("string","qualpath$") = 0
count = 1
1
while count <= num(qualpath$)
latest$ = qualpath$[count]
B.06.00
temp$=""

getregvalue 0,tree$+"\"+latest$,"home",temp$
if regvalueexist <> 0
last$=temp$
C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\
lastlatest$=latest$
B.06.00
endif
count = count + 1
2
endwhile
while count <= num(qualpath$)
else
endif
if len(last$) > 0
here$=last$
C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\
latest$=lastlatest$
B.06.00
else
endif
return
if len(MHQualExePath$) > 0
MHQualExePath$=MHQualExePath$+"bin\"
C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\bin\
filesize MHQualExePath$+"agtqual.exe"
if size <= 0
ismhqual = 1
1
endif
endif
getregvalue_ 0,"software\agilent\MassHunter\Workstation\Quant","home",MHQuantExePath$,,tree$
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter\Workstation\Quant
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter\Workstation\Quant
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if len(retval) = 0
endif
endif
else
endif
if Check32 = 1
endif
item = retval
C:\Program Files\Agilent\MassHunter\Workstation\Quant\
return
print MHQuantExePath$
C:\Program Files\Agilent\MassHunter\Workstation\Quant\
if len(MHQuantExePath$) > 0
MHQuantExePath$=MHQuantExePath$+"bin\"
C:\Program Files\Agilent\MassHunter\Workstation\Quant\bin\
filesize MHQuantExePath$+"quantanalysis.exe"
if size <= 0
ismhquant = 1
1
getregvalue 0,tree$+"\version","release",MHQuantVer$
print MHQuantVer$
B.07.00
endif
endif
getregvalue_ 0,"software\agilent\MassHunter","CustomerHome",MHCustHome$
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if len(retval) = 0
endif
endif
else
endif
if Check32 = 1
endif
item = retval
D:\MassHunter\
return
if len(MHQualExePath$) = 0
endif
MHQualMethPath$=""

MHQualMethFile$=""

MHQuantMethPath$=""

MHQuantMethFile$=""

return
if _IsMassHunterQual > 0 or _IsMassHunterQuant > 0
_IsMassHunterDA = 1
1
endif
if _enhapp = -1
endif
if set_macropath = 1
_macropath$=_exepath$[1:len(_exepath$)-6]+"msmacros\"
C:\GCMS\msmacros\
if _isMS = 0
endif
endif
return
if _ismsq1=1 and _isdotnet=1
usecipi=1
1
endif
NoTop=1
1
macro _exepath$+"eqabout.mac"
Macro(s) in C:\GCMS\Msexe\eqabout.mac loaded.
doabout 1,1
LOCAL BitmapName$,CP_Title$, AppName$, AppVersion$, Copyright$,dllfile$
local a$,appnames$
if Initialize = 1
set_application
local appnumber
local i,inifile$,inisect$,app,MHtemp$,steconfig$
inifile$=""

inisect$="PCS,"+val$(_instnum)
PCS,1
varlock 0
Variable locking is Off
if instr(upper$(_appname$),"MSINSCTL") > 0
i=setinistring(_tunepath$+"tempini.ini","EQ","EQ","1")
1
value=filestat(_exepath$+"MSINSCTL.EXE")
ARRAY of length 11
if value[7]=0
SA=0
0
_enhmode=2
2
local size
filesize _exepath$+"msqqq.dll"
if size <= 0
endif
if size <= 0 and _gcinst < 1
endif
endif
else
endif
_enhapp$=_$(18546,"Unknown")
Unknown
MHtemp$=_$(18553,"MassHunter")
MassHunter
local drugpath$
drugpath$=_exepath$[1:len(_exepath$)-6]+"DRUGMACS\"
C:\GCMS\DRUGMACS\
_topinipath$ = _macropath$
C:\GCMS\msmacros\
if _enhapp=1
endif
if _enhapp=2
initop$="ENHTOP.INI"
ENHTOP.INI
steconfig$ = "ENH_STE.dll.config"
ENH_STE.dll.config
if _isMS = 0
endif
toprfgmode = 0
0
_eq_running=1
1
if _cfrmode = 1
endif
_enhapp$=_$(19456,"Enhanced")
Enhanced
endif
if _enhapp=3
endif
if _enhapp=5
endif
_helpfile$ = "GCMSAcq.CHM"
GCMSAcq.CHM
if _ismsTrap220 = 1
endif
if _ismsTrap240 = 1
endif
if _isMSQ1 = 1
_helpfile$ = "MSDacq.CHM"
MSDacq.CHM
endif
if _isMSQQQ = 1
endif
if _isMSQTOF = 1
endif
if _isMS = 0 and _isGC = 1
endif
_enhapp$ = _enhapp$ + " " + MHtemp$
Enhanced MassHunter
_STEConfigFile$=_instpath$+steconfig$
D:\MassHunter\GCMS\1\ENH_STE.dll.config
_topinifile$ = _topinipath$+initop$
C:\GCMS\msmacros\ENHTOP.INI
if _isDotNet = 1
return
endif
if noshow = 1
remove DoAbout
Removed macro DOABOUT
whoami_OS=1
1
CFGOperator=1
1
add_menusep=0
0
edacpsecure=0
0
if check("macro","topreqinit") = 0
inifile$=_instpath$+"msanyone.ini"
D:\MassHunter\GCMS\1\msanyone.ini
inisect$="security"
security
edacpsecure = val(getinistring$(inifile$,inisect$,"enabled"))
0
if edacpsecure = 1
endif
macro _exepath$+"msnconfg.mac"
Macro(s) in C:\GCMS\Msexe\msnconfg.mac loaded.
endif
GetOperators
if CFGOperator = 1
return
on_error startuperror 1
macro _exepath$+"locallang.mac",go
Macro(s) in C:\GCMS\Msexe\locallang.mac loaded.
GETLANGUAGES
local a$, b$, c$, d, e,tree$
if _isDotNet = 0
d=getlocaleid()
1033
e=d
1033
endif
print "InstallLang: ", d, " RunLang: ", e, " Registry: ",tree$
InstallLang: 1033 RunLang: 1033 Registry:
varlock off
Variable locking is Off
_OSlanguage=e
1033
_CSlanguage=d
1033
if _isDotNet = 0
_EnglishHelp$="MSDacq-en.chm"
MSDacq-en.chm
endif
varlock on
Variable locking is On
setsysfont
varlock off
Variable locking is Off
if _CSlanguage = 1041
endif
if _CSlanguage = 2052
endif
if _CSlanguage <> 1041 and _CSlanguage <> 2052 then
_systemFont$ = "Arial"
Arial
_systemFontFixed$ = "Courier New"
Courier New
_systemFontFSize = 9
9
endif
print "System Font: ", _systemFont$
System Font: Arial
varlock on
Variable locking is On
return
return
macro _exepath$+"localkwd.mac",go
Macro(s) in C:\GCMS\Msexe\localkwd.mac loaded.
REDOTOPINIFILES
local LKbasedir$,inifile$,stefile$,keyword$,a
if check("variable","basedir$")
LKbasedir$ = _exepath$[1:len(_exepath$)-6]
C:\GCMS\
endif
a=filestat(lkbasedir$+"gcmacros")
ARRAY of length 11
if a[7]<>2
endif
DoInstSTEFile lkbasedir$
local inifile$,stefile$,keyword$,a,inst_stefile$
if _isms > 0
if _enhapp = 1
endif
if _enhapp = 2
inifile$= LKbasedir$+"msmacros\enhtop.ini"
C:\GCMS\msmacros\enhtop.ini
WriteLocalKwd inifile$
local a,temp$,inisect$,size1
filesize inifile$
size1=size
2693
filesize inifile$+".bkp"
if size <= 0 and size1 > 0
endif
inisect$="Samplog"
Samplog
a=setinistring(inifile$,inisect$,"","")
1
inisect$="localized keywords"
localized keywords
a=setinistring(inifile$,inisect$,"","")
1
a=setinistring(inifile$,inisect$,"Append",_$(36400,"Append"))
1
a=setinistring(inifile$,inisect$,"BatchDir",_$(36401,"BatchDir"))
1
a=setinistring(inifile$,inisect$,"BatchRep",_$(36402,"BatchRep"))
1
a=setinistring(inifile$,inisect$,"CheckBar",_$(36403,"CheckBar"))
1
a=setinistring(inifile$,inisect$,"CIgasOFF",_$(36404,"CIgasOFF"))
1
a=setinistring(inifile$,inisect$,"ClockStart",_$(36405,"ClockStart"))
1
a=setinistring(inifile$,inisect$,"Command",_$(19729,"Command"))
1
a=setinistring(inifile$,inisect$,"Comment",_$(36406,"Comment"))
1
a=setinistring(inifile$,inisect$,"Comments",_$(36407,"Comments"))
1
a=setinistring(inifile$,inisect$,"ContConc",_$(36408,"ContConc"))
1
a=setinistring(inifile$,inisect$,"DataPath",_$(19725,"DataPath"))
1
a=setinistring(inifile$,inisect$,"Debug",_$(36409,"Debug"))
1
a=setinistring(inifile$,inisect$,"DualMeth",_$(36410,"DualMeth"))
1
a=setinistring(inifile$,inisect$,"DualTwr",_$(36411,"DualTwr"))
1
a=setinistring(inifile$,inisect$,"Interval",_$(36412,"Interval"))
1
a=setinistring(inifile$,inisect$,"MakeSec",_$(36413,"MakeSec"))
1
a=setinistring(inifile$,inisect$,"Methdev",_$(36414,"Methdev"))
1
a=setinistring(inifile$,inisect$,"MethPath",_$(19726,"MethPath"))
1
a=setinistring(inifile$,inisect$,"MSDClear",_$(36415,"MSDClear"))
1
a=setinistring(inifile$,inisect$,"NewBatch",_$(36416,"NewBatch"))
1
a=setinistring(inifile$,inisect$,"OverWrit",_$(19727,"OverWrit"))
1
a=setinistring(inifile$,inisect$,"OverWrite",_$(36417,"OverWrite"))
1
a=setinistring(inifile$,inisect$,"Pause",_$(19689,"Pause"))
1
a=setinistring(inifile$,inisect$,"PumpON",_$(36418,"PumpON"))
1
a=setinistring(inifile$,inisect$,"ReQtStds",_$(36419,"ReQtStds"))
1
a=setinistring(inifile$,inisect$,"SeedName",_$(19728,"SeedName"))
1
a=setinistring(inifile$,inisect$,"SepGC1",_$(36420,"SepGC1"))
1
a=setinistring(inifile$,inisect$,"SepGC2",_$(36421,"SepGC2"))
1
a=setinistring(inifile$,inisect$,"Stagger",_$(36422,"Stagger"))
1
a=setinistring(inifile$,inisect$,"SwapName",_$(19688,"SwapName"))
1
a=setinistring(inifile$,inisect$,"SwitchGC",_$(36423,"SwitchGC"))
1
a=setinistring(inifile$,inisect$,"Tune",_$(36424,"Tune"))
1
a=setinistring(inifile$,inisect$,"Unlinked",_$(36425,"Unlinked"))
1
a=setinistring(inifile$,inisect$,"Vent",_$(36426,"Vent"))
1
a=setinistring(inifile$,inisect$,"MassCal",_$(36427,"MassCal"))
1
a=setinistring(inifile$,inisect$,"USeDecisions",_$(36428,"UseDecisions"))
1
a=setinistring(inifile$,inisect$,"GC Wake Up",_$(36429,"GC Wake Up"))
1
a=setinistring(inifile$,inisect$,"GC Sleep",_$(36430,"GC Sleep"))
1
a=setinistring(inifile$,inisect$,"Bake",_$(36431,"Bake"))
1
a=setinistring(inifile$,inisect$,"Check Tune",_$(36432,"Check Tune"))
1
a=setinistring(inifile$,inisect$,"SimulatedAcq",_$(36433,"SimulatedAcq"))
1
a=setinistring(inifile$,inisect$,"2-Layer L2",_$(36434,"2-Layer L2"))
1
a=setinistring(inifile$,inisect$,"3-Layer L2;L3",_$(36435,"3-Layer L2;L3"))
1
return
if _ismsq1 = 1
Keyword$="Bake,CIGASOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3"
Bake,CIGASOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
endif
if _ismsqqq = 1
endif
if _ismsqtof = 1
endif
WriteAppKeyword inifile$,keyword$
local done,i,temp$,keywordline$,keyword$,nofile
done = 0
0
while done = 0
i = instr(bigstr$,",")
5
if i > 0
temp$=bigstr$[1:i-1]
Bake
bigstr$=bigstr$[i+1:len(bigstr$)]
CIGASOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Bake
return
keywordline$=keywordline$ + keyword$
Bake
if done = 0
keywordline$ = keywordline$ + ","
Bake,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
CIGASOFF
bigstr$=bigstr$[i+1:len(bigstr$)]
ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
CIgasOFF
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
11
if i > 0
temp$=bigstr$[1:i-1]
ClockStart
bigstr$=bigstr$[i+1:len(bigstr$)]
Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
ClockStart
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
8
if i > 0
temp$=bigstr$[1:i-1]
Comment
bigstr$=bigstr$[i+1:len(bigstr$)]
Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Comment
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
8
if i > 0
temp$=bigstr$[1:i-1]
Command
bigstr$=bigstr$[i+1:len(bigstr$)]
GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Command
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
GC Sleep
bigstr$=bigstr$[i+1:len(bigstr$)]
GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
GC Sleep
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
11
if i > 0
temp$=bigstr$[1:i-1]
GC Wake Up
bigstr$=bigstr$[i+1:len(bigstr$)]
Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
GC Wake Up
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
Interval
bigstr$=bigstr$[i+1:len(bigstr$)]
Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Interval
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
10
if i > 0
temp$=bigstr$[1:i-1]
Overwrite
bigstr$=bigstr$[i+1:len(bigstr$)]
Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
OverWrite
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
6
if i > 0
temp$=bigstr$[1:i-1]
Pause
bigstr$=bigstr$[i+1:len(bigstr$)]
PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Pause
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
7
if i > 0
temp$=bigstr$[1:i-1]
PumpON
bigstr$=bigstr$[i+1:len(bigstr$)]
Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
PumpON
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
5
if i > 0
temp$=bigstr$[1:i-1]
Tune
bigstr$=bigstr$[i+1:len(bigstr$)]
Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Tune
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
Unlinked
bigstr$=bigstr$[i+1:len(bigstr$)]
UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Unlinked
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
13
if i > 0
temp$=bigstr$[1:i-1]
UseDecisions
bigstr$=bigstr$[i+1:len(bigstr$)]
Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
UseDecisions
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
5
if i > 0
temp$=bigstr$[1:i-1]
Vent
bigstr$=bigstr$[i+1:len(bigstr$)]
2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Vent
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
11
if i > 0
temp$=bigstr$[1:i-1]
2-Layer L2
bigstr$=bigstr$[i+1:len(bigstr$)]
3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
2-Layer L2
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
0
if i > 0
temp$ = bigstr$
3-Layer L2;L3
done = 1
1
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
3-Layer L2;L3
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
if done = 0
endif
endwhile
while done = 0
bigstr$ = keywordline$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
return
stefile$=LKbasedir$+"msexe\enh_ste.dll.config"
C:\GCMS\msexe\enh_ste.dll.config
inst_stefile$="enh_ste.dll.config"
enh_ste.dll.config
WriteSTEKeywords stefile$,keyword$
endif
if _enhapp = 3
endif
if _enhapp = 5
endif
copy stefile$,_instpath$+inst_stefile$,dontask
Copying C:/GCMS/msexe/enh_ste.dll.config to D:/MassHunter/GCMS/1/enh_ste.dll.config
return
return
IsTop=0
0
slt_edit_state=0
0
UserSLTEdit=0
0
lf$=chr$(13)+chr$(10)


crlf$=lf$


PrivEnabled = 0
0
if _isDotNet = 1
PrivEnabled = ROLESECURITYMODE()
0
if PrivEnabled = 1
endif
endif
MACRO _envcomm$+"AUDIT.MAC"
Macro(s) in C:\GCMS\Msexe\AUDIT.MAC loaded.
audit_global
audit_0 = 1
1
audit_1 = 1
1
audit_2 = 1
1
audit_time = 0
0
audit_timeout = 0.5
0.5
audit_pass = 0
0
audit_dfile = 10
10
audit_mfile = 11
11
audit_dname$="Audit.txt"
Audit.txt
audit_mname$="Audit.txt"
Audit.txt
audit_format= 1
1
audit_user$=""

event$=""

message$=""

severity=2
2
return
remove audit_global
Removed macro AUDIT_GLOBAL
AUDIT_0=0
0
on_error emethoderror
dimemeth=0
0
filesize _exepath$+"emethod.dll"
if size>10
endif
on_error startuperror 1
emethimptgt$=getinistring$("","pcs","eMethodImport")

emethexptgt$=getinistring$("","pcs","eMethodExport")

LOGBKDLL = -1
-1
LOGBKDLL = dllinstall(_exepath$+"mslogbk.dll")
3.36751E+07
macro _exepath$+"dolb.mac"
Macro(s) in C:\GCMS\Msexe\dolb.mac loaded.
dolb_cs 0
local a$
if mode=0
a$=getinistring$("","PCS,"+val$(_instnum),"CS_shutdown")
0
if val(a$)=0
lbaddentry "MassHunter",_$(17314,"Startup initiated.")
else
endif
setinistring("","PCS,"+val$(_instnum),"CS_shutdown","1")
1
else
endif
return
Dim MprintVars,5
Array MprintVars(5) has been created
GetMprintVars
local TMPrintVars,astat,num_check
dim TMPrintVars,5
Array TMPrintVars(5) has been created
local inifile$,inisect$,labels$,buttons$,title$
inifile$=_instpath$+"hst.ini"
D:\MassHunter\GCMS\1\hst.ini
inisect$="Method Print"
Method Print
if what = 1
TMPrintVars[1]=getiniint(inifile$,inisect$,"Method Control")
-1
TMPrintVars[2]=getiniint(inifile$,inisect$,"GC")
-1
TMPrintVars[3]=getiniint(inifile$,inisect$,"MS")
-1
TMPrintVars[4]=getiniint(inifile$,inisect$,"DA Summary")
-1
TMPrintVars[5]=getiniint(inifile$,inisect$,"DA Detailed")
-1
astat=arraystat(TMPrintVars,5)
ARRAY of length 6
if astat[6]=-1
TMPrintVars[1]=1
1
TMPrintVars[2]=1
1
TMPrintVars[3]=1
1
TMPrintVars[4]=1
1
TMPrintVars[5]=0
0
endif
MPrintVars=TMPrintVars
ARRAY of length 5
return
GetBprintVars
local TBPrintVars,astat,num_check
dim TBPrintVars,5
Array TBPrintVars(5) has been created
local inifile$,inisect$,labels$,buttons$,title$
inifile$=_instpath$+"hst.ini"
D:\MassHunter\GCMS\1\hst.ini
inisect$="Button Print"
Button Print
if what = 1
TBPrintVars[1]=getiniint(inifile$,inisect$,"Sequence Log")
-1
TBPrintVars[2]=getiniint(inifile$,inisect$,"Current Sequence")
-1
TBPrintVars[3]=getiniint(inifile$,inisect$,"Instrument Parameters")
-1
inisect$="Method Print"
Method Print
TBPrintVars[4]=getiniint(inifile$,inisect$,"DA Summary")
-1
TBPrintVars[5]=getiniint(inifile$,inisect$,"DA Detailed")
-1
astat=arraystat(TBPrintVars,5)
ARRAY of length 6
if astat[6]=-1
filesize _instpath$+"sequence.log"
if size > 0
TBPrintVars[1]=1
1
else
endif
TBPrintVars[2]=0
0
TBPrintVars[3]=1
1
TBPrintVars[4]=0
0
TBPrintVars[5]=0
0
endif
BPrintVars=TBPrintVars
ARRAY of length 5
return
if _isDotNet = 0
endif
ntmenulabel$=_$(28730,"&Top")
&Top
ntmenumsg$ = _$(28731,"Display Top Level Panel")
Display Top Level Panel
if NoTop = 1
ntmenulabel$=_$(28732,"&Sequence/Automated Control")
&Sequence/Automated Control
ntmenumsg$ = _$(28733,"Display Sequence/Automated Control Panel")
Display Sequence/Automated Control Panel
macro _exepath$+"ictop.mac",go
Macro(s) in C:\GCMS\Msexe\ictop.mac loaded.
ICTOP_INIT
local defseq$, initseq$
white=1
1
green=2
2
yellow=3
3
red=4
4
strdim color$,4
String Array color$(4) has been created
color$[1]="White"
White
color$[2]="Green"
Green
color$[3]="Yellow"
Yellow
color$[4]="Red"
Red
UseDrugIS = 0
0
UseClassicBatch=getiniint("","pcs,"+val$(_instnum),"UseClassicBatch")
-1
if UseClassicBatch < 0 or UseClassicBatch > 1
UseClassicBatch = 0
0
endif
filesize _exepath$+"TopBatch.mac"
if size > 0
BatchModeAvailable=1
1
macro _exepath$+"topbatch.mac",go
Macro(s) in C:\GCMS\Msexe\topbatch.mac loaded.
BSLOAD
remove bsload
Removed macro BSLOAD
else
endif
filesize _exepath$+"sens73.mac"
if size > 0
macro _exepath$+"sens73.mac"
Macro(s) in C:\GCMS\Msexe\sens73.mac loaded.
endif
varlock off
Variable locking is Off
_dllpath$=_exepath$
C:\GCMS\Msexe\
if check("variable","_enhapp$")=0
endif
if check("variable","toprfgmode")=0
endif
if check("variable","_hp3365")=0
_hp3365=0
0
endif
if check("variable","usetek")=0
usetek=0
0
endif
if check("variable","gc90isON")=0
gc90isON=0
0
endif
_synchronize=0
0
varlock on
Variable locking is On
if val(getinistring$("","pcs,"+val$(_instnum),"AD_ID"))>0
endif
varlock off
Variable locking is Off
if _enhapp = 5
endif
varlock 0
Variable locking is Off
_currentver = 2.10
2.1
SEQ_TRACE = 0
0
POSITIONED = 0
0
IN_SUBSEQ = 0
0
UseOldSlt = val(getinistring$("","pcs,"+val$(_instnum),"UseOldSlt"))
0
SLTChoice = val(getinistring$("","pcs,"+val$(_instnum),"SltChoice"))
0
_OverWrite = 0
0
_SeqLine = 1
1
_insctlerrmsg$ = ""

_daerrmsg$ = ""

_skipacq = 0
0
_RMStage$ = ""

canceltext$=_$(19437,"Cancelled")
Cancelled
lpwidth=74
74
lplength=62
62
if _cfrmode = 1
on_error starterror _$(19438,"Printer not responding! Default values assigned!"),1
endif
pagesize lpwidth,lplength
The default printer is 81 characters wide and has 66 lines.
on_error starterror
_methpath$ = GETINISTRING$("","PCS,"+VAL$(_instnum),"_METHPATH$")
D:\MassHunter\GCMS\1\METHODS\
_seqpath$ = getinistring$("","pcs,"+val$(_instnum),"_seqpath$")
D:\MassHunter\GCMS\1\SEQUENCE\
_seqfile$ = getinistring$("","pcs,"+val$(_instnum),"_seqfile$")
default.sequence.xml
_UserDefined=""

_UserDefined9=""

varlock 1
Variable locking is On
sum = FILESTAT(_MethPath$ + _MethFile$)
ARRAY of length 11
if (sum[7] <> 2)
endif
z_oldmethpath$ = _methpath$
D:\MassHunter\GCMS\1\METHODS\
z_oldmethfile$ = _methfile$
DEFAULT.M
ZCheckBar = 0
0
filesize _seqpath$+_seqfile$
If size<1
loadsequence _seqpath$+_seqfile$
endif
macro _exepath$+"ecmicpdf.mac"
Macro(s) in C:\GCMS\Msexe\ecmicpdf.mac loaded.
getsysprinter
local a$,NoNotify
NoNotify=val(getinistring$("","pcs","PDFprinter_OK"))
0
sysprinter$=""

defprinter sysprinter$
if (check("FUNCTION", "GETDEFPRINTER$") > 0)
theprinter$ = getdefprinter$()
HP LaserJet P3010 Series UPD PCL 6
return
if instr(upper$(sysprinter$),"ADOBE")>0 or instr(upper$(sysprinter$),"PDF")>0
setinistring("","PCS","SystemPrinter",sysprinter$)
1
endif
return
fullseqdebug=1
1
setinistring("","pcs,"+val$(_instnum),"fullseqdebug","")
1
restore_defaults
local inifile$,inisect$,fvars
inifile$=""

inisect$="PCS,"+val$(_instnum)
PCS,1
varlock off
Variable locking is Off
_methpath$=getinistring$(inifile$,inisect$,"_methpath$")
D:\MassHunter\GCMS\1\METHODS\
_methfile$=getinistring$(inifile$,inisect$,"_methfile$")
DEFAULT.M
icstartupmethod
local i,j,a$,b$,inifile$,inisect$,path$,file$
inifile$=_instpath$+"hst.ini"
D:\MassHunter\GCMS\1\hst.ini
inisect$="startup method"
startup method
varlock 0
Variable locking is Off
_safemode=0
0
if check("macro","startupmethUI")=0
macro _exepath$+"startupm.mac"
Macro(s) in C:\GCMS\Msexe\startupm.mac loaded.
endif
varlock off
Variable locking is Off
if check("variable","startupmode")=1
startupmode=val(getinistring$(inifile$,inisect$,"selection"))
0
if startupmode<=0 or startupmode>6
return
varlock off
Variable locking is Off
_seqpath$=getinistring$(inifile$,inisect$,"_seqpath$")
D:\MassHunter\GCMS\1\SEQUENCE\
_seqfile$=getinistring$(inifile$,inisect$,"_seqfile$")
default.sequence.xml
_datapath$=getinistring$(inifile$,inisect$,"nextdatapath")
D:\MassHunter\GCMS\1\data\Flavours\Sweet\
_datafile$=getinistring$(inifile$,inisect$,"nextdatafile")
Churro.D
_datapath2$=getinistring$(inifile$,inisect$,"nextdatapath")
D:\MassHunter\GCMS\1\data\Flavours\Sweet\
_datafile2$=getinistring$(inifile$,inisect$,"nextdatafile")
Churro.D
fvars=filestat(_datapath$)
ARRAY of length 11
if len(_datapath$)=0 or fvars[7]=0 or len(_datafile$)=0
endif
if eqstr(_datafile$,"evaldemo.d") OR len(_datafile$) = 0
endif
varlock on
Variable locking is On
toptitle
if _enhapp = 5
cp_title _InstName$+"/"+_enhapp$+" - " + ext$+" / " + tunefilename$ + " / "+_seqfile$
cptitle title$
if _isDotNet = 0
endif
return
endif
return
return
GC_InitMultiMS
filesize _exepath$+"GCPERM.mac"
if size > 0
macro _exepath$+"gcperm.mac"
Macro(s) in C:\GCMS\Msexe\gcperm.mac loaded.
if _gcinst = -1
remove tune,acquisition
Removed macro TUNE
Removed macro ACQUISITION
endif
if _adinst <= 0
remove memmode
Removed macro MEMMODE
endif
endif
filesize _exepath$+"locsave.mac"
if size > 0
endif
remove gc_InitMultiMS
Removed macro GC_INITMULTIMS
samplelogtable inifile,_topinifile$
enhwelcome
if _isDotNet = 1
sprint enhcontext$ using _$(19631,"Welcome to the Agilent % GC\/MS Data Acquisition Workstation"),_enhapp$
else
endif
return
return
endif
if check("variable","_libpath$") = 0
endif
local ddeini$, instnum$, app$
if _ismsQ1 = 1 then
GASALLOW = 6.0
6
PURGEALLOW = 6.0
6
endif
IGNOREHWSOURCE=0
0
UseOldSlt = val(getinistring$("","pcs,"+val$(_instnum),"UseOldSlt"))
0
varlock 0
Variable locking is Off
local a$,b$,i
macro _exepath$+"cright.mac"
Macro(s) in C:\GCMS\Msexe\cright.mac loaded.
cright a$,b$
if 1=1
a$=version$()
MassHunter GC/MS Acquisition B.07.01.1805 12-Mar-2014 Copyright Copyright 1989-2014 Agilent Technologies, Inc.
i=instr(upper$(a$),"COPY")
58
if i=0
endif
if i > 1
a$=a$[i:len(a$)]
Copyright Copyright 1989-2014 Agilent Technologies, Inc.
endif
b$="Agilent Technologies"
Agilent Technologies
return
_cpyright$ = a$
Copyright Copyright 1989-2014 Agilent Technologies, Inc.
_cpyname$ = b$
Agilent Technologies
_nativefmt=1
1
remove cright
Removed macro CRIGHT
_RMStage$=""

_runmode = 1
1
_injloc = 1
1
_overlapped = 0
0
_ptavail =0
0
BcodeFail = 0
0
_HSSkip = 0
0
UseDecisions = 0
0
ProcessKeywd = 0
0
RearPair = 0
0
_SeqCheckHidden = getiniint("","pcs,"+val$(_instnum),"CheckHiddenColumns")
-1
if _SeqCheckHidden = -1
_SeqCheckHidden = 1
1
endif
_UseClassicDA = 0
0
_expbcnext$=""

_expbcnext2$=""

_ECMInstalled = 0
0
_ECMIn = 0
0
_ECMHasPriv = 0
0
_ECMupLock =0
0
_ECMDnLock =0
0
_ECMDataPath$=""

_ECMMethPath$=""

_ECMSeqPath$=""

ECMDataP$=""

ECMMethodP$=""

ECMSequenceP$=""

ECMHook=0
0
pauseseq=0
0
RTLRelockvar=2
2
RTLCalvar=2
2
SEQLOGCOUNTER = 1
1
_ALSSkip=0
0
mnurunmethod=1
1
if _isoffline = 0
RTLCalvar = 0
0
endif
if NoTop = 0
endif
varlock 1
Variable locking is On
getwinloc topx,topy,topwid,topheight
filesize _tunepath$+"tempini.ini"
if size>0
varlock off
Variable locking is Off
_eq_running=1
1
varlock on
Variable locking is On
delete _tunepath$+"tempini.ini",dontask
endif
varlock off
Variable locking is Off
_TUNEVIEW = 0
0
_auxdisable = 2
2
_currentver = 2.10
2.1
_GC68ERR = 0
0
canceltext$=_$(28734,"Cancelled")
Cancelled
varlock on
Variable locking is On
UNATTENDED = 1
1
GADGETDLL = -1
-1
TRACEDLL = -1
-1
CTCDLL = -1
-1
GC5890DLL = -1
-1
GC6890DLL = -1
-1
GC7890DLL = -1
-1
GC6850DLL = -1
-1
MSD597xSHAREDDLL = -1
-1
MSTUNEDLL = -1
-1
MSACQDLL = -1
-1
msd_serial_n$=""

RUNCTLDLL = -1
-1
AD35900DLL = -1
-1
AUXDLL = -1
-1
HSDLL=-1
-1
Acq_Mode = 0
0
SecMSStatusPanel
if PrivEnabled = 0
return
macro _exepath$+"instcmn.mac"
Macro(s) in C:\GCMS\Msexe\instcmn.mac loaded.
instrview ,0
The instrument view is 0
ddeini$=_temppath$+"ddenames.ini"
C:\Users\Admin.GCMS.000\AppData\Local\Temp\ddenames.ini
instnum$="PCS,"+val$(_instnum)
PCS,1
app$="TOP"
TOP
varlock off
Variable locking is Off
_TOPDDE$ = getinistring$(ddeini$, instnum$, app$)

if (LEN(_TOPDDE$) = 0)
_TOPDDE$ = "MSTOP"
MSTOP
endif
if check("scalar","_TopWinId") = 0 THEN
endif
varlock on
Variable locking is On
MS_FW$=""

echomode off
macro _ExePath$+"prepost.mac"
Macro(s) in C:\GCMS\Msexe\prepost.mac loaded.
macro _exepath$+"keywdins.mac"
Macro(s) in C:\GCMS\Msexe\keywdins.mac loaded.
macro _exepath$+"hst.mac"
Macro(s) in C:\GCMS\Msexe\hst.mac loaded.
macro _exepath$+"lfncomm.mac"
Macro(s) in C:\GCMS\Msexe\lfncomm.mac loaded.
macro _exepath$+"ICTBMnu.mac"
Macro(s) in C:\GCMS\Msexe\ICTBMnu.mac loaded.
ldTuneKeyWds
echomode off
macro _exepath$+"keywd7x.mac"
Macro(s) in C:\GCMS\Msexe\keywd7x.mac loaded.
RETURN
if _enhapp = 5
endif
cmdline on
minibar
LOCAL msg$
MENUBEG
MENUNEW _$(28712,"&Abort")
MENUSTP
MENUNEW _$(28713,"E&xit")
msg$ = _$(28746,"Exit Instrument #")+val$(_INSTNUM)
Exit Instrument #1
if (_isoffline)
endif
MENUCMD _$(28716,"E&xit"), "bye", msg$
MENUEND
MENUSHW STDMENU
return
logddename
local ddeini$, instnum$, app$, ok
ddeini$ = _temppath$ + "ddenames.ini"
C:\Users\Admin.GCMS.000\AppData\Local\Temp\ddenames.ini
instnum$ = "PCS," + val$(_instnum)
PCS,1
app$ = "MSINSCTL"
MSINSCTL
ok=setinistring(ddeini$, instnum$, app$, ddename$)
1
return
Check_CFTinstalled
varlock 0
Variable locking is Off
_CFTInstalled = 0
0
filesize _exepath$+"cft_MSutils.mac"
if size > 0
BFMenuString$=""

macro _exepath$+"cft_MSutils.mac",go
Macro(s) in C:\GCMS\Msexe\cft_MSutils.mac loaded.
BFAUTOSTART
filesize _exepath$+"GC\ApplyBackflushWizard.exe"
if size <= 0
endif
varlock 0
Variable locking is Off
_CFTInstalled = 1
1
BFButtonOK$=""

BFButtonCancel$=""

BFWCancel$=""

CallToApplyError$=""

CallToNextError$=""

BFWLocalIni$= GETLOCALIZEDFILE(_exepath$ + "cft_mslocal.ini","")
C:\GCMS\Msexe\cft_mslocal-en.ini
GetLocalString 9,"OK",BFButtonOK$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
OK
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
OK
endif
return
GetLocalString 10,"Cancel",BFButtonCancel$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Cancel
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Cancel
endif
return
GetLocalString 11,"Backflush Wizard canceled",BFWCancel$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Backflush Wizard canceled
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Backflush Wizard canceled
endif
return
GetLocalString 12,"Call to ApplyBackflushWizard returns: ",CallToApplyError$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Call to ApplyBackflushWizard returns:
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Call to ApplyBackflushWizard returns:
endif
return
GetLocalString 13,"Call to NextBackflushWizard returns: ",CallToNextError$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Call to NextBackflushWizard returns:
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Call to NextBackflushWizard returns:
endif
return
BFWMenu1$=""

BFWMenu2$=""

BFWMacro$="DoBlast"
DoBlast
GetLocalString 14,"Backflush Wizard",BFWMenu1$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Backflush Wizard
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Backflush Wizard
endif
return
GetLocalString 15,"Initiates or continues Backflush Wizard",BFWMenu2$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Initiates or continues Backflush Wizard
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Initiates or continues Backflush Wizard
endif
return
BFMenuString$=`"'+BFWMenu1$+`","'+BFWMacro$+`","'+BFWMenu2$+`"'
"Backflush Wizard","DoBlast","Initiates or continues Backflush Wizard"
return
if len(BFMenuString$) = 0
endif
if _CFTInstalled = 1 and _isMS = 1
local NoGo
if _isMSQ1 = 1
if _isMassHunterQual = 0 and _isMustangDA = 0
endif
else
endif
if NoGo = 1
endif
endif
endif
return
Macro _exepath$ + "hook.mac", go
Macro(s) in C:\GCMS\Msexe\hook.mac loaded.
AUTO
checkforHooks
FileSize _exepath$ + "user.mac"
If size > 0
EndIf
Return
return
AddonPath$ = GETINISTRING$("","PCS,"+VAL$(_instnum),"HSAddOnPath")

if len(AddonPath$) <> 0 then
endif
execKeyword _autocmd$,0
LOCAL answer, jobCanceled, msconnected
keywd$=lower$(keywd$)

if len(keyWd$) = 0 then
keyWd$ = "acquisition"
acquisition
endif
isAcqKeyWord keyWd$, answer
local tmpstr$
tmpstr$ = upper$(keyWd$)
ACQUISITION
answer = 0
0
if eqstr(keyWd$, "acquisition") then
answer = 1
1
endif
if eqstr(keyWd$, "editmethod") then
endif
if eqstr(keyWd$, "savemethod") then
endif
if INSTR(tmpstr$, "RUNMETHOD") then
endif
if (INSTR(tmpstr$, "PRINTMETHOD") = 1) then
endif
if eqstr(keyWd$, "loadmethod") then
endif
RETURN
if answer = 1 then
tuneView "hide", jobCanceled
jobCanceled = 0
0
state=lower$(state)
hide
if eqstr(state, "hide")
if (_instrview = 2) then
endif
instrview ,0
The instrument view is 0
if _isDotNet=0
endif
minibar
LOCAL msg$
MENUBEG
MENUNEW _$(28712,"&Abort")
MENUSTP
MENUNEW _$(28713,"E&xit")
msg$ = _$(28746,"Exit Instrument #")+val$(_INSTNUM)
Exit Instrument #1
if (_isoffline)
endif
MENUCMD _$(28716,"E&xit"), "bye", msg$
MENUEND
MENUSHW STDMENU
return
endif
if eqstr(state, "show")
endif
return
if jobCanceled = 1 then
if _ismsQ1 = 1 and check("command", "mscheck")=1 then
endif
acqView "show", jobCanceled
jobCanceled = 0
0
state=lower$(state)
show
if eqstr(state, "show")
if (_instrview <> 1) then
if check("macro","seqrunmethod") = 0
set_ic_logging
if inst_startup = 1 or check("macro","RunSequence")
return
instrview ,0
The instrument view is 0
if _isms5975=1 or _isms5977=1
macro _exepath$+"flow.mac"
Macro(s) in C:\GCMS\Msexe\flow.mac loaded.
endif
macro _exepath$+"instctl.mac",go
Macro(s) in C:\GCMS\Msexe\instctl.mac loaded.
INSTCTL
LOCAL a$, gcid, alsid
local inifile$,inisect$,appmode
LOCAL inlet_gc, als_Type
VARLOCK 0
Variable locking is Off
if check("variable","_traypicked")=0
strdim _trayname,3
String Array _trayname(3) has been created
_TRAYPICKED = ""

_NUMOFTRAYS = 0
0
_SYRVOL = 10
10
_SYRVOLLOW = 1
1
_INJVOL = 1
1
_METHVOL = 1
1
_SYRVOL2 = 10
10
_INJVOL2 = 1
1
_METHVOL2 = 1
1
_TRAYNAME[1] = ""

_TRAYNAME[2] = ""

_TRAYNAME[3] = ""

endif
if check("variable","_maxvial")=0
endif
if check("variable","_tower")=0
_TOWER = 0
0
endif
VARLOCK 1
Variable locking is On
local f$
f$=_exepath$+"aggc7890drv.dll"
C:\GCMS\Msexe\aggc7890drv.dll
filesize f$
if size <10
f$=_exepath$+"gc\aggc7890drv.dll"
C:\GCMS\Msexe\gc\aggc7890drv.dll
filesize f$
endif
if size<10 and _isgc78xx=1
endif
if check("variable","_eq_running")=1
macro _exepath$+"envinst.mac"
Macro(s) in C:\GCMS\Msexe\envinst.mac loaded.
endif
if check("macro","MakeTmpMeth") = 0
macro _exepath$+"methcmmn.mac"
Macro(s) in C:\GCMS\Msexe\methcmmn.mac loaded.
endif
macro _exepath$+"instctl2.mac"
Macro(s) in C:\GCMS\Msexe\instctl2.mac loaded.
if _isDotNet = 1
macro _exepath$+"tunev.mac"
Macro(s) in C:\GCMS\Msexe\tunev.mac loaded.
endif
RTLUnlock = 2
2
inifile$ = ""

inisect$ = "PCS,"+val$(_instnum)
PCS,1
appmode = val(getinistring$(inifile$,inisect$,"application"))
2
if _isGC=1 and _isMS=0 and _UseClassicDA = 0
endif
Paint_IC_UI
local new_h,new_w
if Repaint = 0
PRINT _$(19894,"Loading Instrument Control DLLs...")
Loading Instrument Control DLLs...
GADGETDLL = dllinstall(_exepath$+"instctlui.dll")
3.36242E+07
endif
LS$=_$(19895,"Sequence")
Sequence
LM$=_$(19896,"Method")
Method
LI$=_$(19897,"Instrument")
Instrument
if _isDotNet = 1
IC_UI_Bronco Repaint
local wbar
if Repaint = 0
xpos = 12
12
ypos = 10
10
xinc = 71
71
iccreatehp(2,xpos,ypos)
3.41819E+07
xpos = xpos + 170
182
iccreatehp(3,xpos,ypos)
3.92017E+07
xpos=xpos+293
475
iccreatehp(10,xpos,ypos+10)
1.72713E+07
xpos=xpos+166
641
ypos = ypos + 10
20
iccreatehp(9,xpos,ypos)
4.67294E+07
xpos=xpos+xinc
712
iccreatehp(6,xpos,ypos)
1.79117E+07
LBcreateBM(200,xpos,ypos)
0
xpos=xpos+xinc
783
iccreatehp(30,xpos,ypos)
2.69874E+07
xpos = xpos + xinc
854
iccreatehp(7,xpos,ypos)
4.15601E+07
xpos = 5
5
ypos = ypos + 88
108
wbar = 5 * xinc - 7
348
iccreatebar (104, LS$, xpos, ypos, wbar, 20)
2.12241E+07
xpos = xpos + wbar + 15
368
wbar = 4 * xinc - 7
277
iccreatebar (105, LM$, xpos, ypos, wbar, 30)
5.67991E+07
xpos = xpos + wbar + 15
660
wbar = 6 * xinc - 7
419
iccreatebar (106, LI$, xpos, ypos, wbar, 20)
4.14294E+07
xpos = 5
5
ypos = ypos + 27
135
endif
SecAddBitmap "iccreatehp(21,xpos,ypos)","mnuloadsequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(21,xpos,ypos)
3.72512E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
76
SecAddBitmap "iccreatehp(22,xpos,ypos)","mnusavesequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(22,xpos,ypos)
6.6825E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
147
SecAddBitmap "iccreatehp(23,xpos,ypos)","mnurunsequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(23,xpos,ypos)
6.4554E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
218
SecAddBitmap "iccreatehp(24,xpos,ypos)","mnueditsequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(24,xpos,ypos)
4.41154E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
289
SecAddBitmap "iccreatehp(25,xpos,ypos)","mnusimulatesequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(25,xpos,ypos)
6.14944E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xPos = xPos + xinc + 8
368
SecAddBitmap "iccreatehp(26,xpos,ypos)","mnuloadmethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(26,xpos,ypos)
1.6579E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
439
SecAddBitmap "iccreatehp(27,xpos,ypos)","mnusavemethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(27,xpos,ypos)
1.09234E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
510
SecAddBitmap "iccreatehp(28,xpos,ypos)","mnurunmethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(28,xpos,ypos)
1.49931E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
581
SecAddBitmap "iccreatehp(29,xpos,ypos)","mnueditmethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(29,xpos,ypos)
720107
endif
if PrivEnabled = 0 or DoIt = 0
return
xPos = xPos + xinc + 8
660
SecAddBitmap "iccreatehp(31,xpos,ypos)","mnuselectinlet",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(31,xpos,ypos)
3.12019E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
731
SecAddBitmap "iccreatehp(38,xpos,ypos)","mnualsparameters", Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(38,xpos,ypos)
6.33883E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
SecAddBitmap "iccreatehp(32,xpos,ypos)","mnuctcparameters",Repaint, _isCTC
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(32,xpos,ypos)
5.51965E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
SecAddBitmap "iccreatehp(37,xpos,ypos)","mnuhsparameters", Repaint, _isHS
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(37,xpos,ypos)
4.43259E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
802
SecAddBitmap "iccreatehp(33,xpos,ypos)","mnugcparameters",Repaint,_isGC
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(33,xpos,ypos)
6.48097E+06
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
873
SecAddBitmap "iccreatehp(34,xpos,ypos)","mnumsparameters",Repaint,_isMS
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(34,xpos,ypos)
5.83287E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
944
SecAddBitmap "iccreatehp(35,xpos,ypos)","mnumstune",Repaint,_isMS
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(35,xpos,ypos)
3.84964E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
1015
SecAddBitmap "iccreatehp(36,xpos,ypos)","mnuvacuum",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(36,xpos,ypos)
1.23816E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
if Repaint = 0
varlock off
Variable locking is Off
_GridOriginY = ypos + 74
209
_GridOriginX = 6
6
_GridSpaceX = 162
162
_GridSpaceY = 67
67
_GridAlign = 1
1
varlock on
Variable locking is On
endif
return
else
endif
remove LS$,LM$,LI$
Removed variable LS$
Removed variable LM$
Removed variable LI$
return
InitializeTraces
TRACEDLL = dllinstall(_exepath$+"traces.dll")
3.73204E+07
if _isDotNet = 1
varlock off
Variable locking is Off
_winChrom = TRWINCREATE (0, "Chromatogram")
101
_isChromVisible = TRWINVISIBLE (_winChrom)
1
if _isms = 1
_winSpect = TRWINCREATE (1, "Spectrum")
102
_isSpectVisible = TRWINVISIBLE (_winSpect)
1
endif
varlock on
Variable locking is On
endif
return
ICHPStatus = 2
2
als_type = getinfo("als_type")
0
if (als_type = 2)
endif
inlet_gc = getinfo("inlet_gc")
6
IF (inlet_gc = 0) THEN
ENDIF
IF (inlet_gc = 4) THEN
ENDIF
if _isgc78xx = 1
GC7890
local oven_button
oven_button = 604
604
print _$(34003,"Loading GC ")+_gcname$+"..."
Loading GC 7820...
if (CTCDLL = -1)
VARLOCK off
Variable locking is Off
strdim _trayname,1
String Array _trayname(1) has been created
_TRAYPICKED = "Agilent ALS"
Agilent ALS
_NUMOFTRAYS = 1
1
_SYRVOL = 10
10
_SYRVOLLOW = 1
1
_SYRVOL2 = 10
10
_INJVOL = 1
1
_INJVOL2 = 1
1
_METHVOL = 1
1
_METHVOL2 = 1
1
if check("variable","_maxvial")=0
endif
_TOWER = 0
0
_TRAYNAME[1] = "Agilent ALS"
Agilent ALS
VARLOCK on
Variable locking is On
endif
strdim _valve$,8
String Array _valve$(8) has been created
DConfig_remove GC7890DLL,_instpath$+"7890config.bin"
if dllnum <= 0 and _isoffline = 0
filesize configfile$
if size >= 0
endif
endif
return
varlock off
Variable locking is Off
_78xxmode$="7890A"
7890A
varlock on
Variable locking is On
GC7890DLL = dllinstall(_exepath$+"gcrc.dll")
2.07159E+07
filesize _methpath$+_methfile$+"\7890method.bin"
if size <= 0
endif
gcshowdevicewin hctlwin,oven_button,xPos,ypos
xpos = xpos + xinc
1086
RETURN
endif
IF _isms = 1
LoadMS
print _$(34006, "Loading ")+_msname$+" "+_mstype$+"..."
Loading 5977 MSD...
if _ismsQQQ = 1
if _isMSQTOF = 1
if _isMSQ1 = 1
if _isDotNet = 1
MSD597xSHAREDDLL = dllinstall(_exepath$ + "MSD597xShared.dll")
MSD: Communications Error: I/O timed out
Error connecting to MSD from Mscfg - SCIL Timeout
Tuesday, November 19, 2019 9:31:37 AM
Macro: LOADMS, Cmd: MSD597xSHAREDDLL = dllinstall(_exepath$ + "MSD597xShared.dll")
Msg: Timeout


startuperror 1
on_error
local fmt$
fmt$=_$(28737,"Macro error ###### % ")
Macro error ###### %
print _error,_errmsg$
1 Timeout
if _GC68ERR = 1
endif
alert _$(28736,"The ChemStation did not complete its initialization cycle."),2
logging 0

Log file is C:\GCMS\Msexe\icstart1.log. Logging is On
macro _exepath$+"dosnote.mac"
Macro(s) in C:\GCMS\Msexe\dosnote.mac loaded.
macro _exepath$+"ictopcm1.mac"
Macro(s) in C:\GCMS\Msexe\ictopcm1.mac loaded.
macro _exepath$+"ictopcm2.mac"
Macro(s) in C:\GCMS\Msexe\ictopcm2.mac loaded.
macro _exepath$+"instctlid.mac"
Macro(s) in C:\GCMS\Msexe\instctlid.mac loaded.
InitInstVars
local a
varlock 0
Variable locking is Off
InitInstVars_GC
_gctype = getinfo("inlet_gc")
6
_isgc = 0
0
_isgc6850 = 0
0
_isgc6890 = 0
0
_isgc7810 = 0
0
_isgc7820 = 0
0
_isgc7890 = 0
0
_isgcOther = 0
0
_isgc68xx = 0
0
_isgc78xx = 0
0
_isgcRC = 0
0
_gcname$="??_GC"
??_GC
gcmod$ = ""

_gcready = 0
0
_gcacqmethfile$=""

if _gctype = 0
endif
if _gctype = 1
endif
if _gctype = 2
endif
if _gctype = 3
endif
if _gctype = 4
endif
if _gctype = 5
endif
if _gctype = 6
_isgc7820 = 1
1
_isgc78xx = 1
1
_isgcRC = 1
1
_isgc = 1
1
_gcname$ = "7820"
7820
_gcacqmethfile$="7890method.bin"
7890method.bin
gcmod$ = "7820"
7820
return
InitInstVars_MS
_mstype = getinfo("ms_type")
7
_isMSNewIfc = 0
0
_msacqmethfile$="acq.ms"
acq.ms
_isms = 0
0
_ismsQ1 = 0
0
_isMS5973N = 0
0
_isMS5975 = 0
0
_isMS5976 = 0
0
_isMS5977 = 0
0
_ismsQQQ = 0
0
_ismsQTOF = 0
0
_ismsTOF = 0
0
_ismsTrap = 0
0
_ismsTrap220 = 0
0
_ismsTrap240 = 0
0
_msname$ = "??_MS"
??_MS
_mstype$ = "MS?"
MS?
_ismsNone = 0
0
if _isDotNet=1
_msready = 0
0
else
endif
if _mstype = 1
endif
if _mstype = 2
endif
if _mstype = 3
endif
if _mstype = 4
endif
if _mstype = 5
endif
if _mstype = 6
endif
if _mstype = 7
_isms = 1
1
_ismsQ1 = 1
1
_isMS5977 = 1
1
_msname$ = "5977"
5977
_mstype$ = "MSD"
MSD
return
InitInstVars_HS
local i
varlock off
Variable locking is Off
_isHS =0
0
_isHS7694 =0
0
_isHSG1888=0
0
_isHS7697 =0
0
_isHSmodel$=""

i=getinfo("hs_type")
0
if i=0
return
set_gcinst
if _isms=0 and _isDotNet = 0
_gcinst=-1
-1
endif
_adinst=-1
-1
return
_isoffline = getinfo("offline")
0
_alstype = getinfo("als_type")
0
_isctc = 0
0
_ctcname$="NO_CTC"
NO_CTC
if _alstype = 2
endif
_injready = 0
0
varlock 1
Variable locking is On
return
hackoffline
if _isoffline=0
return
if _ismsq1=1 and _isdotnet=1
usecipi=1
1
endif
macro _exepath$+"da_id.mac"
Macro(s) in C:\GCMS\Msexe\da_id.mac loaded.
InitDAVars 1,_isDotNet
varlock 0
Variable locking is Off
_IsMustangDA = 0
0
_IsMassHunterDA = 0
0
_IsMassHunterQuant = 0
0
_IsMassHunterQual = 0
0
_enhapp=getinfo("application")
2
filesize _exepath$+"msda.exe"
if size > 0
_IsMustangDA = 1
1
endif
LocateMHDAComponent FindMH,_IsMassHunterQual,_IsMassHunterQuant
MHQualExePath$=""

MHQualVer$=""

MHQuantExePath$=""

MHQuantVer$=""

MHCustHome$=""

if FindMH = 0
endif
local tree$
FindLatestQual MHQualExePath$,MHQualVer$
local qualpath$,last$,done,count,tempdef$,temp$,last,lastlatest$,tree$
getregvalue_ 0,"software\agilent\MassHunter\Workstation\Qual","home",qualpath$,,tree$
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter\Workstation\Qual
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter\Workstation\Qual
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if len(retval) = 0
Check32 = 1
1
endif
endif
else
endif
if Check32 = 1
tree$=Mnode$+node$
software\agilent\MassHunter\Workstation\Qual
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1 and num(retval) <> 0 and REGVALUEEXIST <> 0
endif
endif
endif
item = retval

return
if len(qualpath$) > 0
endif
qualpath$=""

getregvalue_ 0,"software\agilent\MassHunter\Workstation\Qual","",qualpath$,1,tree$,"home"
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter\Workstation\Qual
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter\Workstation\Qual
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if 0 = REGVALUEEXIST or num(retval) = 0
if len(musthave$) > 0
a=1
1
while a <= num(retval)
skey$=retval[a]
B.06.00
mustkey$=""

getregvalue what,tree$+"\"+skey$,musthave$,mustkey$
print musthave$,mustkey$
home C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\
if regvalueexist > 0 and len(mustkey$) > 0
found_one = 1
1
endif
a=a+1
2
endwhile
while a <= num(retval)
endif
if found_one = 0
endif
endif
else
endif
else
endif
if Check32 = 1
endif
item = retval
ARRAY of strings of length 1
return
if num(qualpath$) > 0 and check("string","qualpath$") = 0
count = 1
1
while count <= num(qualpath$)
latest$ = qualpath$[count]
B.06.00
temp$=""

getregvalue 0,tree$+"\"+latest$,"home",temp$
if regvalueexist <> 0
last$=temp$
C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\
lastlatest$=latest$
B.06.00
endif
count = count + 1
2
endwhile
while count <= num(qualpath$)
else
endif
if len(last$) > 0
here$=last$
C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\
latest$=lastlatest$
B.06.00
else
endif
return
if len(MHQualExePath$) > 0
MHQualExePath$=MHQualExePath$+"bin\"
C:\Program Files\Agilent\MassHunter\Workstation\Qual\B.06.00\bin\
filesize MHQualExePath$+"agtqual.exe"
if size <= 0
ismhqual = 1
1
endif
endif
getregvalue_ 0,"software\agilent\MassHunter\Workstation\Quant","home",MHQuantExePath$,,tree$
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter\Workstation\Quant
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter\Workstation\Quant
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if len(retval) = 0
endif
endif
else
endif
if Check32 = 1
endif
item = retval
C:\Program Files\Agilent\MassHunter\Workstation\Quant\
return
print MHQuantExePath$
C:\Program Files\Agilent\MassHunter\Workstation\Quant\
if len(MHQuantExePath$) > 0
MHQuantExePath$=MHQuantExePath$+"bin\"
C:\Program Files\Agilent\MassHunter\Workstation\Quant\bin\
filesize MHQuantExePath$+"quantanalysis.exe"
if size <= 0
ismhquant = 1
1
getregvalue 0,tree$+"\version","release",MHQuantVer$
print MHQuantVer$
B.07.00
endif
endif
getregvalue_ 0,"software\agilent\MassHunter","CustomerHome",MHCustHome$
local a,Mnode$,IsScalar,Check32,retval,skey$,found_one,mustkey$
a=instr(node$,"\")
9
Mnode$ = node$[1:a]
software\
node$=node$[a+1:len(node$)]
agilent\MassHunter
IsScalar=check("Scalar","item")
0
tree$=Mnode$+"Wow6432node\"+node$
software\Wow6432node\agilent\MassHunter
retval=""

if IsScalar = 1
endif
getregvalue what,tree$,element$,retval,special
if IsScalar = 0
if special = 1
if len(retval) = 0
endif
endif
else
endif
if Check32 = 1
endif
item = retval
D:\MassHunter\
return
if len(MHQualExePath$) = 0
endif
MHQualMethPath$=""

MHQualMethFile$=""

MHQuantMethPath$=""

MHQuantMethFile$=""

return
if _IsMassHunterQual > 0 or _IsMassHunterQuant > 0
_IsMassHunterDA = 1
1
endif
if _enhapp = -1
endif
if set_macropath = 1
_macropath$=_exepath$[1:len(_exepath$)-6]+"msmacros\"
C:\GCMS\msmacros\
if _isMS = 0
endif
endif
return
if _ismsq1=1 and _isdotnet=1
usecipi=1
1
endif
NoTop=1
1
macro _exepath$+"eqabout.mac"
Macro(s) in C:\GCMS\Msexe\eqabout.mac loaded.
doabout 1,1
LOCAL BitmapName$,CP_Title$, AppName$, AppVersion$, Copyright$,dllfile$
local a$,appnames$
if Initialize = 1
set_application
local appnumber
local i,inifile$,inisect$,app,MHtemp$,steconfig$
inifile$=""

inisect$="PCS,"+val$(_instnum)
PCS,1
varlock 0
Variable locking is Off
if instr(upper$(_appname$),"MSINSCTL") > 0
i=setinistring(_tunepath$+"tempini.ini","EQ","EQ","1")
1
value=filestat(_exepath$+"MSINSCTL.EXE")
ARRAY of length 11
if value[7]=0
SA=0
0
_enhmode=2
2
local size
filesize _exepath$+"msqqq.dll"
if size <= 0
endif
if size <= 0 and _gcinst < 1
endif
endif
else
endif
_enhapp$=_$(18546,"Unknown")
Unknown
MHtemp$=_$(18553,"MassHunter")
MassHunter
local drugpath$
drugpath$=_exepath$[1:len(_exepath$)-6]+"DRUGMACS\"
C:\GCMS\DRUGMACS\
_topinipath$ = _macropath$
C:\GCMS\msmacros\
if _enhapp=1
endif
if _enhapp=2
initop$="ENHTOP.INI"
ENHTOP.INI
steconfig$ = "ENH_STE.dll.config"
ENH_STE.dll.config
if _isMS = 0
endif
toprfgmode = 0
0
_eq_running=1
1
if _cfrmode = 1
endif
_enhapp$=_$(19456,"Enhanced")
Enhanced
endif
if _enhapp=3
endif
if _enhapp=5
endif
_helpfile$ = "GCMSAcq.CHM"
GCMSAcq.CHM
if _ismsTrap220 = 1
endif
if _ismsTrap240 = 1
endif
if _isMSQ1 = 1
_helpfile$ = "MSDacq.CHM"
MSDacq.CHM
endif
if _isMSQQQ = 1
endif
if _isMSQTOF = 1
endif
if _isMS = 0 and _isGC = 1
endif
_enhapp$ = _enhapp$ + " " + MHtemp$
Enhanced MassHunter
_STEConfigFile$=_instpath$+steconfig$
D:\MassHunter\GCMS\1\ENH_STE.dll.config
_topinifile$ = _topinipath$+initop$
C:\GCMS\msmacros\ENHTOP.INI
if _isDotNet = 1
return
endif
if noshow = 1
remove DoAbout
Removed macro DOABOUT
whoami_OS=1
1
CFGOperator=1
1
add_menusep=0
0
edacpsecure=0
0
if check("macro","topreqinit") = 0
inifile$=_instpath$+"msanyone.ini"
D:\MassHunter\GCMS\1\msanyone.ini
inisect$="security"
security
edacpsecure = val(getinistring$(inifile$,inisect$,"enabled"))
0
if edacpsecure = 1
endif
macro _exepath$+"msnconfg.mac"
Macro(s) in C:\GCMS\Msexe\msnconfg.mac loaded.
endif
GetOperators
if CFGOperator = 1
return
on_error startuperror 1
macro _exepath$+"locallang.mac",go
Macro(s) in C:\GCMS\Msexe\locallang.mac loaded.
GETLANGUAGES
local a$, b$, c$, d, e,tree$
if _isDotNet = 0
d=getlocaleid()
1033
e=d
1033
endif
print "InstallLang: ", d, " RunLang: ", e, " Registry: ",tree$
InstallLang: 1033 RunLang: 1033 Registry:
varlock off
Variable locking is Off
_OSlanguage=e
1033
_CSlanguage=d
1033
if _isDotNet = 0
_EnglishHelp$="MSDacq-en.chm"
MSDacq-en.chm
endif
varlock on
Variable locking is On
setsysfont
varlock off
Variable locking is Off
if _CSlanguage = 1041
endif
if _CSlanguage = 2052
endif
if _CSlanguage <> 1041 and _CSlanguage <> 2052 then
_systemFont$ = "Arial"
Arial
_systemFontFixed$ = "Courier New"
Courier New
_systemFontFSize = 9
9
endif
print "System Font: ", _systemFont$
System Font: Arial
varlock on
Variable locking is On
return
return
macro _exepath$+"localkwd.mac",go
Macro(s) in C:\GCMS\Msexe\localkwd.mac loaded.
REDOTOPINIFILES
local LKbasedir$,inifile$,stefile$,keyword$,a
if check("variable","basedir$")
LKbasedir$ = _exepath$[1:len(_exepath$)-6]
C:\GCMS\
endif
a=filestat(lkbasedir$+"gcmacros")
ARRAY of length 11
if a[7]<>2
endif
DoInstSTEFile lkbasedir$
local inifile$,stefile$,keyword$,a,inst_stefile$
if _isms > 0
if _enhapp = 1
endif
if _enhapp = 2
inifile$= LKbasedir$+"msmacros\enhtop.ini"
C:\GCMS\msmacros\enhtop.ini
WriteLocalKwd inifile$
local a,temp$,inisect$,size1
filesize inifile$
size1=size
2693
filesize inifile$+".bkp"
if size <= 0 and size1 > 0
endif
inisect$="Samplog"
Samplog
a=setinistring(inifile$,inisect$,"","")
1
inisect$="localized keywords"
localized keywords
a=setinistring(inifile$,inisect$,"","")
1
a=setinistring(inifile$,inisect$,"Append",_$(36400,"Append"))
1
a=setinistring(inifile$,inisect$,"BatchDir",_$(36401,"BatchDir"))
1
a=setinistring(inifile$,inisect$,"BatchRep",_$(36402,"BatchRep"))
1
a=setinistring(inifile$,inisect$,"CheckBar",_$(36403,"CheckBar"))
1
a=setinistring(inifile$,inisect$,"CIgasOFF",_$(36404,"CIgasOFF"))
1
a=setinistring(inifile$,inisect$,"ClockStart",_$(36405,"ClockStart"))
1
a=setinistring(inifile$,inisect$,"Command",_$(19729,"Command"))
1
a=setinistring(inifile$,inisect$,"Comment",_$(36406,"Comment"))
1
a=setinistring(inifile$,inisect$,"Comments",_$(36407,"Comments"))
1
a=setinistring(inifile$,inisect$,"ContConc",_$(36408,"ContConc"))
1
a=setinistring(inifile$,inisect$,"DataPath",_$(19725,"DataPath"))
1
a=setinistring(inifile$,inisect$,"Debug",_$(36409,"Debug"))
1
a=setinistring(inifile$,inisect$,"DualMeth",_$(36410,"DualMeth"))
1
a=setinistring(inifile$,inisect$,"DualTwr",_$(36411,"DualTwr"))
1
a=setinistring(inifile$,inisect$,"Interval",_$(36412,"Interval"))
1
a=setinistring(inifile$,inisect$,"MakeSec",_$(36413,"MakeSec"))
1
a=setinistring(inifile$,inisect$,"Methdev",_$(36414,"Methdev"))
1
a=setinistring(inifile$,inisect$,"MethPath",_$(19726,"MethPath"))
1
a=setinistring(inifile$,inisect$,"MSDClear",_$(36415,"MSDClear"))
1
a=setinistring(inifile$,inisect$,"NewBatch",_$(36416,"NewBatch"))
1
a=setinistring(inifile$,inisect$,"OverWrit",_$(19727,"OverWrit"))
1
a=setinistring(inifile$,inisect$,"OverWrite",_$(36417,"OverWrite"))
1
a=setinistring(inifile$,inisect$,"Pause",_$(19689,"Pause"))
1
a=setinistring(inifile$,inisect$,"PumpON",_$(36418,"PumpON"))
1
a=setinistring(inifile$,inisect$,"ReQtStds",_$(36419,"ReQtStds"))
1
a=setinistring(inifile$,inisect$,"SeedName",_$(19728,"SeedName"))
1
a=setinistring(inifile$,inisect$,"SepGC1",_$(36420,"SepGC1"))
1
a=setinistring(inifile$,inisect$,"SepGC2",_$(36421,"SepGC2"))
1
a=setinistring(inifile$,inisect$,"Stagger",_$(36422,"Stagger"))
1
a=setinistring(inifile$,inisect$,"SwapName",_$(19688,"SwapName"))
1
a=setinistring(inifile$,inisect$,"SwitchGC",_$(36423,"SwitchGC"))
1
a=setinistring(inifile$,inisect$,"Tune",_$(36424,"Tune"))
1
a=setinistring(inifile$,inisect$,"Unlinked",_$(36425,"Unlinked"))
1
a=setinistring(inifile$,inisect$,"Vent",_$(36426,"Vent"))
1
a=setinistring(inifile$,inisect$,"MassCal",_$(36427,"MassCal"))
1
a=setinistring(inifile$,inisect$,"USeDecisions",_$(36428,"UseDecisions"))
1
a=setinistring(inifile$,inisect$,"GC Wake Up",_$(36429,"GC Wake Up"))
1
a=setinistring(inifile$,inisect$,"GC Sleep",_$(36430,"GC Sleep"))
1
a=setinistring(inifile$,inisect$,"Bake",_$(36431,"Bake"))
1
a=setinistring(inifile$,inisect$,"Check Tune",_$(36432,"Check Tune"))
1
a=setinistring(inifile$,inisect$,"SimulatedAcq",_$(36433,"SimulatedAcq"))
1
a=setinistring(inifile$,inisect$,"2-Layer L2",_$(36434,"2-Layer L2"))
1
a=setinistring(inifile$,inisect$,"3-Layer L2;L3",_$(36435,"3-Layer L2;L3"))
1
return
if _ismsq1 = 1
Keyword$="Bake,CIGASOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3"
Bake,CIGASOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
endif
if _ismsqqq = 1
endif
if _ismsqtof = 1
endif
WriteAppKeyword inifile$,keyword$
local done,i,temp$,keywordline$,keyword$,nofile
done = 0
0
while done = 0
i = instr(bigstr$,",")
5
if i > 0
temp$=bigstr$[1:i-1]
Bake
bigstr$=bigstr$[i+1:len(bigstr$)]
CIGASOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Bake
return
keywordline$=keywordline$ + keyword$
Bake
if done = 0
keywordline$ = keywordline$ + ","
Bake,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
CIGASOFF
bigstr$=bigstr$[i+1:len(bigstr$)]
ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
CIgasOFF
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
11
if i > 0
temp$=bigstr$[1:i-1]
ClockStart
bigstr$=bigstr$[i+1:len(bigstr$)]
Comment,Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
ClockStart
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
8
if i > 0
temp$=bigstr$[1:i-1]
Comment
bigstr$=bigstr$[i+1:len(bigstr$)]
Command,GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Comment
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
8
if i > 0
temp$=bigstr$[1:i-1]
Command
bigstr$=bigstr$[i+1:len(bigstr$)]
GC Sleep,GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Command
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
GC Sleep
bigstr$=bigstr$[i+1:len(bigstr$)]
GC Wake Up,Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
GC Sleep
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
11
if i > 0
temp$=bigstr$[1:i-1]
GC Wake Up
bigstr$=bigstr$[i+1:len(bigstr$)]
Interval,Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
GC Wake Up
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
Interval
bigstr$=bigstr$[i+1:len(bigstr$)]
Overwrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Interval
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
10
if i > 0
temp$=bigstr$[1:i-1]
Overwrite
bigstr$=bigstr$[i+1:len(bigstr$)]
Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
OverWrite
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
6
if i > 0
temp$=bigstr$[1:i-1]
Pause
bigstr$=bigstr$[i+1:len(bigstr$)]
PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Pause
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
7
if i > 0
temp$=bigstr$[1:i-1]
PumpON
bigstr$=bigstr$[i+1:len(bigstr$)]
Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
PumpON
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
5
if i > 0
temp$=bigstr$[1:i-1]
Tune
bigstr$=bigstr$[i+1:len(bigstr$)]
Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Tune
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
9
if i > 0
temp$=bigstr$[1:i-1]
Unlinked
bigstr$=bigstr$[i+1:len(bigstr$)]
UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Unlinked
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
13
if i > 0
temp$=bigstr$[1:i-1]
UseDecisions
bigstr$=bigstr$[i+1:len(bigstr$)]
Vent,2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
UseDecisions
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
5
if i > 0
temp$=bigstr$[1:i-1]
Vent
bigstr$=bigstr$[i+1:len(bigstr$)]
2-Layer L2,3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
Vent
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
11
if i > 0
temp$=bigstr$[1:i-1]
2-Layer L2
bigstr$=bigstr$[i+1:len(bigstr$)]
3-Layer L2;L3
else
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
2-Layer L2
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2
if done = 0
keywordline$ = keywordline$ + ","
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,
endif
endwhile
while done = 0
i = instr(bigstr$,",")
0
if i > 0
temp$ = bigstr$
3-Layer L2;L3
done = 1
1
endif
GetOneKeyword inifile$,temp$,keyword$
localstring$=getinistring$(inifile$,"localized keywords",key$)
3-Layer L2;L3
return
keywordline$=keywordline$ + keyword$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
if done = 0
endif
endwhile
while done = 0
bigstr$ = keywordline$
Bake,CIgasOFF,ClockStart,Comment,Command,GC Sleep,GC Wake Up,Interval,OverWrite,Pause,PumpON,Tune,Unlinked,UseDecisions,Vent,2-Layer L2,3-Layer L2;L3
return
stefile$=LKbasedir$+"msexe\enh_ste.dll.config"
C:\GCMS\msexe\enh_ste.dll.config
inst_stefile$="enh_ste.dll.config"
enh_ste.dll.config
WriteSTEKeywords stefile$,keyword$
endif
if _enhapp = 3
endif
if _enhapp = 5
endif
copy stefile$,_instpath$+inst_stefile$,dontask
Copying C:/GCMS/msexe/enh_ste.dll.config to D:/MassHunter/GCMS/1/enh_ste.dll.config
return
return
IsTop=0
0
slt_edit_state=0
0
UserSLTEdit=0
0
lf$=chr$(13)+chr$(10)


crlf$=lf$


PrivEnabled = 0
0
if _isDotNet = 1
PrivEnabled = ROLESECURITYMODE()
0
if PrivEnabled = 1
endif
endif
MACRO _envcomm$+"AUDIT.MAC"
Macro(s) in C:\GCMS\Msexe\AUDIT.MAC loaded.
audit_global
audit_0 = 1
1
audit_1 = 1
1
audit_2 = 1
1
audit_time = 0
0
audit_timeout = 0.5
0.5
audit_pass = 0
0
audit_dfile = 10
10
audit_mfile = 11
11
audit_dname$="Audit.txt"
Audit.txt
audit_mname$="Audit.txt"
Audit.txt
audit_format= 1
1
audit_user$=""

event$=""

message$=""

severity=2
2
return
remove audit_global
Removed macro AUDIT_GLOBAL
AUDIT_0=0
0
on_error emethoderror
dimemeth=0
0
filesize _exepath$+"emethod.dll"
if size>10
endif
on_error startuperror 1
emethimptgt$=getinistring$("","pcs","eMethodImport")

emethexptgt$=getinistring$("","pcs","eMethodExport")

LOGBKDLL = -1
-1
LOGBKDLL = dllinstall(_exepath$+"mslogbk.dll")
3.36751E+07
macro _exepath$+"dolb.mac"
Macro(s) in C:\GCMS\Msexe\dolb.mac loaded.
dolb_cs 0
local a$
if mode=0
a$=getinistring$("","PCS,"+val$(_instnum),"CS_shutdown")
0
if val(a$)=0
lbaddentry "MassHunter",_$(17314,"Startup initiated.")
else
endif
setinistring("","PCS,"+val$(_instnum),"CS_shutdown","1")
1
else
endif
return
Dim MprintVars,5
Array MprintVars(5) has been created
GetMprintVars
local TMPrintVars,astat,num_check
dim TMPrintVars,5
Array TMPrintVars(5) has been created
local inifile$,inisect$,labels$,buttons$,title$
inifile$=_instpath$+"hst.ini"
D:\MassHunter\GCMS\1\hst.ini
inisect$="Method Print"
Method Print
if what = 1
TMPrintVars[1]=getiniint(inifile$,inisect$,"Method Control")
-1
TMPrintVars[2]=getiniint(inifile$,inisect$,"GC")
-1
TMPrintVars[3]=getiniint(inifile$,inisect$,"MS")
-1
TMPrintVars[4]=getiniint(inifile$,inisect$,"DA Summary")
-1
TMPrintVars[5]=getiniint(inifile$,inisect$,"DA Detailed")
-1
astat=arraystat(TMPrintVars,5)
ARRAY of length 6
if astat[6]=-1
TMPrintVars[1]=1
1
TMPrintVars[2]=1
1
TMPrintVars[3]=1
1
TMPrintVars[4]=1
1
TMPrintVars[5]=0
0
endif
MPrintVars=TMPrintVars
ARRAY of length 5
return
GetBprintVars
local TBPrintVars,astat,num_check
dim TBPrintVars,5
Array TBPrintVars(5) has been created
local inifile$,inisect$,labels$,buttons$,title$
inifile$=_instpath$+"hst.ini"
D:\MassHunter\GCMS\1\hst.ini
inisect$="Button Print"
Button Print
if what = 1
TBPrintVars[1]=getiniint(inifile$,inisect$,"Sequence Log")
-1
TBPrintVars[2]=getiniint(inifile$,inisect$,"Current Sequence")
-1
TBPrintVars[3]=getiniint(inifile$,inisect$,"Instrument Parameters")
-1
inisect$="Method Print"
Method Print
TBPrintVars[4]=getiniint(inifile$,inisect$,"DA Summary")
-1
TBPrintVars[5]=getiniint(inifile$,inisect$,"DA Detailed")
-1
astat=arraystat(TBPrintVars,5)
ARRAY of length 6
if astat[6]=-1
filesize _instpath$+"sequence.log"
if size > 0
TBPrintVars[1]=1
1
else
endif
TBPrintVars[2]=0
0
TBPrintVars[3]=1
1
TBPrintVars[4]=0
0
TBPrintVars[5]=0
0
endif
BPrintVars=TBPrintVars
ARRAY of length 5
return
if _isDotNet = 0
endif
ntmenulabel$=_$(28730,"&Top")
&Top
ntmenumsg$ = _$(28731,"Display Top Level Panel")
Display Top Level Panel
if NoTop = 1
ntmenulabel$=_$(28732,"&Sequence/Automated Control")
&Sequence/Automated Control
ntmenumsg$ = _$(28733,"Display Sequence/Automated Control Panel")
Display Sequence/Automated Control Panel
macro _exepath$+"ictop.mac",go
Macro(s) in C:\GCMS\Msexe\ictop.mac loaded.
ICTOP_INIT
local defseq$, initseq$
white=1
1
green=2
2
yellow=3
3
red=4
4
strdim color$,4
String Array color$(4) has been created
color$[1]="White"
White
color$[2]="Green"
Green
color$[3]="Yellow"
Yellow
color$[4]="Red"
Red
UseDrugIS = 0
0
UseClassicBatch=getiniint("","pcs,"+val$(_instnum),"UseClassicBatch")
-1
if UseClassicBatch < 0 or UseClassicBatch > 1
UseClassicBatch = 0
0
endif
filesize _exepath$+"TopBatch.mac"
if size > 0
BatchModeAvailable=1
1
macro _exepath$+"topbatch.mac",go
Macro(s) in C:\GCMS\Msexe\topbatch.mac loaded.
BSLOAD
remove bsload
Removed macro BSLOAD
else
endif
filesize _exepath$+"sens73.mac"
if size > 0
macro _exepath$+"sens73.mac"
Macro(s) in C:\GCMS\Msexe\sens73.mac loaded.
endif
varlock off
Variable locking is Off
_dllpath$=_exepath$
C:\GCMS\Msexe\
if check("variable","_enhapp$")=0
endif
if check("variable","toprfgmode")=0
endif
if check("variable","_hp3365")=0
_hp3365=0
0
endif
if check("variable","usetek")=0
usetek=0
0
endif
if check("variable","gc90isON")=0
gc90isON=0
0
endif
_synchronize=0
0
varlock on
Variable locking is On
if val(getinistring$("","pcs,"+val$(_instnum),"AD_ID"))>0
endif
varlock off
Variable locking is Off
if _enhapp = 5
endif
varlock 0
Variable locking is Off
_currentver = 2.10
2.1
SEQ_TRACE = 0
0
POSITIONED = 0
0
IN_SUBSEQ = 0
0
UseOldSlt = val(getinistring$("","pcs,"+val$(_instnum),"UseOldSlt"))
0
SLTChoice = val(getinistring$("","pcs,"+val$(_instnum),"SltChoice"))
0
_OverWrite = 0
0
_SeqLine = 1
1
_insctlerrmsg$ = ""

_daerrmsg$ = ""

_skipacq = 0
0
_RMStage$ = ""

canceltext$=_$(19437,"Cancelled")
Cancelled
lpwidth=74
74
lplength=62
62
if _cfrmode = 1
on_error starterror _$(19438,"Printer not responding! Default values assigned!"),1
endif
pagesize lpwidth,lplength
The default printer is 81 characters wide and has 66 lines.
on_error starterror
_methpath$ = GETINISTRING$("","PCS,"+VAL$(_instnum),"_METHPATH$")
D:\MassHunter\GCMS\1\METHODS\
_seqpath$ = getinistring$("","pcs,"+val$(_instnum),"_seqpath$")
D:\MassHunter\GCMS\1\SEQUENCE\
_seqfile$ = getinistring$("","pcs,"+val$(_instnum),"_seqfile$")
default.sequence.xml
_UserDefined=""

_UserDefined9=""

varlock 1
Variable locking is On
sum = FILESTAT(_MethPath$ + _MethFile$)
ARRAY of length 11
if (sum[7] <> 2)
endif
z_oldmethpath$ = _methpath$
D:\MassHunter\GCMS\1\METHODS\
z_oldmethfile$ = _methfile$
DEFAULT.M
ZCheckBar = 0
0
filesize _seqpath$+_seqfile$
If size<1
loadsequence _seqpath$+_seqfile$
endif
macro _exepath$+"ecmicpdf.mac"
Macro(s) in C:\GCMS\Msexe\ecmicpdf.mac loaded.
getsysprinter
local a$,NoNotify
NoNotify=val(getinistring$("","pcs","PDFprinter_OK"))
0
sysprinter$=""

defprinter sysprinter$
if (check("FUNCTION", "GETDEFPRINTER$") > 0)
theprinter$ = getdefprinter$()
HP LaserJet P3010 Series UPD PCL 6
return
if instr(upper$(sysprinter$),"ADOBE")>0 or instr(upper$(sysprinter$),"PDF")>0
setinistring("","PCS","SystemPrinter",sysprinter$)
1
endif
return
fullseqdebug=1
1
setinistring("","pcs,"+val$(_instnum),"fullseqdebug","")
1
restore_defaults
local inifile$,inisect$,fvars
inifile$=""

inisect$="PCS,"+val$(_instnum)
PCS,1
varlock off
Variable locking is Off
_methpath$=getinistring$(inifile$,inisect$,"_methpath$")
D:\MassHunter\GCMS\1\METHODS\
_methfile$=getinistring$(inifile$,inisect$,"_methfile$")
DEFAULT.M
icstartupmethod
local i,j,a$,b$,inifile$,inisect$,path$,file$
inifile$=_instpath$+"hst.ini"
D:\MassHunter\GCMS\1\hst.ini
inisect$="startup method"
startup method
varlock 0
Variable locking is Off
_safemode=0
0
if check("macro","startupmethUI")=0
macro _exepath$+"startupm.mac"
Macro(s) in C:\GCMS\Msexe\startupm.mac loaded.
endif
varlock off
Variable locking is Off
if check("variable","startupmode")=1
startupmode=val(getinistring$(inifile$,inisect$,"selection"))
0
if startupmode<=0 or startupmode>6
return
varlock off
Variable locking is Off
_seqpath$=getinistring$(inifile$,inisect$,"_seqpath$")
D:\MassHunter\GCMS\1\SEQUENCE\
_seqfile$=getinistring$(inifile$,inisect$,"_seqfile$")
default.sequence.xml
_datapath$=getinistring$(inifile$,inisect$,"nextdatapath")
D:\MassHunter\GCMS\1\data\Flavours\Sweet\
_datafile$=getinistring$(inifile$,inisect$,"nextdatafile")
Churro.D
_datapath2$=getinistring$(inifile$,inisect$,"nextdatapath")
D:\MassHunter\GCMS\1\data\Flavours\Sweet\
_datafile2$=getinistring$(inifile$,inisect$,"nextdatafile")
Churro.D
fvars=filestat(_datapath$)
ARRAY of length 11
if len(_datapath$)=0 or fvars[7]=0 or len(_datafile$)=0
endif
if eqstr(_datafile$,"evaldemo.d") OR len(_datafile$) = 0
endif
varlock on
Variable locking is On
toptitle
if _enhapp = 5
cp_title _InstName$+"/"+_enhapp$+" - " + ext$+" / " + tunefilename$ + " / "+_seqfile$
cptitle title$
if _isDotNet = 0
endif
return
endif
return
return
GC_InitMultiMS
filesize _exepath$+"GCPERM.mac"
if size > 0
macro _exepath$+"gcperm.mac"
Macro(s) in C:\GCMS\Msexe\gcperm.mac loaded.
if _gcinst = -1
remove tune,acquisition
Removed macro TUNE
Removed macro ACQUISITION
endif
if _adinst <= 0
remove memmode
Removed macro MEMMODE
endif
endif
filesize _exepath$+"locsave.mac"
if size > 0
endif
remove gc_InitMultiMS
Removed macro GC_INITMULTIMS
samplelogtable inifile,_topinifile$
enhwelcome
if _isDotNet = 1
sprint enhcontext$ using _$(19631,"Welcome to the Agilent % GC\/MS Data Acquisition Workstation"),_enhapp$
else
endif
return
return
endif
if check("variable","_libpath$") = 0
endif
local ddeini$, instnum$, app$
if _ismsQ1 = 1 then
GASALLOW = 6.0
6
PURGEALLOW = 6.0
6
endif
IGNOREHWSOURCE=0
0
UseOldSlt = val(getinistring$("","pcs,"+val$(_instnum),"UseOldSlt"))
0
varlock 0
Variable locking is Off
local a$,b$,i
macro _exepath$+"cright.mac"
Macro(s) in C:\GCMS\Msexe\cright.mac loaded.
cright a$,b$
if 1=1
a$=version$()
MassHunter GC/MS Acquisition B.07.01.1805 12-Mar-2014 Copyright Copyright 1989-2014 Agilent Technologies, Inc.
i=instr(upper$(a$),"COPY")
58
if i=0
endif
if i > 1
a$=a$[i:len(a$)]
Copyright Copyright 1989-2014 Agilent Technologies, Inc.
endif
b$="Agilent Technologies"
Agilent Technologies
return
_cpyright$ = a$
Copyright Copyright 1989-2014 Agilent Technologies, Inc.
_cpyname$ = b$
Agilent Technologies
_nativefmt=1
1
remove cright
Removed macro CRIGHT
_RMStage$=""

_runmode = 1
1
_injloc = 1
1
_overlapped = 0
0
_ptavail =0
0
BcodeFail = 0
0
_HSSkip = 0
0
UseDecisions = 0
0
ProcessKeywd = 0
0
RearPair = 0
0
_SeqCheckHidden = getiniint("","pcs,"+val$(_instnum),"CheckHiddenColumns")
-1
if _SeqCheckHidden = -1
_SeqCheckHidden = 1
1
endif
_UseClassicDA = 0
0
_expbcnext$=""

_expbcnext2$=""

_ECMInstalled = 0
0
_ECMIn = 0
0
_ECMHasPriv = 0
0
_ECMupLock =0
0
_ECMDnLock =0
0
_ECMDataPath$=""

_ECMMethPath$=""

_ECMSeqPath$=""

ECMDataP$=""

ECMMethodP$=""

ECMSequenceP$=""

ECMHook=0
0
pauseseq=0
0
RTLRelockvar=2
2
RTLCalvar=2
2
SEQLOGCOUNTER = 1
1
_ALSSkip=0
0
mnurunmethod=1
1
if _isoffline = 0
RTLCalvar = 0
0
endif
if NoTop = 0
endif
varlock 1
Variable locking is On
getwinloc topx,topy,topwid,topheight
filesize _tunepath$+"tempini.ini"
if size>0
varlock off
Variable locking is Off
_eq_running=1
1
varlock on
Variable locking is On
delete _tunepath$+"tempini.ini",dontask
endif
varlock off
Variable locking is Off
_TUNEVIEW = 0
0
_auxdisable = 2
2
_currentver = 2.10
2.1
_GC68ERR = 0
0
canceltext$=_$(28734,"Cancelled")
Cancelled
varlock on
Variable locking is On
UNATTENDED = 1
1
GADGETDLL = -1
-1
TRACEDLL = -1
-1
CTCDLL = -1
-1
GC5890DLL = -1
-1
GC6890DLL = -1
-1
GC7890DLL = -1
-1
GC6850DLL = -1
-1
MSD597xSHAREDDLL = -1
-1
MSTUNEDLL = -1
-1
MSACQDLL = -1
-1
msd_serial_n$=""

RUNCTLDLL = -1
-1
AD35900DLL = -1
-1
AUXDLL = -1
-1
HSDLL=-1
-1
Acq_Mode = 0
0
SecMSStatusPanel
if PrivEnabled = 0
return
macro _exepath$+"instcmn.mac"
Macro(s) in C:\GCMS\Msexe\instcmn.mac loaded.
instrview ,0
The instrument view is 0
ddeini$=_temppath$+"ddenames.ini"
C:\Users\Admin.GCMS.000\AppData\Local\Temp\ddenames.ini
instnum$="PCS,"+val$(_instnum)
PCS,1
app$="TOP"
TOP
varlock off
Variable locking is Off
_TOPDDE$ = getinistring$(ddeini$, instnum$, app$)

if (LEN(_TOPDDE$) = 0)
_TOPDDE$ = "MSTOP"
MSTOP
endif
if check("scalar","_TopWinId") = 0 THEN
endif
varlock on
Variable locking is On
MS_FW$=""

echomode off
macro _ExePath$+"prepost.mac"
Macro(s) in C:\GCMS\Msexe\prepost.mac loaded.
macro _exepath$+"keywdins.mac"
Macro(s) in C:\GCMS\Msexe\keywdins.mac loaded.
macro _exepath$+"hst.mac"
Macro(s) in C:\GCMS\Msexe\hst.mac loaded.
macro _exepath$+"lfncomm.mac"
Macro(s) in C:\GCMS\Msexe\lfncomm.mac loaded.
macro _exepath$+"ICTBMnu.mac"
Macro(s) in C:\GCMS\Msexe\ICTBMnu.mac loaded.
ldTuneKeyWds
echomode off
macro _exepath$+"keywd7x.mac"
Macro(s) in C:\GCMS\Msexe\keywd7x.mac loaded.
RETURN
if _enhapp = 5
endif
cmdline on
minibar
LOCAL msg$
MENUBEG
MENUNEW _$(28712,"&Abort")
MENUSTP
MENUNEW _$(28713,"E&xit")
msg$ = _$(28746,"Exit Instrument #")+val$(_INSTNUM)
Exit Instrument #1
if (_isoffline)
endif
MENUCMD _$(28716,"E&xit"), "bye", msg$
MENUEND
MENUSHW STDMENU
return
logddename
local ddeini$, instnum$, app$, ok
ddeini$ = _temppath$ + "ddenames.ini"
C:\Users\Admin.GCMS.000\AppData\Local\Temp\ddenames.ini
instnum$ = "PCS," + val$(_instnum)
PCS,1
app$ = "MSINSCTL"
MSINSCTL
ok=setinistring(ddeini$, instnum$, app$, ddename$)
1
return
Check_CFTinstalled
varlock 0
Variable locking is Off
_CFTInstalled = 0
0
filesize _exepath$+"cft_MSutils.mac"
if size > 0
BFMenuString$=""

macro _exepath$+"cft_MSutils.mac",go
Macro(s) in C:\GCMS\Msexe\cft_MSutils.mac loaded.
BFAUTOSTART
filesize _exepath$+"GC\ApplyBackflushWizard.exe"
if size <= 0
endif
varlock 0
Variable locking is Off
_CFTInstalled = 1
1
BFButtonOK$=""

BFButtonCancel$=""

BFWCancel$=""

CallToApplyError$=""

CallToNextError$=""

BFWLocalIni$= GETLOCALIZEDFILE(_exepath$ + "cft_mslocal.ini","")
C:\GCMS\Msexe\cft_mslocal-en.ini
GetLocalString 9,"OK",BFButtonOK$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
OK
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
OK
endif
return
GetLocalString 10,"Cancel",BFButtonCancel$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Cancel
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Cancel
endif
return
GetLocalString 11,"Backflush Wizard canceled",BFWCancel$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Backflush Wizard canceled
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Backflush Wizard canceled
endif
return
GetLocalString 12,"Call to ApplyBackflushWizard returns: ",CallToApplyError$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Call to ApplyBackflushWizard returns:
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Call to ApplyBackflushWizard returns:
endif
return
GetLocalString 13,"Call to NextBackflushWizard returns: ",CallToNextError$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Call to NextBackflushWizard returns:
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Call to NextBackflushWizard returns:
endif
return
BFWMenu1$=""

BFWMenu2$=""

BFWMacro$="DoBlast"
DoBlast
GetLocalString 14,"Backflush Wizard",BFWMenu1$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Backflush Wizard
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Backflush Wizard
endif
return
GetLocalString 15,"Initiates or continues Backflush Wizard",BFWMenu2$
local temp$,inifile$
inifile$=BFWLocalIni$
C:\GCMS\Msexe\cft_mslocal-en.ini
out$=getinistring$(inifile$,"localized strings",val$(Lnum))
Initiates or continues Backflush Wizard
if len(out$) = 0 OR _CSLanguage=1033
out$ = in$
Initiates or continues Backflush Wizard
endif
return
BFMenuString$=`"'+BFWMenu1$+`","'+BFWMacro$+`","'+BFWMenu2$+`"'
"Backflush Wizard","DoBlast","Initiates or continues Backflush Wizard"
return
if len(BFMenuString$) = 0
endif
if _CFTInstalled = 1 and _isMS = 1
local NoGo
if _isMSQ1 = 1
if _isMassHunterQual = 0 and _isMustangDA = 0
endif
else
endif
if NoGo = 1
endif
endif
endif
return
Macro _exepath$ + "hook.mac", go
Macro(s) in C:\GCMS\Msexe\hook.mac loaded.
AUTO
checkforHooks
FileSize _exepath$ + "user.mac"
If size > 0
EndIf
Return
return
AddonPath$ = GETINISTRING$("","PCS,"+VAL$(_instnum),"HSAddOnPath")

if len(AddonPath$) <> 0 then
endif
execKeyword _autocmd$,0
LOCAL answer, jobCanceled, msconnected
keywd$=lower$(keywd$)

if len(keyWd$) = 0 then
keyWd$ = "acquisition"
acquisition
endif
isAcqKeyWord keyWd$, answer
local tmpstr$
tmpstr$ = upper$(keyWd$)
ACQUISITION
answer = 0
0
if eqstr(keyWd$, "acquisition") then
answer = 1
1
endif
if eqstr(keyWd$, "editmethod") then
endif
if eqstr(keyWd$, "savemethod") then
endif
if INSTR(tmpstr$, "RUNMETHOD") then
endif
if (INSTR(tmpstr$, "PRINTMETHOD") = 1) then
endif
if eqstr(keyWd$, "loadmethod") then
endif
RETURN
if answer = 1 then
tuneView "hide", jobCanceled
jobCanceled = 0
0
state=lower$(state)
hide
if eqstr(state, "hide")
if (_instrview = 2) then
endif
instrview ,0
The instrument view is 0
if _isDotNet=0
endif
minibar
LOCAL msg$
MENUBEG
MENUNEW _$(28712,"&Abort")
MENUSTP
MENUNEW _$(28713,"E&xit")
msg$ = _$(28746,"Exit Instrument #")+val$(_INSTNUM)
Exit Instrument #1
if (_isoffline)
endif
MENUCMD _$(28716,"E&xit"), "bye", msg$
MENUEND
MENUSHW STDMENU
return
endif
if eqstr(state, "show")
endif
return
if jobCanceled = 1 then
if _ismsQ1 = 1 and check("command", "mscheck")=1 then
endif
acqView "show", jobCanceled
jobCanceled = 0
0
state=lower$(state)
show
if eqstr(state, "show")
if (_instrview <> 1) then
if check("macro","seqrunmethod") = 0
set_ic_logging
if inst_startup = 1 or check("macro","RunSequence")
return
instrview ,0
The instrument view is 0
if _isms5975=1 or _isms5977=1
macro _exepath$+"flow.mac"
Macro(s) in C:\GCMS\Msexe\flow.mac loaded.
endif
macro _exepath$+"instctl.mac",go
Macro(s) in C:\GCMS\Msexe\instctl.mac loaded.
INSTCTL
LOCAL a$, gcid, alsid
local inifile$,inisect$,appmode
LOCAL inlet_gc, als_Type
VARLOCK 0
Variable locking is Off
if check("variable","_traypicked")=0
strdim _trayname,3
String Array _trayname(3) has been created
_TRAYPICKED = ""

_NUMOFTRAYS = 0
0
_SYRVOL = 10
10
_SYRVOLLOW = 1
1
_INJVOL = 1
1
_METHVOL = 1
1
_SYRVOL2 = 10
10
_INJVOL2 = 1
1
_METHVOL2 = 1
1
_TRAYNAME[1] = ""

_TRAYNAME[2] = ""

_TRAYNAME[3] = ""

endif
if check("variable","_maxvial")=0
endif
if check("variable","_tower")=0
_TOWER = 0
0
endif
VARLOCK 1
Variable locking is On
local f$
f$=_exepath$+"aggc7890drv.dll"
C:\GCMS\Msexe\aggc7890drv.dll
filesize f$
if size <10
f$=_exepath$+"gc\aggc7890drv.dll"
C:\GCMS\Msexe\gc\aggc7890drv.dll
filesize f$
endif
if size<10 and _isgc78xx=1
endif
if check("variable","_eq_running")=1
macro _exepath$+"envinst.mac"
Macro(s) in C:\GCMS\Msexe\envinst.mac loaded.
endif
if check("macro","MakeTmpMeth") = 0
macro _exepath$+"methcmmn.mac"
Macro(s) in C:\GCMS\Msexe\methcmmn.mac loaded.
endif
macro _exepath$+"instctl2.mac"
Macro(s) in C:\GCMS\Msexe\instctl2.mac loaded.
if _isDotNet = 1
macro _exepath$+"tunev.mac"
Macro(s) in C:\GCMS\Msexe\tunev.mac loaded.
endif
RTLUnlock = 2
2
inifile$ = ""

inisect$ = "PCS,"+val$(_instnum)
PCS,1
appmode = val(getinistring$(inifile$,inisect$,"application"))
2
if _isGC=1 and _isMS=0 and _UseClassicDA = 0
endif
Paint_IC_UI
local new_h,new_w
if Repaint = 0
PRINT _$(19894,"Loading Instrument Control DLLs...")
Loading Instrument Control DLLs...
GADGETDLL = dllinstall(_exepath$+"instctlui.dll")
3.36242E+07
endif
LS$=_$(19895,"Sequence")
Sequence
LM$=_$(19896,"Method")
Method
LI$=_$(19897,"Instrument")
Instrument
if _isDotNet = 1
IC_UI_Bronco Repaint
local wbar
if Repaint = 0
xpos = 12
12
ypos = 10
10
xinc = 71
71
iccreatehp(2,xpos,ypos)
3.41819E+07
xpos = xpos + 170
182
iccreatehp(3,xpos,ypos)
3.92017E+07
xpos=xpos+293
475
iccreatehp(10,xpos,ypos+10)
1.72713E+07
xpos=xpos+166
641
ypos = ypos + 10
20
iccreatehp(9,xpos,ypos)
4.67294E+07
xpos=xpos+xinc
712
iccreatehp(6,xpos,ypos)
1.79117E+07
LBcreateBM(200,xpos,ypos)
0
xpos=xpos+xinc
783
iccreatehp(30,xpos,ypos)
2.69874E+07
xpos = xpos + xinc
854
iccreatehp(7,xpos,ypos)
4.15601E+07
xpos = 5
5
ypos = ypos + 88
108
wbar = 5 * xinc - 7
348
iccreatebar (104, LS$, xpos, ypos, wbar, 20)
2.12241E+07
xpos = xpos + wbar + 15
368
wbar = 4 * xinc - 7
277
iccreatebar (105, LM$, xpos, ypos, wbar, 30)
5.67991E+07
xpos = xpos + wbar + 15
660
wbar = 6 * xinc - 7
419
iccreatebar (106, LI$, xpos, ypos, wbar, 20)
4.14294E+07
xpos = 5
5
ypos = ypos + 27
135
endif
SecAddBitmap "iccreatehp(21,xpos,ypos)","mnuloadsequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(21,xpos,ypos)
3.72512E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
76
SecAddBitmap "iccreatehp(22,xpos,ypos)","mnusavesequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(22,xpos,ypos)
6.6825E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
147
SecAddBitmap "iccreatehp(23,xpos,ypos)","mnurunsequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(23,xpos,ypos)
6.4554E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
218
SecAddBitmap "iccreatehp(24,xpos,ypos)","mnueditsequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(24,xpos,ypos)
4.41154E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
289
SecAddBitmap "iccreatehp(25,xpos,ypos)","mnusimulatesequence",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(25,xpos,ypos)
6.14944E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xPos = xPos + xinc + 8
368
SecAddBitmap "iccreatehp(26,xpos,ypos)","mnuloadmethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(26,xpos,ypos)
1.6579E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
439
SecAddBitmap "iccreatehp(27,xpos,ypos)","mnusavemethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(27,xpos,ypos)
1.09234E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
510
SecAddBitmap "iccreatehp(28,xpos,ypos)","mnurunmethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(28,xpos,ypos)
1.49931E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
581
SecAddBitmap "iccreatehp(29,xpos,ypos)","mnueditmethod",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(29,xpos,ypos)
720107
endif
if PrivEnabled = 0 or DoIt = 0
return
xPos = xPos + xinc + 8
660
SecAddBitmap "iccreatehp(31,xpos,ypos)","mnuselectinlet",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(31,xpos,ypos)
3.12019E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
731
SecAddBitmap "iccreatehp(38,xpos,ypos)","mnualsparameters", Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(38,xpos,ypos)
6.33883E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
SecAddBitmap "iccreatehp(32,xpos,ypos)","mnuctcparameters",Repaint, _isCTC
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(32,xpos,ypos)
5.51965E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
SecAddBitmap "iccreatehp(37,xpos,ypos)","mnuhsparameters", Repaint, _isHS
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(37,xpos,ypos)
4.43259E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
802
SecAddBitmap "iccreatehp(33,xpos,ypos)","mnugcparameters",Repaint,_isGC
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(33,xpos,ypos)
6.48097E+06
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
873
SecAddBitmap "iccreatehp(34,xpos,ypos)","mnumsparameters",Repaint,_isMS
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(34,xpos,ypos)
5.83287E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
944
SecAddBitmap "iccreatehp(35,xpos,ypos)","mnumstune",Repaint,_isMS
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(35,xpos,ypos)
3.84964E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
xpos = xpos+xinc
1015
SecAddBitmap "iccreatehp(36,xpos,ypos)","mnuvacuum",Repaint
local OK,cntlvar$,PrivKey$,BMnum
if Repaint = 0
evaluate cmd$
iccreatehp(36,xpos,ypos)
1.23816E+07
endif
if PrivEnabled = 0 or DoIt = 0
return
if Repaint = 0
varlock off
Variable locking is Off
_GridOriginY = ypos + 74
209
_GridOriginX = 6
6
_GridSpaceX = 162
162
_GridSpaceY = 67
67
_GridAlign = 1
1
varlock on
Variable locking is On
endif
return
else
endif
remove LS$,LM$,LI$
Removed variable LS$
Removed variable LM$
Removed variable LI$
return
InitializeTraces
TRACEDLL = dllinstall(_exepath$+"traces.dll")
3.73204E+07
if _isDotNet = 1
varlock off
Variable locking is Off
_winChrom = TRWINCREATE (0, "Chromatogram")
101
_isChromVisible = TRWINVISIBLE (_winChrom)
1
if _isms = 1
_winSpect = TRWINCREATE (1, "Spectrum")
102
_isSpectVisible = TRWINVISIBLE (_winSpect)
1
endif
varlock on
Variable locking is On
endif
return
ICHPStatus = 2
2
als_type = getinfo("als_type")
0
if (als_type = 2)
endif
inlet_gc = getinfo("inlet_gc")
6
IF (inlet_gc = 0) THEN
ENDIF
IF (inlet_gc = 4) THEN
ENDIF
if _isgc78xx = 1
GC7890
local oven_button
oven_button = 604
604
print _$(34003,"Loading GC ")+_gcname$+"..."
Loading GC 7820...
if (CTCDLL = -1)
VARLOCK off
Variable locking is Off
strdim _trayname,1
String Array _trayname(1) has been created
_TRAYPICKED = "Agilent ALS"
Agilent ALS
_NUMOFTRAYS = 1
1
_SYRVOL = 10
10
_SYRVOLLOW = 1
1
_SYRVOL2 = 10
10
_INJVOL = 1
1
_INJVOL2 = 1
1
_METHVOL = 1
1
_METHVOL2 = 1
1
if check("variable","_maxvial")=0
endif
_TOWER = 0
0
_TRAYNAME[1] = "Agilent ALS"
Agilent ALS
VARLOCK on
Variable locking is On
endif
strdim _valve$,8
String Array _valve$(8) has been created
DConfig_remove GC7890DLL,_instpath$+"7890config.bin"
if dllnum <= 0 and _isoffline = 0
filesize configfile$
if size >= 0
endif
endif
return
varlock off
Variable locking is Off
_78xxmode$="7890A"
7890A
varlock on
Variable locking is On
GC7890DLL = dllinstall(_exepath$+"gcrc.dll")
2.07159E+07
filesize _methpath$+_methfile$+"\7890method.bin"
if size <= 0
endif
gcshowdevicewin hctlwin,oven_button,xPos,ypos
xpos = xpos + xinc
1086
RETURN
endif
IF _isms = 1
LoadMS
print _$(34006, "Loading ")+_msname$+" "+_mstype$+"..."
Loading 5977 MSD...
if _ismsQQQ = 1
if _isMSQTOF = 1
if _isMSQ1 = 1
if _isDotNet = 1
MSD597xSHAREDDLL = dllinstall(_exepath$ + "MSD597xShared.dll")
MSD: Communications Error: I/O timed out
Error connecting to MSD from Mscfg - SCIL Timeout
Tuesday, November 19, 2019 9:31:37 AM
Macro: LOADMS, Cmd: MSD597xSHAREDDLL = dllinstall(_exepath$ + "MSD597xShared.dll")
Msg: Timeout


startuperror 1
on_error
local fmt$
fmt$=_$(28737,"Macro error ###### % ")
Macro error ###### %
print _error,_errmsg$
1 Timeout
if _GC68ERR = 1
endif
alert _$(28736,"The ChemStation did not complete its initialization cycle."),2
logging 0

icstart1.log.zip
Was this helpful?
Privacy Statement
Terms of Use
Contact Us
Site Help