>SELECT 'P' sqcType, reqrd_date sqdDate, ; > ord_qty - recv_qty sqnQty, 0000000 sqnRunning, ; > ' ' sqcIgnore ; > FROM a_poline pl ; > WHERE Item_no = tcItem ; > AND pl.ord_qty > pl.recv_qty ; > AND !line_close ; > UNION ALL ; > SELECT 'S' sqcType, sh.canc_date sqdDate, ; > qty * -1 sqnQty, 0000000 sqnRunning, ; > ' ' sqcIgnore ; > FROM a_lineitm li ; > INNER JOIN a_sohead sh ; > ON li.so_no = sh.so_no ; > WHERE Item_no = tcItem ; > AND (sh.STATUS = 'S' OR sh.STATUS = 'b') ; > ORDER BY 2, 1 ; &&Date >INTO CURSOR curRunning READWRITE >>