G
George Potemkin
Guest
FOR EACH Customer EXCLUSIVE-LOCK BREAK BY Customer.State: FOR EACH Order OF Customer EXCLUSIVE-LOCK: ACCUMULATE "Order" (COUNT). END. FIND FIRST DICTDB._DbStatus NO-LOCK. IF (ACCUM COUNT "Order") + 2 NE DICTDB._DbStatus._DbStatus-NumLocks THEN DISPLAY (ACCUM COUNT "Order") DICTDB._DbStatus._DbStatus-NumLocks. END. Total locks = "Order" locks + 2. But if you will remove the "break by" then Total locks = "Order" locks + 1.
Continue reading...
Continue reading...