<%@ LANGUAGE="VBScript" %>
<%
ndate=CStr(Request("ndate"))
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd_repl
SQLStmt = " select reqdate,fs.fec_number,fs.fec_string,fs.fec_st_len,fecc.fec_id,fecc.fec_powerboard_id "
SQLStmt = SQLStmt & " from ASSEMBLY.FEC_STRINGS fs,(select reqdate from ASSEMBLY.FEC_MAP_LOG fml where to_char(fml.reqdate,'YYYYMMDDHH24MISS')='" & ndate & "'), "
SQLStmt = SQLStmt & " (select fec_number,fec_id,fec_powerboard_id from ASSEMBLY.FEC_CONFIG "
SQLStmt = SQLStmt & " where fec_number>0 and (startdate,abs(fec_number)) in "
SQLStmt = SQLStmt & " (select max(startdate),max(abs(fec_number)) from ASSEMBLY.FEC_CONFIG "
SQLStmt = SQLStmt & " where startdate<=(select reqdate from ASSEMBLY.FEC_MAP_LOG fml where to_char(fml.reqdate,'YYYYMMDDHH24MISS')='" & ndate & "') "
SQLStmt = SQLStmt & " GROUP BY abs(fec_number))) fecc "
SQLStmt = SQLStmt & " where fecc.fec_number=fs.fec_number "
SQLStmt = SQLStmt & " and fs.fec_number>0 and (fs.startdate,abs(fs.fec_number),fs.fec_string) in "
SQLStmt = SQLStmt & " (select max(startdate),max(abs(fec_number)),max(fec_string) "
SQLStmt = SQLStmt & " from ASSEMBLY.FEC_STRINGS "
SQLStmt = SQLStmt & " where startdate<=(select reqdate from ASSEMBLY.FEC_MAP_LOG fml where to_char(fml.reqdate,'YYYYMMDDHH24MISS')='" & ndate & "') "
SQLStmt = SQLStmt & " GROUP BY abs(fec_number),fec_string) "
SQLStmt = SQLStmt & " order by fs.fec_number,fs.fec_string "
Set RS = Connection.Execute(SQLStmt)
' response.write(SQLStmt)
%>
FEC configuration
<% If Not RS.EOF Then
%>
All configured FEC's valid on <%=RS("REQDATE") %>
<%
fec_old=-999999
Do While Not RS.EOF
If CInt(RS("FEC_NUMBER"))<>fec_old Then
If fec_old<>-999999 Then
Response.write("")
End If
response.write(" FEC# " & CStr(RS("FEC_NUMBER")) & " ID: " & CStr(RS("FEC_ID")) & "/" & CStr(RS("FEC_POWERBOARD_ID"))& "
" & vbCrLf)
response.write("" & vbCrLf)
response.write("" & vbCrLf)
response.write("| FEC Port | " & vbCrLf)
response.write("FEC String | " & vbCrLf)
response.write("Channels | " & vbCrLf)
response.write("
")
fec_old=CInt(RS("FEC_NUMBER"))
End If
response.write(" " & CStr(round(CInt(RS("FEC_STRING"))/2-0.1,0)) & " | " & vbCrLf)
response.write(" " & RS("FEC_STRING") & " | " & vbCrLf)
response.write(" " & RS("FEC_ST_LEN") & " | " & vbCrLf)
response.write("" & vbCrLf)
RS.Movenext
Loop
Response.write("
" & vbCrLf)
%>
<%
Else
%>
No active FEC's defined <%
End If
Connection.Close %>