<%@ LANGUAGE="VBScript" %>
<% start_time = Time %>
<%
Run=CInt(Request("run"))
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd_repl
SQLStmt = " select rsn.run run,rsn.logid rsnlogid,rsn.sequence seq,le.action action,le.logid lelogid "
SQLStmt = SQLStmt & ",rss.run rssrun , rss.sequence rssseq, rss.seq_date seq_date"
SQLStmt = SQLStmt & " ,rss.status status, rss.comments comments, rss.nevents nevents"
SQLStmt= SQLStmt & " from phoffline.runseq_numbers rsn,phoffline.log_entries le, phoffline.runseqs rss"
SQLStmt = SQLStmt & " where rsn.run=" & run & " "
SQLStmt = SQLStmt & " and rss.run=" & run & " "
SQLStmt = SQLStmt & " and le.logid=rsn.logid "
SQLStmt = SQLStmt & " order by rsn.run"
' SQLStmt = SQLStmt & " where le.logid=rsn.logid and (le.action='START_RUN' or le.action='NEW_RUN_SEQUENCE') "
' SQLStmt = SQLStmt & " and rsn.run<6001 "
' SQLStmt = SQLStmt & " order by le.log_date,le.logid "
response.write(SQLStmt)
Set RS = Connection.Execute(SQLStmt)
%>
RunSeq_Numbers Details
RunSeq_Numbers Table for Run <%=run%>
| RSN:Logid |
RSN:Run |
RSN:Seq |
LE:Logid |
LE:Action |
RSS:Run |
RSS:Seq |
RSS:Seq_date |
RSS:Status |
RSS:Comments |
RSS:Nevents |
<%
Do While Not RS.EoF
%>
| <%= RS("rsnlogid") %>
|
<%= RS("run") %>
|
<%=RS("seq") %>
|
<%=RS("lelogid") %>
|
<%=RS("action") %>
|
<%=RS("rssrun") %>
|
<%=RS("rssseq") %>
|
<%=RS("seq_date") %>
|
<%=RS("status") %>
|
<%=RS("comments") %>
|
<%=RS("nevents") %>
|
<% RS.MoveNext
Loop
%>
<%
Connection.Close
%>