VB_CDS_VIEWS

@AbapCatalog.sqlViewName: 'VBCDSVIEWS'
@EndUserText.label: 'List of All CDS Views'
@ObjectModel.usageType.serviceQuality:  #P
@ClientHandling.algorithm: #SESSION_VARIABLE
@AccessControl.authorizationCheck: #NOT_REQUIRED
@AbapCatalog.preserveKey:true
@AbapCatalog.compiler.compareFilter:true
define view VB_CDS_VIEWS
  as select from ddddlsrc      as AllCDSViews
    inner join   Cds_Sql_View  as CDSSQLView  on AllCDSViews.ddlname = CDSSQLView.DDLSourceName
    inner join   Cds_Stob_View as CDSSTOBView on AllCDSViews.ddlname = CDSSTOBView.DDLSourceName
{
  key AllCDSViews.ddlname                              as DDLSourceName,
      AllCDSViews.source_origin                        as CDSOriginKey,
      cast(CDSSQLView.SQLViewName as ddannotation_val) as SQLViewName,
      cast(CDSSTOBView.CDSName as abap.char(40))       as CDSName,
      AllCDSViews.source_type                          as SourceType
}
where
      AllCDSViews.as4local    = 'A'
  and AllCDSViews.source_type = 'V'

union all

select from              ddddlsrc   as Views
  left outer to one join ddheadanno as anno on  Views.ddlname =  anno.strucobjn
                                            and anno.name     =  'ANALYTICS.TECHNICALNAME'
                                            and anno.value    not like ''''
                                            and (
                                               anno.value     is not null
                                               or anno.value  <> ''
                                             )
{ // to fetch cds 2.0 views

  key Views.ddlname       as DDLSourceName,
      Views.source_origin as CDSOriginKey,
      anno.value          as SQLViewName,
      Views.ddlname       as CDSName, // CDSName is DDLname for CDS 2.0, referred from BASIS view 'rsodp_abap_cds_odpname_cds'

      Views.source_type   as SourceType
}
where
      Views.source_type = 'W'
  and Views.as4local    = 'A'

union all

select from              ddddlsrc   as Views

  inner join             dd02bnd    as StructuredNodes on  StructuredNodes.strucobjn = Views.ddlname
                                                       and provider_contract         = 'AQ'

  left outer to one join ddheadanno as anno            on  Views.ddlname =  anno.strucobjn
                                                       and anno.name     =  'ANALYTICS.TECHNICALNAME'
                                                       and anno.value    not like ''''
                                                       and (
                                                          anno.value     is not null
                                                          or anno.value  <> ''
                                                        )
{
  key Views.ddlname       as DDLSourceName,
      Views.source_origin as CDSOriginKey,
      anno.value          as SQLViewName,
      Views.ddlname       as CDSName,
      Views.source_type   as SourceType

}
where
      Views.as4local    = 'A'
  and Views.source_type = 'P'