<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd_repl SQLStmt0 = "select max(RUN) maxrun from phoffline.runs " ' response.write(SQLStmt0 & "
" ) Set RS0 = Connection.Execute(SQLStmt0) maxrun=CLng(RS0("maxrun")) rstep=100 %> Run Log Groups

Run Logbooks

 

<% r_max=(Fix(maxrun/rstep)+1)*rstep r_min=(Fix(maxrun/rstep))*rstep+1 Do While r_min>-1 %> <% r_max=r_max-rstep r_min=r_min-rstep Loop Connection.Close %>
Run Range All ALLBEAM SIPED SICAL SICOSM TOFLED T0COSM FBPED FBTIME PADDLECOSM
<%response.write(Cstr(r_min) & " - " & CStr(r_max)) %>

 

Legend

Run Logbook Sequence Processing Status