ZDHJ8 Les profils de paie

select
--a.cdregl,
trim(a.cdcode) "Code PIP",
trim(b.liblon) "Libellé PIP",
c.typcre "Code Type de crédit",
d.liblon "Libellé Type de crédit",
c.cdcode "Code HKY",
c.liblon "Libellé HKY"
from zd00 a, zd01 b,
(select za.cdcode, zb.liblon, zc.statut, zc.typcre from zd00 za, zd01 zb, zd6a zc
where za.nudoss = zb.nudoss
and za.nudoss = zc.nudoss
and za.cdstco = 'HKY') c,
(select ya.cdcode, yb.liblon from zd00 ya, zd01 yb
where ya.nudoss = yb.nudoss
and ya.cdstco = 'HKX') d
where a.nudoss = b.nudoss
and a.cdstco = 'HJ8'
and a.cdcode = c.statut(+)
and c.typcre = d.cdcode(+)
and b.cdlang = 'F' order by a.cdcode;