Rounds a decimal expression to a specified number of places after the decimal point.
ROUND ( expression , precision )
This procedure increases all CreditLimit values by 10 percent, rounding those values to the nearest $100:
r-round.p
FOR EACH Customer: DISPLAY Customer.CustNum Customer.Name Customer.CreditLimit. Customer.CreditLimit = ROUND((Customer.CreditLimit * 1.1) / 100 ,0) * 100. PAUSE. DISPLAY Customer.CreditLimit. END.
TRUNCATE function