error0.p

test - Igor Skornyakov, 02/12/2023 11:02 AM

Download (642 Bytes)

       OUTPUT TO errors0.txt.
       MESSAGE 'NO ERRORS'.
       FOR EACH Customer WHERE CAN-FIND(
               FIRST Order WHERE Order.CustNum = Customer.CustNum
           ):
           MESSAGE Customer.CustNum.
       END.
       MESSAGE 'SOME ERRORS'.
       FOR EACH Customer WHERE CAN-FIND(
               FIRST Order WHERE Order.CustNum = Customer.CustNum AND (Order.OrderNum < 10 OR STRING(Order.OrderNum, '') > '0000')
           ):
           MESSAGE Customer.CustNum.
       END.
       MESSAGE 'ALL ERRORS'.
       FOR EACH Customer WHERE CAN-FIND(
               FIRST Order WHERE Order.CustNum = Customer.CustNum AND STRING(Order.OrderNum, '') > '0000'
           ):
           MESSAGE Customer.CustNum.
       END.
       OUTPUT CLOSE.

FWD » Core Development » Database