ddcds_simple_types

@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'CDS Simple Type Information'
define view entity ddcds_simple_types
  as select from dddrty_source
    inner join   dddrty_smpl_type on  dddrty_source.type_name = dddrty_smpl_type.type_name
                                  and dddrty_source.type_kind = 'S'
    inner join   tadir            on  tadir.pgmid    = 'R3TR'
                                  and tadir.object   = 'DRTY'
                                  and tadir.obj_name = dddrty_source.type_name

  association [0..1] to dddrty_source_t as _text_active   on  dddrty_source.type_name = _text_active.type_name
                                                          and dddrty_source.as4local  = _text_active.as4local
                                                          and _text_active.ddlanguage = $session.system_language

  association [0..1] to dddrty_source_t as _text_english  on  dddrty_source.type_name  = _text_english.type_name
                                                          and dddrty_source.as4local   = _text_english.as4local
                                                          and _text_english.ddlanguage = 'E'

  association [0..1] to dddrty_source_t as _text_original on  dddrty_source.type_name   = _text_original.type_name
                                                          and dddrty_source.as4local    = _text_original.as4local
                                                          and _text_original.ddlanguage = tadir.masterlang

{
        @EndUserText.label: 'Simple Type Name'
  key   cast( dddrty_source.type_name as abap.char(30) )                                                                 as simple_type_name,
        @EndUserText.label: 'Simple Type Name Raw'
        cast( dddrty_smpl_type.type_name_raw as abap.char(30) )                                                          as simple_type_name_raw,
        @EndUserText.label: 'Base Type Kind'
        cast( case when dddrty_smpl_type.simple_type is not initial then 'SimpleType'
                   when dddrty_smpl_type.data_element is not initial then 'DataElement'
                   else '' end as abap.char(20) )                                                                        as base_type_kind,
        @EndUserText.label: 'Base Type'
        cast( case when dddrty_smpl_type.simple_type is not initial then dddrty_smpl_type.simple_type
                   when dddrty_smpl_type.data_element is not initial then dddrty_smpl_type.data_element
                   else '' end  as abap.char(20) )                                                                       as base_type,
        @EndUserText.label: 'Data Type'
        cast( dddrty_smpl_type.datatype as abap.char(4) )                                                                as data_type,
        @EndUserText.label: 'Length'
        cast( dddrty_smpl_type.leng as abap.numc(6) )                                                                    as length,
        @EndUserText.label: 'Decimals'
        cast( dddrty_smpl_type.decimals as abap.numc(6) )                                                                as decimals,
        @EndUserText.label: 'Is Enumerated Type'
        case dddrty_smpl_type.enum_origin when '' then 'False' else 'True' end                                           as is_enum_type,
        @EndUserText.label: 'Enumeration Origin'
        cast( dddrty_smpl_type.enum_origin as abap.char(30) )                                                            as enumeration_origin,
        @EndUserText.label: 'Short Description'
        cast(coalesce( coalesce( _text_active.ddtext, _text_english.ddtext ), _text_original.ddtext ) as abap.char(60) ) as short_description,
        @EndUserText.label: 'Language of Short Description'
        coalesce( coalesce( _text_active.ddlanguage, _text_english.ddlanguage ), _text_original.ddlanguage )             as short_description_language,
        @EndUserText.label: 'Last Changed At'
        cast( dats_tims_to_tstmp( dddrty_source.as4date, dddrty_source.as4time,
                                  abap_system_timezone( $session.client, 'NULL' ),
                                  $session.client, 'FAIL') as timestamp )                                                as last_changed_at_utc
                                  

}
where
      dddrty_source.as4local  = 'A'
  and dddrty_source.type_kind = 'S'
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"DDDRTY_SMPL_TYPE",
"DDDRTY_SOURCE",
"DDDRTY_SOURCE_T",
"TADIR"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/