Zitat Zitat von Fuerchau Beitrag anzeigen
Gepackte Daten würde ich in eine HilfsDS packen:

D NumDS ds
D NumFld 31p 0

d HelpDS DS
d HelpNum 31p 0 inz
d HelpX 15 overlay(HelpNum)

evalr NumDs = HelpX + %subst(MyDs:Pos:Len)
Das verstehe ich noch nicht ganz.
Als Beispiel krieg ich für ein DECIMAL-Feld (lt. syscolumns) mit length 6 und storage 4, was lt. DDS als 6P0 definiert ist, folgendes:
PHP-Code:
00000000000000000000000[]0019102 
Das lässt sich nicht über %char() in einen Character umwandeln.