Hallo an alle RPG-Entwickler da draußen

ich habe hier ein seltsames Problem, ich habe hier einen Quellcode, in diesem Quellcode steht nur eine Export-Prozedur. Geschrieben ist das ganze momentan in Total Free RPG, also ohne das **free.

Nun wollte ich das ganze auf **free umschreiben, aber sobald ich das mache(erste Zeile **free und dann alles in die erste Spalte rücken) bekomme ich beim Kompilieren zwei Fehlermeldungen: "RNF0308 Das Gleitkommaliteral ist ungültig".

Ich frage mich nun wie kann das sein, ohne **free lässt es sich nämlich ohne Fehler o. Warnung kompilieren?

Soweit ich weis ist unsere Maschine auf den Stand von 7.2 mit allen nötigen PTFs, daran sollte es also eigentlich nicht liegen.

Ich finde **free ja eigentlich klasse, muss aber zugeben das ich schon mehrmals Probleme damit hatte. Meistens will eine /copy Datei nicht vom Kompiler akzeptiert werden welche noch FIX Code enthielt(musste die dann erst umschreiben oder **free aus dem Quellcode nehmen) das ist ziemlich ärgerlich.

PS: Hier sind die beiden SQL Statments
Code:
EXEC SQL
                SELECT
                  CASE
                    WHEN apkflgnr > 49999999 THEN apkflgnr - 40000000
                    ELSE apkflgnr
                  END
                  INTO :liegenschaftsnummer
                  FROM apkopfp
                  WHERE apkfaufnr = :auftragsnummer;
Code:
EXEC SQL
              SELECT COUNT(*)
                INTO :count
                FROM apkopfp
                JOIN apumstp ON
                  CASE
                    WHEN INT(SUBSTR(DIGITS(apkflgnr), 1, 3)) < 500
                      THEN INT(SUBSTR(DIGITS(apkflgnr), 1, 3))
                    ELSE INT(SUBSTR(DIGITS(apkflgnr), 1, 3)) - 400
                  END = apumbezr
                WHERE apkfaufnr = :auftragsnummer;