DEF VAR dDecimal AS DEC NO-UNDO.
DEF VAR dDecimal3 AS DEC NO-UNDO DECIMALS 3.
DEF VAR dDecimal4 AS DEC NO-UNDO DECIMALS 4.
ASSIGN dDecimal = 58842.234912454
dDecimal3 = dDecimal
dDecimal4 = dDecimal.
MESSAGE dDecimal SKIP
dDecimal3 SKIP
dDecimal4
VIEW-AS ALERT-BOX.