zOs/SQL/BINDMIGT

-- mig test: vergleich A540769 versus oa1p
with j as
(
select case when a.pgm is null then 'oa1p'
            when o.pgm is null then 'a540'
            else 'both' end  oa
      , value(a.APPL        , o.APPL        ) APPL
      , value(a.PGM         , o.PGM         ) PGM
      , value(a.PRIO        , o.PRIO        ) PRIO
      , value(a.RDL         , o.RDL         ) RDL
      , value(a.CQ          , o.CQ          ) CQ
      , value(a.OV          , o.OV          ) OV
      , value(a.INSTALLBEGIN, o.INSTALLBEGIN) INSTALLBEGIN
      , value(a.INSTALLEND  , o.INSTALLEND  ) INSTALLEND
    from A540769.TQZ041BINDPARM a
      full outer join oa1p.TQZ041BINDPARM o
        on     a.APPL          = o.APPL
           and a.PGM           = o.PGM
           and a.PRIO          = o.PRIO
           and a.RDL           = o.RDL
           and a.CQ            = o.CQ
           and a.OV            = o.OV
           and a.INSTALLBEGIN  = o.INSTALLBEGIN
           and a.INSTALLEND    = o.INSTALLEND
)
select * from j where oa <> 'both'
;x;
        APPL
        PGM
        PRIO
        RDL
        CQ
        OV
        INSTALLBEGIN
        INSTALLEND