Gepackte Felder in RPG II (RPG36)

[AK1]

Spalten . . . : 1 80 Ansehen LOGRPGS/QS36SRC

Definieren gepacktes Feld in Datenstruktur
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.

[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.