DATE-Wert aus vier INT Werten JH, JJ, MM, TT

[camouflage]

So als Beifang aus dem Netz...

SELECT CAST(CAST(G1JHTB + 19000000 AS VARCHAR) AS DATETIME)
(ungeprüft und ohne Garantie)

in RPG würd's dann so aussehen:
dcl-s ISODATE Date(*ISO)
ISODATE = %Date(G1JHTB: *CYMD)