<%@ LANGUAGE="VBScript" %>
<%
Function GetIon(aa)
Select Case aa
Case 197
GetIon="Au"
Case 63
GetIon="Cu"
Case 28
GetIon="Si"
Case 1
GetIOn="p"
Case 2
GetIOn="d"
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
If Run_max=0 Then
Run_max=9999999
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
dbname=CStr(RSx("global_name"))
select case CStr(RSx("global_name"))
case "PHDB.PHOBOS.BNL.GOV"
dbname="Main Phobos Database"
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 mcr.run MCRUNT, "
SQLStmt = SQLStmt & " nvl(maxsimrun,-1) SIMRUNT, "
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(t7.textvalue,-1) run_type_det, "
SQLStmt = SQLStmt & " to_char(mcr.run_date,'MM/DD/YYYY') rdate,mcr.program_name,mcr.num_events,mcr.run_type "
SQLStmt = SQLStmt & " from phoffline.mcruns mcr, "
SQLStmt = SQLStmt & " (select max(run) maxsimrun, mcrun from phoffline.simruns group by mcrun) simr, "
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.mc_pars t7 "
SQLStmt = SQLStmt & " where mcr.RUN>" & run_min & "-1 and mcr.RUN<" & run_max & "+1 "
SQLStmt = SQLStmt & " and simr.MCRUN(+)=mcr.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 t7.keyname='RTYPE' and t7.run(+)=mcr.run "
SQLStmt = SQLStmt & " order by mcr.run desc "
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
%>
Generator Run Logbook
Generator Runs
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>
Run
SimRun
Run Date
Program Name
Run Type
Events
Energy
Ions
b Range
Details
<%
Do While Not RS.EoF
If Not IsNull(RS("num_events")) Then
num_events=CLng(RS("num_events"))
Else
num_events=0
End If
e1=Round(CDbl(RS("e1")),2)
e2=Round(CDbl(RS("e2")),2)
ion1=GetIon(CInt(RS("a1")))
ion2=GetIon(CInt(RS("a2")))
bmin=Round(RS("bmin"),4)
bmax=Round(RS("bmax"),4)
If bmin=bmax Then
bran="=" & CStr(bmin)
Else
bran=CStr(bmin) & "-" & CStr(bmax)
End If
%>
