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;
Bookmarks