Hallo Daniel,

du kannst eine Zeuchenvariable einfach mit dem Wert in Decimalvariable schieben und dann mit rechen etc.
Hier ein kleines Beispiel.
PGM
DCL VAR(&CHAR)TYPE(*CHAR)LEN(2)VALUE('12')
DCL VAR(&DEC) TYPE(*DEC) LEN(4 0)
CHGVAR VAR(&DEC) VALUE(&CHAR)
CHGVAR VAR(&DEC) VALUE(&dec + 10)
ENDPGM