error.p
| 1 |
OUTPUT TO errors.txt. |
|---|---|
| 2 |
MESSAGE 'NO ERRORS'. |
| 3 |
FOR EACH Customer WHERE CAN-FIND( |
| 4 |
FIRST Order WHERE Order.CustNum = Customer.CustNum |
| 5 |
AND CAN-FIND( |
| 6 |
FIRST OrderLine WHERE OrderLine.OrderNum = Order.OrderNum |
| 7 |
AND CAN-FIND( |
| 8 |
FIRST Item WHERE Item.ItemNum = OrderLine.ItemNum |
| 9 |
) |
| 10 |
) |
| 11 |
): |
| 12 |
MESSAGE Customer.CustNum. |
| 13 |
END. |
| 14 |
|
| 15 |
MESSAGE 'SOME ERRORS'. |
| 16 |
FOR EACH Customer WHERE CAN-FIND( |
| 17 |
FIRST Order WHERE Order.CustNum = Customer.CustNum |
| 18 |
AND CAN-FIND( |
| 19 |
FIRST OrderLine WHERE OrderLine.OrderNum = Order.OrderNum |
| 20 |
AND CAN-FIND( |
| 21 |
FIRST Item WHERE Item.ItemNum = OrderLine.ItemNum OR DEC(Item.ItemName) > 0 |
| 22 |
) |
| 23 |
) |
| 24 |
): |
| 25 |
MESSAGE Customer.CustNum. |
| 26 |
END. |
| 27 |
|
| 28 |
MESSAGE 'ALL ERRORS'. |
| 29 |
FOR EACH Customer WHERE CAN-FIND( |
| 30 |
FIRST Order WHERE Order.CustNum = Customer.CustNum |
| 31 |
AND CAN-FIND( |
| 32 |
FIRST OrderLine WHERE OrderLine.OrderNum = Order.OrderNum |
| 33 |
AND CAN-FIND( |
| 34 |
FIRST Item WHERE Item.ItemNum = OrderLine.ItemNum AND DEC(Item.ItemName) > 0 |
| 35 |
) |
| 36 |
) |
| 37 |
): |
| 38 |
MESSAGE Customer.CustNum. |
| 39 |
END. |
| 40 |
OUTPUT CLOSE. |