Cds_Views_Vdm_Type

@AbapCatalog.sqlViewName: 'CDSVIEWSVDMTYPE'
@EndUserText.label: 'CDS Views VDM Type'
@ObjectModel.usageType.serviceQuality:  #P
@ClientHandling.algorithm: #SESSION_VARIABLE
@AccessControl.authorizationCheck: #NOT_REQUIRED
define view Cds_Views_Vdm_Type
as select from ddheadanno  
{
  key strucobjn as CDSName ,
  'TRANSACTIONAL' as CdsViewType
} where ddheadanno.name = 'VDM.VIEWTYPE' and
        ddheadanno.value = '#TRANSACTIONAL'
union
select from ddheadanno  
{
  key strucobjn as CDSName ,
  'CONSUMPTION' as CdsViewType
} where ddheadanno.name = 'VDM.VIEWTYPE' and
        ddheadanno.value = '#CONSUMPTION'
union

select from ddheadanno  
{
  key strucobjn as CDSName ,
'COMPOSITE' as CdsViewType
} where ddheadanno.name = 'VDM.VIEWTYPE' and
        ddheadanno.value = '#COMPOSITE'
union

select from ddheadanno  
{
  key strucobjn as CDSName ,
'BASIC' as CdsViewType
} where ddheadanno.name = 'VDM.VIEWTYPE' and
        ddheadanno.value = '#BASIC'
 union

select from ddheadanno  
{
  key strucobjn as CDSName ,
'EXTENSION' as CdsViewType
} where ddheadanno.name = 'VDM.VIEWTYPE' and
        ddheadanno.value = '#EXTENSION'   
 union

select from ddheadanno  
{
  key strucobjn as CDSName ,
 'NA' as CdsViewType
} where  ddheadanno.name = 'VDM.VIEWTYPE' and    
         ( ddheadanno.value not like '#BASIC' and
           ddheadanno.value not like '#COMPOSITE' and
           ddheadanno.value not like '#CONSUMPTION' and  
           ddheadanno.value not like '#EXTENSION'  and
           ddheadanno.value not like '#TRANSACTIONAL')