zOs/SQL/KASP2

                         SELECT UNDERLAYER, LAUFNR, VERFALL, CASE WHEN
 BASISPREIS >= 10000000 THEN 9999999.999999 WHEN BASISPREIS <= -
 10000000 THEN - 9999999.999999 ELSE DECIMAL (BASISPREIS, 13, 6) END,
 CASE WHEN KONTRAKT >= 10000000 THEN 9999999.999999 WHEN KONTRAKT <= -
 10000000 THEN - 9999999.999999 ELSE DECIMAL (KONTRAKT, 13, 6) END,
 VERSION, MUT_TIMESTAMP, TKKEY, YEAR (VERFALL), MONTH (VERFALL) FROM
 VFI011A1 A WHERE A.UNDERLAYER = :H AND A.LAUFNR = :H AND A.VERFALL >=
 '01' !! SUBSTR (:H, 3, 8) AND A.MUT_TIMESTAMP = (SELECT MAX
 (MUT_TIMESTAMP) FROM VFI011A1 WHERE UNDERLAYER = A.UNDERLAYER AND
 LAUFNR = A.LAUFNR AND VERFALL = A.VERFALL AND BASISPREIS = A.BASISPREIS
 AND KONTRAKT = A.KONTRAKT AND VERSION = A.VERSION) ORDER BY 1, 2, 9,
 10, 4, 5, 3, 6