Code: Select all
EVALUATE TRUE
WHEN B100-DOLLAR > A100-AMOUNT
MOVE 'BOLD' TO B100-STATE
WHEN B100-DOLLAR = A100-AMOUNT
MOVE 'RICH' TO B100-STATE
WHEN B100-DOLLAR < 75 AND F100-ACCOUNT(1:1) = 9
MOVE 'POOR' TO B100-STATE
STRING B100-DOLLAR
'Dollars left' INTO B100-NOTICE
WHEN OTHER
CONTINUE.
I want to write a notice to “B100-NOTICE”, when there is less than 75 dollars left and for customer with account number starting with 3. The notice is " XXX Dollars left", XXX should state the amount of money left.
I am getting this error message.
Code: Select all
COBCH0155E Numeric item should be an integer and without a 'P' in its picture clause