cross_relation

@AbapCatalog.sqlViewName: 'CROSS_RELATION_V'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Source code relations to used objects'
define view cross_relation

  //ddic stuff without type groups

  as select from    wbcrossgt_raw as relation
    left outer join ddtypes   on ddtypes.typename = relation.used_object
    left outer join dd02l     on  dd02l.tabname  = ddtypes.typename
                              and dd02l.tabclass = 'INTTAB'
  // add bdefs

    left outer join sedt_bdef on sedt_bdef.bd_include = relation.used_object
{
  relation.include  as include,
  relation.fullname as fullname,
  case
    when sedt_bdef.bdef_name is not initial then sedt_bdef.bdef_name
  else relation.used_object
  end               as used_object,
  case
    when dd02l.tabclass = 'INTTAB' then 'STRU'
    when sedt_bdef.bdef_name is not initial then 'BDEF'
    else ddtypes.typekind
  end               as used_type
}

union all

// type groups

select from       wbcrossgt_raw as relation
  left outer join sedt_type     as type_groups on  relation.type_group = type_groups.type_group_include
                                               and type_groups.state   = 'A'
{
  relation.include            as include,
  ''                          as fullname,
  type_groups.type_group_name as used_object,
  'TYPE'                      as used_type
}
where
  type_groups.type_group_include is not initial

union all

//main objects

select from cross_tadir
{
  include    as include,
  fullname   as fullname,
  name       as used_object,
  tadir_type as used_type
}
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"CROSS_TADIR",
"SEDT_BDEF",
"SEDT_TYPE",
"WBCROSSGT_RAW",
"DD02L",
"DDTYPES"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/