ChemStation did not complete its initialization cycle

Greetings Communit!

When loading the gcms software, the message appears as "Chemstation did not complete its initialization cycle" 

When ok is clicked, a long message (see below) appears on the screen.

The MS is 5977A. the MS interface shows ready.

Kindly share any solution that may help me to solve this problem. 

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")
5
_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
_isgc7890 = 1
1
_isgc78xx = 1
1
_isgcRC = 1
1
_isgc = 1
1
_gcacqmethfile$="7890method.bin"
7890method.bin
_gcname$ = "7890"
7890
gcmod$ = "7890"
7890
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")
4.3332E+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]=0
0
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 P2035
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\
_datafile$=getinistring$(inifile$,inisect$,"nextdatafile")
EVALDEMO.D
_datapath2$=getinistring$(inifile$,inisect$,"nextdatapath")
D:\MassHunter\GCMS\1\DATA\
_datafile2$=getinistring$(inifile$,inisect$,"nextdatafile")
EVALDEMO.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
_datafile$=_instname$+"_001.D"
Enviroserv Uganda GCMS_001.D
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 © 1989-2014 Agilent Technologies, Inc.
i=instr(upper$(a$),"COPY")
58
if i=0
endif
if i > 1
a$=a$[i:len(a$)]
Copyright © 1989-2014 Agilent Technologies, Inc.
endif
b$="Agilent Technologies"
Agilent Technologies
return
_cpyright$ = a$
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\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\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.92017E+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)
1.72713E+07
xpos = xpos + 170
182
iccreatehp(3,xpos,ypos)
2.12241E+07
xpos=xpos+293
475
iccreatehp(10,xpos,ypos+10)
5.67991E+07
xpos=xpos+166
641
ypos = ypos + 10
20
iccreatehp(9,xpos,ypos)
2.69874E+07
xpos=xpos+xinc
712
iccreatehp(6,xpos,ypos)
4.15601E+07
LBcreateBM(200,xpos,ypos)
0
xpos=xpos+xinc
783
iccreatehp(30,xpos,ypos)
3.84964E+07
xpos = xpos + xinc
854
iccreatehp(7,xpos,ypos)
1.09234E+07
xpos = 5
5
ypos = ypos + 88
108
wbar = 5 * xinc - 7
348
iccreatebar (104, LS$, xpos, ypos, wbar, 20)
4.14294E+07
xpos = xpos + wbar + 15
368
wbar = 4 * xinc - 7
277
iccreatebar (105, LM$, xpos, ypos, wbar, 30)
3.73204E+07
xpos = xpos + wbar + 15
660
wbar = 6 * xinc - 7
419
iccreatebar (106, LI$, xpos, ypos, wbar, 20)
339559
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)
6.4554E+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)
4.41154E+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.14944E+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)
1.6579E+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)
1.49931E+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)
720107
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.23816E+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)
6.48097E+06
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)
5.83287E+07
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)
4.43259E+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)
3.41819E+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)
4.17317E+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)
3.36242E+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)
5.51965E+07
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)
2.70065E+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.12019E+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)
6.33883E+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.05603E+06
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")
5
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 7890...
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.62981E+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
Wednesday, November 09, 2022 11:51:11 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

Was this helpful?