Accessible_Views_Comp

@AbapCatalog.sqlViewName: 'ACCESSVIEWSCOMP'
@EndUserText.label: 'User Accessible Views - S_RS_COMP validation'
@ObjectModel.usageType.serviceQuality:  #P
@ClientHandling.algorithm: #SESSION_VARIABLE
@AccessControl.authorizationCheck: #NOT_REQUIRED
define view Accessible_Views_Comp 
with parameters P_User: syuname
as select distinct from Auth_Profiles(P_User : $parameters.P_User ) as validRSComp

  inner join ust12 as compID
  on compID.auth = validRSComp.Authorization_Profile and validRSComp.Authorization_Object = 'S_RS_COMP'
  and compID.field = 'RSZCOMPID'
  
  inner join ust12 as infoCube
  on infoCube.auth = compID.auth and infoCube.objct = compID.objct and infoCube.field = 'RSINFOCUBE'
  
  inner join cdsviewfirstref as allViews 
  on ((infoCube.von = '*' or infoCube.von = '2C*' or allViews.creferredobject = infoCube.von) 
    and (compID.von = '*' or compID.von = '2C*' or compID.von = allViews.csqlviewname)) {
    allViews.csqlviewname,
    allViews.sqlviewname
  }