<%@ LANGUAGE="VBScript" %>
<%
Function GetIon(aa)
Select Case aa
Case 197
GetIon="Au"
Case 1
GetIOn="p"
Case -1
GetIOn="Undefined"
Case Else
GetIOn="A_" & CStr(aa)
End Select
End Function
If Request("run_min")="" Then
Run_min=0
Else
Run_min= CLng(Request("run_min"))
End If
If Request("run_max")="" Then
Run_max=9999999
Else
Run_max= CLng(Request("run_max"))
End If
' response.write(Run_type)
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
' Connection.Open phdb_rd_repl
SQLStmtx = "select to_char(sysdate,'DD Mon YYYY') ddate,to_char(sysdate,'HH24:MI:SS') ttime,global_name from global_name "
' response.write(SQLStmtx & " " )
Set RSx = Connection.Execute(SQLStmtx)
If Not RSx.EOF Then
select case CStr(RSx("global_name"))
case "PHDB.WORLD"
dbname="Main Phobos Database"
case "ORACLE.WORLD"
dbname="Phobos Server (old) Database"
case "KRPHOBOS.WORLD"
dbname="Krakow Database"
case "ROCHESTER.WORLD"
dbname="Rochester Database"
end select
Else
dbname="Undefined Database"
End If
If Request("nruns")<>"" Then
SQLStmt0 = "select max(RUN) maxrun from phoffline.mcruns "
' response.write(SQLStmt0 & " " )
Set RS0 = Connection.Execute(SQLStmt0)
run_min=CLng(RS0("maxrun"))-CLng(Request("nruns"))+1
run_max=9999999
If run_min<0 Then
run_min=0
End If
End If
SQLStmt = " select sr.run,sr.mcrun,mcr.program_name, "
SQLStmt = SQLStmt & " nvl(t1.numvalue,-1) bmin, "
SQLStmt = SQLStmt & " nvl(t2.numvalue,-1) bmax, "
SQLStmt = SQLStmt & " nvl(t3.numvalue,-1) e1, "
SQLStmt = SQLStmt & " nvl(t4.numvalue,-1) e2, "
SQLStmt = SQLStmt & " nvl(t5.numvalue,-1) a1, "
SQLStmt = SQLStmt & " nvl(t6.numvalue,-1) a2, "
SQLStmt = SQLStmt & " nvl(s7.textvalue,-1) geov, "
SQLStmt = SQLStmt & " nvl(s8.numvalue,-1) rzmn, "
SQLStmt = SQLStmt & " nvl(s9.numvalue,-1) rzmx, "
SQLStmt = SQLStmt & " nvl(s10.textvalue,'Unknown') bfield, "
SQLStmt = SQLStmt & " to_char(sr.run_date,'MM/DD/YYYY') rdate,nvl(mcr.num_events,0) n_eve,nvl(se.sim_events,0) s_eve "
SQLStmt = SQLStmt & " from phoffline.simruns sr,phoffline.mcruns mcr, "
SQLStmt = SQLStmt & " phoffline.mc_pars t1, "
SQLStmt = SQLStmt & " phoffline.mc_pars t2, "
SQLStmt = SQLStmt & " phoffline.mc_pars t3, "
SQLStmt = SQLStmt & " phoffline.mc_pars t4, "
SQLStmt = SQLStmt & " phoffline.mc_pars t5, "
SQLStmt = SQLStmt & " phoffline.mc_pars t6, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s7, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s8, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s9, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s10, "
SQLStmt = SQLStmt & " (select max(sr.run) run,sum(sr.num_events) sim_events "
SQLStmt = SQLStmt & " from phoffline.simrunseqs sr, "
SQLStmt = SQLStmt & " (select max(runseq) runseq,run from phoffline.simrunseqs "
SQLStmt = SQLStmt & " where RUN>" & run_min & "-1 and RUN<" & run_max & "+1 "
SQLStmt = SQLStmt & " and num_events>0 "
SQLStmt = SQLStmt & " group by run,first_event,last_event) srs "
SQLStmt = SQLStmt & " where sr.RUN>" & run_min & "-1 and sr.RUN<" & run_max & "+1 "
SQLStmt = SQLStmt & " and sr.run=srs.run and sr.runseq=srs.runseq "
SQLStmt = SQLStmt & " group by sr.run) se "
SQLStmt = SQLStmt & " where sr.RUN>" & run_min & "-1 and sr.RUN<" & run_max & "+1 "
SQLStmt = SQLStmt & " and sr.mcrun=mcr.run and se.run(+)=sr.run "
SQLStmt = SQLStmt & " and t1.keyname(+)='BMIN' and t1.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t2.keyname(+)='BMAX' and t2.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t3.keyname(+)='E1' and t3.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t4.keyname(+)='E2' and t4.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t5.keyname(+)='A1' and t5.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t6.keyname(+)='A2' and t6.run(+)=mcr.run "
SQLStmt = SQLStmt & " and s7.keyname(+)='GEOV' and s7.run(+)=sr.run "
SQLStmt = SQLStmt & " and s8.keyname(+)='RZMN' and s8.run(+)=sr.run "
SQLStmt = SQLStmt & " and s9.keyname(+)='RZMX' and s9.run(+)=sr.run "
SQLStmt = SQLStmt & " and s10.keyname(+)='BFLD' and s10.run(+)=sr.run "
SQLStmt = SQLStmt & " order by sr.run desc "
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
%>
Simulation Run Logbook
Simulation Runs
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>
Run
MC Run
MC Type
Run Date
GEO Vers
Events (generated)
Energy
Ions
b Range
Z VTX Range
B Field
Details
[GeV]
[fm]
[cm]
[T]
<%
Do While Not RS.EoF
e1=Round(RS("e1"),1)
e2=Round(RS("e2"),1)
ion1=GetIon(CInt(RS("a1")))
ion2=GetIon(CInt(RS("a2")))
rzmn=Round(RS("rzmn"),0)
rzmx=Round(RS("rzmx"),0)
bfield=Round(RS("bfield"),1)
bmin=CDbl(RS("bmin"))
bmax=CDbl(RS("bmax"))
If bmin=bmax Then
bran="=" & CStr(bmin)
Else
bran=CStr(bmin) & "-" & CStr(bmax)
End If
rzmn=Round(RS("rzmn"),0)
rzmx=Round(RS("rzmx"),0)
If rzmn=rzmx Then
zran="=" & CStr(rzmn)
Else
zran=CStr(rzmn) & " to " & CStr(rzmx)
End If
s_eve=CInt(RS("s_eve"))
n_eve=CInt(RS("n_eve"))
if s_eve
