Hallo!
Ich habe folgende RPG Procedure:
Code:
P CvtCharToPack B Export
D PI
D Ptr_RcvVar * Const
D Length 3I 0 Const
D Decpos 3I 0 Const
D string 128A Const
D DecPntSymbol 1A Const Options(*NoPass:*Omit)
D ThousandSep 1A Const Options(*NoPass:*Omit)
D CurSymbol 1A Const Options(*NoPass:*Omit)
& rufe es so auf:
Code:
D myDec S 30P 9
D myChar S 128
myChar = '9763,123';
cvtCharToPack(%addr(myDec):%len(myDec):%decpos(myDec):myChar);
Nun ist mir beim debuggen folgendes aufgefallen:
Bei "Eval DecPntSymbol" bekomme ich wie erwartet die Rückmeldung "Zeiger nicht auf die Position gesetzt, auf die Bezug genommen wird."
Bei "Eval CurSymbol" bekomme ich immer den Wert "C" angezeigt, obwohl ich den Parameter nicht befülle.
Fehlt mir hier ein PTF? Könnt Ihr den Fehler nachstellen?
Release: V7R1M0
LG,
Sam
Bookmarks