<%@ LANGUAGE="VBScript" %>
<%
'
' Open Database
'
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=MSDAORA;Data Source=phdb.world;User ID=webwriter;Password="
Connection.BeginTrans
'
%>
fake_run
<%
nseq=250
run=29
nev_seq=3282
freq=32
dstep=(nev_seq/freq)/3600/24
step=0
SQLStmt=" select to_char(run_date+" & CStr(step) & ",'MM/DD/YYYY HH24:MI:SS') rdate from phoffline.runs where run=6380"
Set RS=Connection.Execute(SQLStmt)
rdate=CStr(RS("rdate"))
Set RS=nothing
For iseq=0 To nseq
If iseq=0 Then
'
' start of run
'
SQLStmt=" insert into phoffline.runs(run,run_type,nevents,nseq,run_date) "
SQLStmt=SQLStmt & " values(" & run & ",'ALLBEAM'," & CStr(nseq*nev_seq) & "," & CStr(nseq) & ",to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'))"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.log_entries(logid,log_date,action) "
SQLStmt=SQLStmt & " values(phoffline.logid.nextval,to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'),'START_RUN')"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.run_numbers(run,logid) "
SQLStmt=SQLStmt & " values(" & run & ",phoffline.logid.currval)"
Connection.Execute(SQLStmt)
End If
'
' start of sequence
'
SQLStmt=" insert into phoffline.runseqs(run,sequence,nevents,seq_date) "
SQLStmt=SQLStmt & " values(" & run & "," & CStr(iseq) & "," & CStr(nev_seq) & ",to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'))"
Connection.Execute(SQLStmt)
response.write(SQLStmt & "
")
SQLStmt=" insert into phoffline.log_entries(logid,log_date,action) "
SQLStmt=SQLStmt & " values(phoffline.logid.nextval,to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'),'START_SEQ')"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.run_numbers(run,logid) "
SQLStmt=SQLStmt & " values(" & run & ",phoffline.logid.currval)"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.runseq_numbers(run,sequence,logid) "
SQLStmt=SQLStmt & " values(" & run & "," & CStr(iseq) & ",phoffline.logid.currval)"
Connection.Execute(SQLStmt)
'
' advance time/date
'
step=step+dstep
SQLStmt=" select to_char(run_date+" & CStr(step) & ",'MM/DD/YYYY HH24:MI:SS') rdate from phoffline.runs where run=6380"
Set RS=Connection.Execute(SQLStmt)
rdate=CStr(RS("rdate"))
Set RS=nothing
'
' end of sequence
'
SQLStmt=" insert into phoffline.log_entries(logid,log_date,action) "
SQLStmt=SQLStmt & " values(phoffline.logid.nextval,to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'),'END_SEQ')"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.run_numbers(run,logid) "
SQLStmt=SQLStmt & " values(" & run & ",phoffline.logid.currval)"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.runseq_numbers(run,sequence,logid) "
SQLStmt=SQLStmt & " values(" & run & "," & CStr(iseq) & ",phoffline.logid.currval)"
Connection.Execute(SQLStmt)
'
' use Oracle as a formatter !
'
SQLStmt=" select to_char(run,'000000') crun,to_char(seq,'000') cseq from "
SQLStmt=SQLStmt & " (select " & run & " run," & iseq & " seq from dual)"
' response.write(SQLStmt & "
")
Set RS=Connection.Execute(SQLStmt)
crun=CStr(RS("crun"))
cseq=CStr(RS("cseq"))
Set RS=nothing
'
name="'PhoRaw" & Trim(crun) & "s" & Trim(cseq) & ".root'"
' response.write(name & "
")
fpart="'/dev/dsk/c1t1d1s0'"
fdir="'/data/1'"
node="'vmesparc.phobos.bnl.gov'"
ctype="'Raw'"
fsize="1500000"
SQLStmt=" insert into phoffline.files(fileid,name,fpartition,dir,node,type,fsize,log_date) "
SQLStmt=SQLStmt & " values(phoffline.fileid.nextval," & name & "," & fpart & "," & fdir & "," & node & ","
SQLStmt=SQLStmt & ctype & "," & fsize & ",to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'))"
' response.write(SQLStmt & "
")
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.runseq_files(fileid,run,sequence) "
SQLStmt=SQLStmt & " values(phoffline.fileid.currval," & run & "," & iseq & ")"
' response.write(SQLStmt & "
")
Connection.Execute(SQLStmt)
If iseq=nseq Then
'
' end of run
'
SQLStmt=" insert into phoffline.log_entries(logid,log_date,action) "
SQLStmt=SQLStmt & " values(phoffline.logid.nextval,to_date('" & rdate & "','MM/DD/YYYY HH24:MI:SS'),'END_RUN')"
Connection.Execute(SQLStmt)
SQLStmt=" insert into phoffline.run_numbers(run,logid) "
SQLStmt=SQLStmt & " values(" & run & ",phoffline.logid.currval)"
Connection.Execute(SQLStmt)
End If
response.write(" Sequence " & iseq & " done
")
Next
' Connection.RollbackTrans
Connection.CommitTrans
Connection.Close
Set RS=nothing
%>