zOs/TX/PER11SEL

set current path oa1p;
with a as
(
select
    real(s1Rows)/cnt s1A,
    real(vrRows)/cnt vrA,
    real(buRows)/cnt buA,
    t.*
  from A540769.tper11 t
  where type like 'u0322=%'
)
, g as
( select
  5 + buA/49.5                   -- indexScreening
    + vrA         getPgNeu,      -- TS Access
  4 + s1A/41.4 + 5 + s1A/49.5    -- indexScreening
    + s1A         getPgAlt,      -- TS Access
  a.*
  from a
)
select
    fosFmte7(getPgNeu) getPgNeu,
    fosFmte7(getPgAlt) getPgAlt,
    fosFmte7(cnt) cnt,
    fosFmte7(s1A) s1A,
    fosFmte7(vrA) vrA,
    fosFmte7(buA) buA,
    (getPgNeu - getPgAlt)*cnt diff,
    g.*
  from g
  order by type desc, diff desc