Hallo funboard,

ich bin hier fast am verzweifeln. Habe folgendes programmiert
0040.00 C Z-ADD 0 COSTN 17 6
0041.00 /free
0042.00 wert = %trim(wert);
0043.00 costn = %dec(%subst(wert:1:10) :12:6 );
0044.00 /end-free
0045.00 C Z-ADD COSTN COST
0046.00 C Z-ADD 0 FBESN 17 5
0047.00 /free
0048.00 fbest = %trim(fbest);
0049.00 fbesn = %dec(%subst(fbest:1:11) :13:5 );
0050.00 /end-free
0051.00 C Z-ADD FBESN ONHAND
0052.00 C Z-ADD 0 RBESN 13 5
0053.00 /free
0054.00 rbest = %trim(rbest);
0055.00 rbesn = %dec(%subst(rbest:1:7) :9:5 );
0056.00 /end-free
Bis Zeile 45 funktioniert alles einwandfrei. In Zeile 55 steigt das PGM
aus mit der Fehlermeldung
Das Ziel für eine numerische Operation ist zu klein, um das Ergebnis
aufzunehmen.
Was zum Kuckuck stimmt da nicht???