<%@ LANGUAGE="VBScript" %>
<% start_time = Time %>
<%
Dim Parname()
Dim Parvalue()
Dim Pardescription()
If Request("run")="" Then
Run=0
Else
Run= CLng(Request("run"))
End If
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
'
' Get general run info
'
SQLStmt = " select program_name,run_type,to_char(run_date,'MM/DD/YYYY HH24:MI:SS') rdate, "
SQLStmt = SQLStmt & " first_event,last_event,num_events "
SQLStmt = SQLStmt & " from phoffline.mcruns "
SQLStmt = SQLStmt & " where run=" & Run
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
If Not RS.EoF Then
program_name=CStr(RS("program_name"))
run_type_main=CStr(RS("run_type"))
rdate=CStr(RS("rdate"))
first_event=CStr(RS("first_event"))
last_event=CStr(RS("last_event"))
If Not IsNull(RS("num_events")) Then
num_events=CStr(RS("num_events"))
Else
num_events="Unknown"
End If
End If
Set RS=nothing
'
' Get MC parameters
'
SQLStmt = " select mp.keyname,mp.textvalue,mpt.description "
SQLStmt = SQLStmt & " from phoffline.mc_pars mp, "
SQLStmt = SQLStmt & " (select * from phoffline.mcpar_types where par_source='" & CStr(program_name) & "') mpt "
SQLStmt = SQLStmt & " where mp.keyname=mpt.par_name(+) "
SQLStmt = SQLStmt & " and mp.RUN=" & run
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
npars=-1
Do While Not RS.EoF
Select Case CStr(RS("keyname"))
Case "A1"
a1=CStr(RS("textvalue"))
Case "A2"
a2=CStr(RS("textvalue"))
Case "E1"
e1=CStr(RS("textvalue"))
Case "E2"
e2=CStr(RS("textvalue"))
Case "BMAX"
bmax=CStr(RS("textvalue"))
Case "BMIN"
bmin=CStr(RS("textvalue"))
Case "Z1"
z1=CStr(RS("textvalue"))
Case "Z2"
z2=CStr(RS("textvalue"))
Case "SEED"
seed=CStr(RS("textvalue"))
Case "VERSION"
version=CStr(RS("textvalue"))
Case "RUN"
run_par=CStr(RS("textvalue"))
Case "RTYPE"
run_type=CStr(RS("textvalue"))
Case Else
npars=npars+1
Redim Preserve Parname(npars)
Redim Preserve Pardescription(npars)
Redim Preserve Parvalue(npars)
Parname(npars)=CStr(RS("keyname"))
Parvalue(npars)=CStr(RS("textvalue"))
If Not IsNull(RS("description")) Then
Pardescription(npars)=CStr(RS("description"))
Else
Pardescription(npars)="Unknown"
End If
End Select
RS.MoveNext
Loop
Set RS=nothing
bmin=CDbl(bmin)
bmax=CDbl(bmax)
If bmin=bmax Then
bran="=" & CStr(bmin)
Else
bran=CStr(bmin) & "-" & CStr(bmax)
End If
'
' Get MC files
'
SQLStmt = " select logical_name,server,dir_name,file_name "
SQLStmt = SQLStmt & " from phoffline.mc_files "
SQLStmt = SQLStmt & " where RUN=" & run
SQLStmt = SQLStmt & " order by logical_name "
' response.write(SQLStmt & " " )
Set RSfile = Connection.Execute(SQLStmt)
'
'
%>
Monte Carlo Run
Generator Run <%=run%>
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>