Truncates a decimal expression to a specified number of decimal places, returning a decimal value.
A decimal expression that you want to truncate.
A non-negative integer expression that indicates the number of decimal places for a truncated expression.
This procedure doubles each Customer's CreditLimit and then truncates that value before rounding it to the nearest $1000:
r-trunc.p
                FOR EACH Customer:
  FORM Customer.CustNum Customer.Name Customer.CreditLimit
    new-max LIKE Customer.CreditLimit LABEL "New Credit limit".
  DISPLAY Customer.CustNum Customer.Name Customer.CreditLimit.
  Customer.CreditLimit = 
    TRUNCATE((Customer.CreditLimit * 2) / 1000 ,0) * 1000.
  IF Customer.CreditLimit < 15000 THEN 
    Customer.CreditLimit = 15000.
  DISPLAY Customer.CreditLimit @ new-max.
END.
               |