RPG Sourcen im IFS - CRTRPGMOD mit SRCSTMF

[Fuerchau]

Abgesehen von deinem Test:

Man sollte NIE CCSID-abhängige Zeichen (varianter Zeichensatz) als Programmkonstante verwenden, da zur Laufzeit die eingebetteten Zeichen nicht mehr gewandelt werden.
In diesem Fall ist nämlich das Programm zur Laufzeit immer von dieser CCSID abhängig.

Hier findet man einen Hinweis leider nur auf SRCPF's:
Language compilers CCSID

Ich denke aber, dass der Compiler beim Lesen aus dem IFS in CCSID 037 wandelt, was die Ausgaben deines Tests zeigen.
Hier hast du dann wohl keine andere Chance, als deinen Job zur Compilezeit auf 037 zu stellen.
Dies ist zwar dann für den Compiler zum Erkennen von Sonderzeichen richtig, aber zur Laufzeit erfolgt ja keine Codewandlung und dann hast du wieder die Probleme mit varianten Zeichen.

Helfen kann da warscheinlich nur eine Zwangscodierung zur Laufzeit von der Source-CCSID in die Job-CCSID.

Welche CCSID's tatsächlich verwendet wurden, wirft der Compiler eigentlich am Ende des Spools irgendwo aus.

[bofrost]

In unserem Fall ist es kein Probem wenn das Programm zur Laufzeit immer von der selben CCSID abhängt, da die Programme immer auf der selben Maschiene laufen.

Bevor ich die CCSID währen der Laufzeit umwandle wandle ich lieber die sourcen bevor ich sie kompiliere um...

Hm... bevor er die 1252iger sourcen compilieret wandelt er sie in 500 um... entspricht Latin-1 in ebcdic.

[Fuerchau]

Scheint ein Default für den Compiler bei IFS zu sein.
Du hast dann keine Probleme, wenn du absolut keine varianten Zeichen in der Quelle verwendest.
Solltest du diese zur Laufzeit als Konstanten benötigen, so lese diese
a) aus einer Datei mit CCSID
b) aus einer MSGF mit CCSID
Beim Lesen werden diese dann ja in die Job-CCSID gewandelt.

[bofrost]

Hab mir gerade mal die json Utilities von rpgnextgen.com (RPG Next Gen by Mihael Schmidt) angeschaut. Hier werden einfach die Zeichen als Unicode codiert:

D UNICODE_LEFT_CURLY_BRACE...
D                 C                   u'007B'
D UNICODE_RIGHT_CURLY_BRACE...
D                 C                   u'007D'
D UNICODE_LEFT_BRACKET...
D                 C                   u'005B' 

Werde das jetzt auch mal so machen, sollte dann eigendlich ohne Probleme funktionien.