<%
'=====================================================
'| |
'| REPORTS DEFINITION |
'| |
'=====================================================
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
Response.buffer = True
'To enable the script timeout to 10 mins
Server.ScriptTimeout=600
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsQry
Dim rsTemp
Dim parPv_id, parExt
Dim objReleaseContent
Dim aReleaseContent
Dim objPackageDetails
Dim outobjDetails
Dim pvIdList
Dim dpv_id
Dim BldStd
'------------ Constants Declaration -----------
const MAX_ROWS_PER_FLUSH = 100
'------------ Variable Init -------------------
parBom_id = Request("bom_id")
parExt = Request("ext")
Set objReleaseContent = CreateObject("Scripting.Dictionary")
Set objPackageDetails = CreateObject("Scripting.Dictionary")
Set outobjDetails = CreateObject("Scripting.Dictionary")
'----------------------------------------------------------------------------------------------------------------------------------------
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
Dim rsQry, query
query = _
" SELECT pkg.pkg_name, pv.* "&_
" FROM PACKAGES pkg,"&_
" PACKAGE_VERSIONS pv"&_
" WHERE pv.pv_id = "& nPv_id &_
" AND pv.pkg_id = pkg.pkg_id "
Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
oPackageDetails.RemoveAll
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
oPackageDetails("pkg_name") = rsQry("pkg_name")
oPackageDetails("pkg_version") = rsQry("pkg_version")
oPackageDetails("v_ext") = rsQry("v_ext")
oPackageDetails("pv_description") = rsQry("pv_description")
oPackageDetails("pv_overview") = rsQry("pv_overview")
oPackageDetails("src_path") = rsQry("src_path")
oPackageDetails("pkg_label") = rsQry("pkg_label")
oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
End If
rsQry.Close()
Set rsQry = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Build_Std ( nPv_id )
SQL_Build_Std = _
" SELECT bs.bs_name"&_
" FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv,"&_
" RELEASE_MANAGER.BUILD_STANDARDS bs"&_
" WHERE pv.PV_ID = "& nPv_id &_
" AND pv.BS_ID = bs.BS_ID "
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Build_Env ( nPv_id )
SQL_Build_Env = _
" SELECT bm.bm_name"&_
" FROM RELEASE_MANAGER.PACKAGE_BUILD_INFO pbi,"&_
" RELEASE_MANAGER.BUILD_MACHINES bm"&_
" WHERE pbi.PV_ID = "& nPv_id &_
" AND pbi.BM_ID = bm.BM_ID "&_
" ORDER BY UPPER(bm.BM_NAME) "
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Modules (aobjReleaseContent)
Dim pv_id,sWhere,i
Const MAX_IDS_PER_LIST = 100
' Create where clause for pv_id
' Note: As Oracle has a limit of 1000 values in an sql IN clause, the pv_id hash table
' will be converted into multiple sql IN clauses if required.
sWhere = "dep.PV_ID IN ("
i = 0
For Each pv_id in aobjReleaseContent.Keys
If (i > 0) and (i Mod MAX_IDS_PER_LIST = 0) Then
sWhere = Mid(sWhere,1,Len(sWhere) - 1) & ") OR dep.PV_ID IN ("
End If
sWhere = sWhere & pv_id & ","
i = i + 1
Next
' if list is empty then exlude all rows
If aobjReleaseContent.Count = 0 Then
sWhere = sWhere & "-1" & ","
End If
sWhere = Mid(sWhere,1,Len(sWhere) - 1) & ")"
SQL_Modules = _
"SELECT DISTINCT"&_
" qry.DPV_ID "&_
" FROM ("&_
" SELECT dep.*,"&_
" LEVEL AS LEVEL_NUM"&_
" FROM PACKAGE_DEPENDENCIES dep"&_
" START WITH "&_
" " & sWhere &_
" CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
" ) qry,"&_
" PACKAGES pkg,"&_
" PACKAGE_VERSIONS pv"&_
" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Build_Dependencies ( nPv_id )
SQL_Build_Dependencies = _
" SELECT dpkg.pkg_name, dpv.pkg_version"&_
" FROM PACKAGE_DEPENDENCIES dep,"&_
" PACKAGES dpkg,"&_
" PACKAGE_VERSIONS dpv"&_
" WHERE dep.pv_id = "& nPv_id &_
" AND dep.DPV_ID = dpv.pv_id"&_
" AND dpv.pkg_id = dpkg.pkg_id "&_
" ORDER BY UPPER(dpkg.pkg_name) "
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
Dim rsQry, query
query = _
" SELECT qry.prod_id"&_
" FROM ("&_
" SELECT DISTINCT"&_
" osc.PROD_ID,"&_
" pkg.pkg_name,"&_
" pv.pkg_version,"&_
" 1 as seq_num"&_
" FROM bom_contents bc,"&_
" operating_systems os, "&_
" os_contents osc,"&_
" PACKAGES pkg,"&_
" PACKAGE_VERSIONS pv,"&_
" PRODUCT_DETAILS pd"&_
" WHERE osc.os_id = os.os_id "&_
" AND os.node_id = bc.node_id"&_
" AND bc.bom_id = "& nBom_id &_
" AND pd.PROD_ID (+) = osc.PROD_ID"&_
" AND pv.pkg_id = pkg.pkg_id"&_
" AND osc.prod_id = pv.pv_id "&_
" AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y') "&_
" UNION "&_
" SELECT DISTINCT bec.prod_id, pkg.pkg_name, pkg_version, 2 as seq_num"&_
" FROM boms bm,"&_
" bom_contents bc,"&_
" network_nodes nn,"&_
" operating_systems os,"&_
" os_base_env obe,"&_
" base_env_contents bec,"&_
" PACKAGES pkg,"&_
" package_versions pv,"&_
" base_env be,"&_
" bos_types bt,"&_
" PRODUCT_DETAILS pd"&_
" WHERE bm.bom_id = "& nBom_id &_
" AND bm.bom_id = bc.bom_id"&_
" AND nn.node_id = bc.node_id"&_
" AND os.node_id = nn.node_id"&_
" AND obe.os_id = os.os_id"&_
" AND pd.PROD_ID (+) = bec.PROD_ID"&_
" AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y') "&_
" AND bec.base_env_id = obe.base_env_id"&_
" AND bec.prod_id = pv.pv_id"&_
" AND pkg.pkg_id = pv.pkg_id"&_
" AND be.base_env_id = obe.base_env_id"&_
" AND bt.bos_id = be.bos_id"&_
" ) qry "&_
" ORDER BY qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
oReleaseContent( CStr( rsQry("prod_id")) ) = ""
rsQry.MoveNext()
WEnd
rsQry.Close()
Set rsQry = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------
%>
<%
Sub Reports_List ( SSgroup )
Dim repNum
%>
<%Select Case SSgroup%>
<%Case "Advanced_Search"%>
<%repNum = 9%>
BOM History Tracker
Use this report to find what changes occured in a BOM within specified date range. more...
<%repNum = 4%>
Find A Product
Use this advanced search to find a product in Deployment Manager. more...
<%Case "Admin_Reports"%>
All Packages by Project by Version Tree by Release
CSV output of all packages used in Release Manager per Project. more...
All Runtime Dependencies by Project by Version Tree by Release
CSV output of all runtime dependencies used in Release Manager per Project. more...
<%repNum = 6%>
Unused Packages
All packages (Not Products) with no entries in "Used By" tab.
Use this report to help you clean up a release and remove all potentially unused packages. more...
<%Case "Escrow"%>
<%repNum = 11%>
Escrow Report
List of all Products/Patches for the BOM including modules. Use this report to provide a build roadmap. more...
<%Case "Sbom_Issues"%>
<%repNum = 12%>
Sbom Issues Report
List of all Products/Patches for the BOM and the issues that they and their dependencies contain. more...
<%Case "Bom_Difference"%>
BOM Version Difference Tool
Use this tool to find what changes occured in a BOM compared to another BOM.
A detailed report of changes between two BOMs can also be emailed upon user request. more...
<%Case "Bom_Merge_Manager"%>
BOM Merge Manager Tool
Use this tool to merge in a change from one BOM to another. more...
<%Case Else%>
« Select reporting category.
<%End Select%>
<%End Sub%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Projects ( NNproj_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
Dim rsTemp, Query_String
Query_String = _
"SELECT B.BOM_ID, B.BRANCH_ID, B.BOM_VERSION ||'.'||B.BOM_LIFECYCLE AS VERSION, BN.BOM_NAME FROM BOMS B, BOM_NAMES BN WHERE B.BRANCH_ID ="&NNrtag_id&" AND BN.BOM_NAME_ID = B.BOM_NAME_ID ORDER BY VERSION"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT DISTINCT vi.view_id, vi.view_name"&_
" FROM VIEWS vi,"&_
" RELEASE_CONTENT rc"&_
" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
" AND rc.rtag_id = "& nRtag_id &_
"ORDER BY UPPER( vi.view_name )"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Packages Using Ignore Feature
' Description : Lists packages which use "Ignore Warning"
' feature on their dependencies.
' INPUT : Project, Vesion Tree, Release Label
'==================================================================================
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If SSsection = "TITLE" Then
Response.write "Packages Using 'Ignore Warnings' Feature"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )
OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name
Version
<%
Dim currRtag_id
currRtag_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY RTAG_ID -----------------
If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Current State of Release
' Description : Show all packages in a release with their state, owner and modifier
' Form Input : Project, Vesion Tree, Release Label
' SQL INPUT : rtag_id
'==================================================================================
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
Dim Query_String, rsRep
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If NNpkg_states = "" Then NNpkg_states = -1
If SSsection = "TITLE" Then
Response.write "Current State of Release"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name and Version
Owner
Last Modifier
Added to Release
<%
Dim currView_id
currView_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY RTAG_ID -----------------
If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currView_id = CDbl(rsRep("view_id"))
End If
' -------- END GROUP ------------------------
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Find ClearQuest Bugs / Issues Location
' Description : Locates bugs / issues imported from ClearQuest
' Form Input : CQ issue Database, CQ issue number list space separated
'==================================================================================
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
Dim Query_String, rsRep
If SSsection = "TITLE" Then
Response.write "Find ClearQuest Bugs / Issues Location"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
Set rsCQ = Server.CreateObject("ADODB.Recordset")
Set issNumDict = CreateObject("Scripting.Dictionary")
'---- Find Issue numbers in ClearQuest ----
If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
iss_num_col = "new_num"
SSsql = _
" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
" FROM CQ_DEVI.admin.software_issue si"&_
" WHERE "
End If
'---- Split multiple search ----
SSiss_num_list = Trim(SSiss_num_list)
If InStr( SSiss_num_list, " " ) > 0 Then
' space separator found
issARR = Split ( SSiss_num_list, " ")
For Each num_item In issARR
If num_item <> "" Then
SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
End If
Next
SSsql = Left ( SSsql, Len(SSsql) - 2 ) ' Removes last OR
Else
SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
End If
rsCQ.ActiveConnection = CQ_conn
rsCQ.Source = SSsql
rsCQ.CursorType = 0
rsCQ.CursorLocation = 2
rsCQ.LockType = 3
rsCQ.Open()
' Get find results from CQ
recCount = 1
maxRecCount = 1000
issNumDict.ADD "-1", "-1" ' take care of no results
While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
recCount = recCount + 1
rsCQ.MoveNext
WEnd
rsCQ.Close
Set rsCQ = nothing
Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )
%>
Issue Number
Fixed At
Package Name and Version
Notes
<%
Dim currIss_id
currIss_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY ISS_ID -----------------
If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Find a Package
' Description : Locate a package/product in Deployment Manager
' Form Input : Package Name, version extension
'==================================================================================
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
Dim Query_String, rsRep, oRegExp
If SSsection = "TITLE" Then
Response.write "Find a Product"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
If SSpkg_name = "" Then SSpkg_name = "%"
If SSv_ext = "" Then SSv_ext = "%"
If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%" 'Place wild card automatically
' -- Check if this is PV_ID
Set oRegExp = New RegExp
oRegExp.Global = False 'Find only first match
oRegExp.Pattern = "\D" 'Match number only
If NOT oRegExp.Test(Request("FRpkg_name")) Then
Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") ) )
Else
Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
End If
%>
Product Name and Version
Location
<%
Dim currPv_id
currPv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY Package Version -----------------
If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
%>
<%If Request("withwcard") <> "" Then%>
<%' Highlight results for package search from index page%>
<%End If%>
<%
rsRep.Close()
Set rsRep = nothing
End If
End Sub
%>
<%
'==================================================================================
' Report Name : Find Package Version History
' Description : Locate all package versions and their current location
' Form Input : Package Name, version extension
'==================================================================================
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
Dim Query_String, rsRep
If SSsection = "TITLE" Then
Response.write "Find Package Version History"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
Const img_Official = ""
If NOT CBool(Request("action")) Then Exit Sub
If SSpkg_name = "" Then SSpkg_name = "%"
If SSv_ext = "" Then SSv_ext = "%"
Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
%>
Official<%=img_Official%>
Package Name and Version
Location
<%
Dim currPv_id
currPv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY Package Version -----------------
If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Obsolete Packages
' Description : List packages that are not used (exclude products)
' INPUT : Project, Vesion Tree, Release Label
'==================================================================================
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If SSsection = "TITLE" Then
Response.write "Unused Packages"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name and Version
Released
Added to Release
<%
Dim currView_id
currView_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY BASE VIEW -----------------
If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currView_id = CDbl(rsRep("view_id"))
End If
' -------- END GROUP ------------------------
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Deployable Software Modules
' Description : Shows packages that are deployed to the customers and shows new packages marked as deployable.
' INPUT : Project, Vesion Tree, Release Label, Base View (hard-coded to PRODUCTS)
'==================================================================================
Sub Deployable_Software_Modules ( sSection, nProj_id, nRtag_id, nBase_view_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
Const Disallow_All = FALSE
If nProj_id = "" Then nProj_id = -1
If nRtag_id = "" Then nRtag_id = -1
If sSection = "TITLE" Then
Response.write "Deployable Software Modules"
Exit Sub
End If
If sSection = "FORM" Then
%>
<% Exit Sub
End If
If sSection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
'--- New Deployable Modules ---
Query_String = ReadFile( rootPath & "queries\rep_new_deployable_packages.sql" )
OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BASE_VIEW_ID", nBase_view_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
<%
Dim currPv_id
currPv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY PRODUCT NAME -----------------
If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Bill Of Materials
' Description : List products for a BOM
' INPUT :
'==================================================================================
Sub Bill_of_Materials ( SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion )
Dim Query_String, rsRep, rsQry
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If NNversion = "" Then NNversion = -1
If SSsection = "TITLE" Then
Response.write "BOM - History Track"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
Dim bomId
bomId = rsQry("bom_id")
rsQry.close
Set rsQry = nothing
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
'Query_String = ReadFile( rootPath & "queries\AllProducts.sql" )
'OraDatabase.Parameters.Add "BOM_ID", bomId, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Trail
Date
Action
User
<%
Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_TRAIL BT, USERS U WHERE BT.BOM_ID ="& bomId &" AND U.USER_ID = BT.USER_ID AND BT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND BT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY BT.DATE_TIME_STAMP DESC", 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 bom trail records
"
.write "
"
End With
Else
%>
Bom
<%
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
%>
<%=rsRep("date_time_stamp")%>
<%=rsRep("trail_action")%>
<%=rsRep("full_name")%>
<% rsRep.MoveNext
WEnd
End If
%>
<%
Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, NODE_TRAIL NT, USERS U WHERE BC.BOM_ID ="& bomId &" AND NT.NODE_ID = BC.NODE_ID AND U.USER_ID = NT.USER_ID AND NT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND NT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY NT.DATE_TIME_STAMP DESC", 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 node trail records
"
.write "
"
End With
Else
%>
Node
<%
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
%>
<%=rsRep("date_time_stamp")%>
<%=rsRep("trail_action")%>
<%=rsRep("full_name")%>
<% rsRep.MoveNext
WEnd
End If
%>
<%
Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, OPERATING_SYSTEMS OS, OS_TRAIL OT, USERS U WHERE BC.NODE_ID = OS.NODE_ID AND OS.OS_ID = OT.OS_ID AND BC.BOM_ID ="& bomId &" AND U.USER_ID = OT.USER_ID AND OT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND OT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY OT.DATE_TIME_STAMP DESC", 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Escrow Report
' Description : Report to extract Products/Patches for Building A RoadMap
' INPUT :
'==================================================================================
Sub Escrow_Report (SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion)
Dim Query_String, rsRep, rsQry
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If NNversion = "" Then NNversion = -1
If SSsection = "TITLE" Then
Response.write "Generation of ESCROW REPORT"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
Dim bomId, ext
bomId = rsQry("bom_id")
Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_manager.project_extentions where proj_id="&NNproj_id, cint(0))
ext = rsQry("ext_name")
rsQry.close
Set rsQry = nothing
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
'---------------------- Run Before Page ---------------------------
Call GetReleaseContent ( bomId, objReleaseContent )
Call GetBomDetails (bomId, outobjDetails)
outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&" "& outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")
'------------------------------------------------------------------
%>
Deployment Manager - Escrow Report
<%=outobjDetails.Item("bom_full_version")%>
<%
Set outobjDetails = Nothing
Dim i
i = 0
aReleaseContent = objReleaseContent.Keys
For Each parPv_id In aReleaseContent
If i mod MAX_ROWS_PER_FLUSH = 0 Then
Response.Flush
End If
Call GetPackageInformation ( parPv_id, objPackageDetails )
%>
">
<%
'Exit For
i = i + 1
Next
If objReleaseContent.Count > 0 Then
Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Modules (objReleaseContent), cint(0))
%>
Modules
<%
i = 0
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
If i mod MAX_ROWS_PER_FLUSH = 0 Then
Response.Flush
End If
dpv_id = rsTemp("dpv_id")
Call GetPackageInformation ( dpv_id, objPackageDetails )
%>
">
<%
rsTemp.MoveNext
i = i + 1
WEnd
rsTemp.Close()
Set rsTemp = Nothing
End If
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Build History
' Description : List packages which were build between certain dates.
' INPUT :
'==================================================================================
Sub Build_History ( SSsection, NNproj_id, NNrtag_id)
Dim Query_String, rsRep, rsQry
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If SSsection = "TITLE" Then
Response.write "Build History"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
%>
Package
Version
<%
Dim currView_id
currView_id = -1
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING
Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY BASE VIEW -----------------
If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currView_id = CDbl(rsRep("view_id"))
End If
' -------- END GROUP ------------------------
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Unit Tests per Package
' Description : List unit tests per package showing the unit test completeness
' INPUT : Project, Vesion Tree, Release Label, Base View, Level of Completeness, Show/Hide Dependencies, PV_ID
'==================================================================================
Sub Unit_Tests_Per_Package ( sSection, nProj_id, nRtag_id, nBase_view_id, nLevel_of_complete, nShow_dependencies, nPv_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
Const Disallow_All = FALSE
If nProj_id = "" Then nProj_id = -1
If nRtag_id = "" Then nRtag_id = -1
If nShow_dependencies = "" Then nShow_dependencies = 0
If nPv_id = "" Then nPv_id = -1
If sSection = "TITLE" Then
Response.write "Unit Tests per Package"
Exit Sub
End If
If sSection = "FORM" Then
%>
<% Exit Sub
End If
If sSection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_unit_tests_per_package.sql" )
OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BASE_VIEW", nBase_view_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "COMPLETENESS", nLevel_of_complete, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "SHOW_DEPS", nShow_dependencies, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name
Version
Test Name
Test Summary
Stamp
Test Completed
<%
Dim currBase_view_id, currPv_id, currDpv_id, showTests
currBase_view_id = -1
currPv_id = -1
currDpv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
If nShow_dependencies <> 0 Then
' show dependency is ON
If rsRep("dpkg_name") = "------" Then
showTests = FALSE
Else
showTests = TRUE
End If
Else
showTests = TRUE
End If
' -------- GROUP BY BASE VIEW -----------------
If CDbl(currBase_view_id) <> CDbl(rsRep("base_view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currBase_view_id = CDbl(rsRep("base_view_id"))
End If
' -------- END GROUP BASE VIEW ------------------------
%>
<%
' -------- GROUP BY PACKAGE -----------------
If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
%>
<%
currPv_id = CDbl(rsRep("pv_id"))
End If
' -------- END GROUP PACKAGE ------------------------
%>
<%
' -------- GROUP BY DEPENDENCY -----------------
If Not IsNull(rsRep("dpv_id")) Then
If CDbl(currDpv_id) <> CDbl(rsRep("dpv_id")) Then
%>
<%
currDpv_id = CDbl(rsRep("dpv_id"))
End If
End If
' -------- END GROUP DEPENDENCY ------------------------
%>
<%If Not IsNull( rsRep("completed_by") ) AND showTests Then%>
Print this report
<%=issNumDict.Item ( Cstr ( rsRep("iss_id") ) )%>
<%=rsRep("pkg_name")%>
<%Else%>
<%End If%><%End If%>
<%=rsRep("test_name")%>