Dies geht dann nur mit %EDITC(). Wenn du einen Dezimalpunkt statt Komma benötigst, entweder per H-Bestimmung oder per %xlate() ersetzen. Für Linksbündig das ganze noch per %trim():

mychar = %trim(%xlate(%editc(mynum:'1'):',':'.'));