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.
Click image for larger version.  Name: Bug.PNG  Views: 109  Size: 6,8 KB  ID: 277

Fehlt mir hier ein PTF? Könnt Ihr den Fehler nachstellen?
Release: V7R1M0

LG,
Sam