Tabulky - ENUM_LIST Typy - AGGR_LIST_T Funkce - AGGR_LIST

select
    10*L.ID+case Type when 'DataType' then 7 when 'EnumDataType' then 8 when 'SimpleDataType' then 9 else 0 end Raddr, -- 7 ~ T ... data type 8 ~ E ... enum 9 ~ U ... unit
    L.ID,
    --
    L.Kdo,
    L.Kdy,
    To_Char(L.Kdy,'dd.mm.yyyy') Kdy_DMR,
    To_Char(L.Kdy,'dd.mm.yyyy hh24:mi') Kdy_DMRHM,
    --
    L.Type,
    L.SubType,
    L.Pos,
    --
    L.Ident,
    L.IfcIdent,
    L.Name,
    L.Name_CZ,
    --
    L.Unit, -- kvuli sjednoceni s jednotkami
    L.Unit_CZ,
    L.Symbol,
    L.Derivation,
    --
    L.Definition,
    case when length(L.Definition)>50 then rtrim(substr(L.Definition,1,47))||'...' else L.Definition end Def50,
    case when length(L.Definition)>100 then rtrim(substr(L.Definition,1,97))||'...' else L.Definition end Def100,
    L.Definition_CZ,
    case when length(L.Definition_CZ)>50 then rtrim(substr(L.Definition_CZ,1,47))||'...' else L.Definition_CZ end Def50_CZ,
    case when length(L.Definition_CZ)>100 then rtrim(substr(L.Definition_CZ,1,97))||'...' else L.Definition_CZ end Def100_CZ,
    L.ISO,
    case
      when L.Type='DataType' and L.SubType='EnumDataType'
        then(
          select distinct substr(Aggr_List(E.Ident) over (order by pos rows between unbounded preceding and unbounded following),1,100)
            from ENUM_List E
            where E.Type='EnumDataType'
              and E.SubType=L.Ident
          )
      end EnumValues
  --L.UnitType -- kvuli sjednoceni s jednotkami - nepouziva se
  from
    ENUM_List L