pbdevc_t_tadir

@AbapCatalog.sqlViewName: 'DEVC_T_TADIR_V'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Packages with shorttext und TADIR fields'
define view pbdevc_t_tadir
  as select from tdevc
    inner join   tadir on tdevc.devclass = tadir.obj_name
    left outer join  tdevct on tdevc.devclass = tdevct.devclass
{
  key tdevc.devclass   as devclass,
  tdevc.pdevclass  as pdevclass,
  tdevc.dlvunit    as dlvunit,
  tdevc.parentcl   as parentcl,
  tdevc.mainpack   as mainpack,
  tadir.author     as responsible,
  tadir.srcsystem  as original_system,
  tadir.masterlang as original_language,
  tdevct.ctext     as ctext
}
where
      tadir.delflag = ''
  and tadir.object  = 'DEVC'
  and tdevc.devclass not like '$%'
  and ( tdevct.spras = $session.system_language or tdevct.spras = 'E' )

union all

 //packages starting with $

select distinct from tdevc
  left outer join   tdevct on tdevc.devclass = tdevct.devclass
{
  key tdevc.devclass   as devclass,
  tdevc.pdevclass  as pdevclass,
  tdevc.dlvunit    as dlvunit,
  tdevc.parentcl   as parentcl,
  tdevc.mainpack   as mainpack,
  tdevc.created_by as responsible,
  '   '            as original_system,
  ' '              as original_language,
  tdevct.ctext     as ctext
}
where
  tdevc.devclass like '$%' 
  and ( tdevct.spras = $session.system_language or tdevct.spras = 'E' ) 
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"TADIR",
"TDEVC",
"TDEVCT"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/