R_BDTSTableFieldStructure

@EndUserText.label: 'BDTS Table field structure'
@AbapCatalog.sqlViewName: 'RBDTSTAB'
@AbapCatalog.compiler.compareFilter: true


@VDM: {
  viewType: #BASIC,
  lifecycle.contract.type: #SAP_INTERNAL_API
}

@ObjectModel: {
   usageType: {
     dataClass:      #MASTER,
     serviceQuality: #A,
     sizeCategory:   #XL
   }
}

@AccessControl.authorizationCheck: #MANDATORY
@Metadata.allowExtensions:false

@ClientHandling: {
     type: #INHERITED,
     algorithm: #SESSION_VARIABLE
}

define view R_BDTSTableFieldStructure
  as select from dd03l
{
  key tabname                                 as DatabaseTable,
  key fieldname                               as DatabaseTableFieldName,
  key position                                as DatabaseTableFieldPositionVal,
      keyflag                                 as DatabaseTableFieldIsKeyField,
      rollname                                as ABAPDataElement,
      domname                                 as ABAPDomain,
      checktable                              as DatabaseTableCheckTableName,
      cast ( datatype as bdts_abap_datatype ) as BDTSTableFieldABAPDataType,
      leng                                    as ABAPOutputLengthValue,
      decimals                                as ABAPDictionaryDataTypeDecimals
}
where
      as4local = 'A'
  and as4vers  = '0000' 
  and ( rollname is not initial
  or datatype is not initial )
//  and fieldname <> '.INCLUDE'

//  and fieldname <> 'APPEND' 

//  and fieldname <> '.INCLU--AP'

  
  
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"DD03L"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/