Rsrts_Cds_Query_List_Cube

@AbapCatalog.sqlViewName: 'RSRTS_CDS_QRC'
@AccessControl.authorizationCheck: #CHECK
@AbapCatalog.compiler.compareFilter: true

define view Rsrts_Cds_Query_List_Cube
    as select from   ddheadanno                     as headanno

    inner join      ddldependency                  as dep_stob         on  dep_stob.objectname = headanno.strucobjn
                                                                       and dep_stob.state      = 'A'
                                                                       and dep_stob.objecttype = 'STOB'

    inner join      ddldependency                  as dep_view         on  dep_view.ddlname = dep_stob.ddlname
                                                                       and dep_view.state      = 'A'
                                                                       and dep_view.objecttype = 'VIEW'
    // only released objects

    inner join      ARS_APIS_RELEASED_C1_OR_GROUPS as ars_api_released on  ars_api_released.object_type = 'CDS_STOB'
                                                                       and ars_api_released.object_key  = dep_stob.objectname
                                                                       //and ( ars_api_released.state = 'RELEASED' or ars_api_released.state = 'DEPRECATED' ) // DEPRECATED too long!

                                                                       and ars_api_released.state = 'RELEASED'

    inner join       dd2526v                       as dd2526v          on  dd2526v.viewname = dep_view.objectname
                                                                       and dd2526v.as4local = 'A'
                                                                       and dd2526v.tabname  <> 'DDDDLNUMTYPES'
                                                                       and dd2526v.tabname  <> 'DDDDLCHARTYPES'
                                                                       and dd2526v.tabname  <> 'DDDDLCURRTYPES'
                                                                       and dd2526v.tabname  <> 'DDDDLQUANTYPES'
                                                                       //and dd2526v.tabname  <> 'ALLDATATYPE_1'


    inner join      ddldependency                  as cube_view         on  cube_view.objectname = dd2526v.tabname
                                                                        and cube_view.state      = 'A'
                                                                        and cube_view.objecttype = 'VIEW'

    inner join      ddldependency                  as cube_stob         on  cube_stob.ddlname = cube_view.ddlname
                                                                        and cube_stob.state      = 'A'
                                                                        and cube_stob.objecttype = 'STOB'

    inner join      ddheadanno                     as cube_anno         on  cube_anno.strucobjn  =  cube_stob.objectname // Objectname (CDS Name ) and not Ddlname

                                                                        and cube_anno.name       = 'ANALYTICS.DATACATEGORY'
                                                                        and cube_anno.value      = '#CUBE'


    left outer join ddheadanno                     as headannotext     on  headannotext.strucobjn = dep_stob.objectname
                                                                       and headannotext.name      = 'ENDUSERTEXT.LABEL'

    left outer join ddddlsrc02bt                   as text             on  text.ddlname    = dep_view.ddlname
                                                                       and text.strucobjn  = dep_stob.objectname
                                                                       and text.as4local   = dep_view.state
                                                                       and text.ddlanguage = $session.system_language

    inner join tadir                               as tadir            on  tadir.obj_name = cube_stob.ddlname // Ddlname and not Objectname (CDS Name )

                                                                       and tadir.pgmid = 'R3TR'
                                                                       and tadir.object = 'DDLS'

    inner join RSRTS_APP_COMPONENT                 as akh              on  akh.pkg =  tadir.devclass

//    inner join dd_db_cache_app                     as akh              on  akh. pkg =  tadir.devclass

{
    key
      concat( '2C', dep_view.objectname )                               as compid,
      concat( '2C', dd2526v.tabname )                                   as infoprovider,
      dep_stob.ddlname                                                  as ddlname,
      headanno.strucobjn                                                as view_name,
      dep_view.objectname                                               as sql_view_name,
      cube_view.ddlname                                                 as cube_ddlname,
      cube_stob.objectname                                              as cube_view_name,
      cube_view.objectname                                              as cube_sql_view_name,
      text.ddtext                                                       as description,
      headannotext.value                                                as enduser_text_label,
      case when  akh.app_component <> ''
           then concat( '2O-', akh.app_component )          
           else  akh.app_component
      end                                                               as infoarea
}

      where  headanno.name = 'ANALYTICS.QUERY'
      and    headanno.value = 'true'
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"ARS_APIS_RELEASED_C1_OR_GROUPS",
"RSRTS_APP_COMPONENT",
"DDDDLSRC02BT",
"DDHEADANNO",
"DDLDEPENDENCY",
"TADIR",
"DD2526V"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/