Subversion Repositories DevTools

ElseIf (parOpr = "getSdkUsage") Then

    getSdkUsage

' Function:    getSdkUsage

' Description: Get SDK Usage information for a given sdktag_id

'              Array of:

'               sdktag_id

'               sdktag_name

'               sdktag_state

'

' Options:      sdktag_id  - Get information for given sdktag

Sub getSdkUsage

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")

    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER

    SqlQry = "SELECT DISTINCT p.proj_id, rc.rtag_id, p.PROJ_NAME, rt.RTAG_NAME" &_

             " FROM release_content rc," &_

             " release_tags rt, PROJECTS p" &_

             " WHERE NOT rc.SDKTAG_ID = :SDKTAG_ID" &_

             " and rc.RTAG_ID = rt.RTAG_ID" &_

             " and p.PROJ_ID = rt.PROJ_ID" &_

             " ORDER BY UPPER(p.PROJ_NAME), UPPER(rt.RTAG_NAME)"

    ' Perform Query

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    ' Process Results

    Set oJSON.data("aaData") = oJSON.Collection()

    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

        Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))

        Dim ii

        for ii = 0 to rsQry.Fields.Count - 1

            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)

        Next

       rsQry.MoveNext

    Wend

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "SDKTAG_ID"

End Sub

'-------------------------------------------------