Gepackte Felder in RPG II (RPG36)

[Pikachu]

Vielleicht liegt's daran:

AS/400 Performance Management Version 3 Release 1 (April 1995)

... Other systems may process other numeric field types more efficiently. For example, System/36 uses zoned decimal arithmetic. Since the System/36 RPG compiler on the AS/400 (CRTS36RPG) does not generate packed decimal fields, you must use the CRTRPGPGM to get packed decimal field code generated for running on an AS/400.

[Fuerchau]

Ggf. kann man sich dann mit einem Trick behelfen, in dem man eine externe DS (soweit das da schon geht) erstellt, die das Feld als gepackt definiert.
Vielleicht übernimmt der Compiler das dann auch als gepackt.

[Pikachu]

Oder den Wert als Zeichenkette übergeben und im CL empfangen und in ein numerisches Feld übertragen. Vorsicht bei negativen Werten!

[Fuerchau]

Und dann gibts ja immer noch die "Wrapper"-Option:
RPG mit Zoned-Parameter, übertragen in Packed und Aufruf des Originals.
Ggf. Rückübertragen des Wertes wenn es eine Returnwert sein soll.

[TSchuler]

Ja, das mit dem Wrapper habe ich mir auch schon überlegt und werde das wohl machen.

Danke für Deine Antwort.

[AK1]

Spalten . . . : 1 80 Ansehen LOGRPGS/QRPGLESRC
SEU==> T1
FMT H .....H...OUHsp1..WDTD....S..........I...1.U.H..... ....S.T.................Prgnam
***************** Datenanfang ************************************************** *****************************************
0001.00 H 160927
0002.00 D* DATENSTRUKTUR 160818
0003.00 D* --------------------------------------------------- 160818
0004.00 I DS 160927
0005.00 I P 1 60FELD6P 160927
0006.00 C* --------------------------------------------------- 160927
0007.00 C* CLP AUFRUF 160927
0008.00 C* --------------------------------------------------- 160927
0009.00 C Z-ADD1234567890T1 160927
0010.00 C CALL 'TESTCL' 160927
0011.00 C PARM FELD6P 160927
******************Datenende ************************************************** *******************************************








F3=Verl. F5=Aktual. F9=Auffinden F10=Pos.-Anz. F11=Umschalten F12=Abbrechen
F16=Suchvorgang wiederholen F24=Weitere Tasten
(C) COPYRIGHT IBM CORP. 1981, 2013.

[Fuerchau]

Und was soll uns das nun sagen?
Ich glaube, wie man Variablen definert und Aufrufe tätigt, war jetzt nicht wirklich das Problem.

[ExAzubi]

Ich habe das im INet gefunden

http://www.mcpressonline.com/tips-te...nt-5-tips.html

Numeric Parameter Passing Between RPG36 and RPG/400 Programs
When CALLing an RPG/400 program from RPG36, numeric fields will not be compatible. This is because RPG36 uses zoned decimals for all internal fields, whereas RPG/400 expects numeric fields to be packed unless otherwise defined in a data structure. Since *ENTRY fields cannot be defined in a data structure (because they are passed by address), there is no way to tell the RPG/400 program the field is zoned decimal.
One way to circumvent the problem is to pass the data in a character field. Perform MOVEs on both ends to convert the field between formats.

[Fuerchau]

Das bestätigt ja nun die Aussage von oben und die Notwendigkeit von Wrappern.

[TSchuler]

Das habe ich fast schon vermutet/befürchtet. Danke für den Link.
Ich hatte gehofft, dass es doch irgendwie möglich sein könnte, gepackte Felder zu definieren.

Dann muss ich doch den Umweg über einen Wrapper machen.