View Full Version : Gepackte Felder in RPG II (RPG36)
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.
Ja, das mit dem Wrapper habe ich mir auch schon überlegt und werde das wohl machen.
Danke für Deine Antwort.
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.
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.
Und was soll uns das nun sagen:rolleyes:?
Ich glaube, wie man Variablen definert und Aufrufe tätigt, war jetzt nicht wirklich das Problem.
Ich habe das im INet gefunden
http://www.mcpressonline.com/tips-techniques/cl/hot-tips-s36-environment-5-tips.html
(http://www.mcpressonline.com/tips-techniques/cl/hot-tips-s36-environment-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.
(http://www.mcpressonline.com/tips-techniques/cl/hot-tips-s36-environment-5-tips.html)
Das bestätigt ja nun die Aussage von oben und die Notwendigkeit von Wrappern.