SELECT %subrec(IN_PO_NKEY_SBR, D) , S.DUE_DT , D.BUSINESS_UNIT_IN , D.BUSINESS_UNIT %Concat '~' %Concat D.PO_ID %Concat '~' %Concat %NumToChar(D.LINE_NBR) %Concat '~' %Concat %NumToChar(D.SCHED_NBR) %Concat '~' %Concat D.DST_ACCT_TYPE %Concat '~' %Concat %NumToChar(D.DISTRIB_LINE_NUM) FROM PS_PO_LINE_DISTRIB D JOIN PS_PO_LINE_SHIP S ON %Join(COMMON_KEYS, PO_LINE_DISTRIB D, PO_LINE_SHIP S) AND D.BUSINESS_UNIT_IN <> ' ' AND D.DISTRIB_LN_STATUS IN ('O' ,'P') AND S.DUE_DT < %CurrentDateIn AND S.CANCEL_STATUS = 'A' AND S.PRODUCTION_ID = ' ' JOIN PS_PO_LINE L ON %Join(COMMON_KEYS, PO_LINE_DISTRIB D, PO_LINE L) AND L.CANCEL_STATUS = 'A' JOIN PS_PO_HDR H ON %Join(COMMON_KEYS, PO_LINE_DISTRIB D, PO_HDR H) AND H.PO_TYPE <> 'KAN' AND H.PO_STATUS IN ('O' ,'PA' ,'A' ,'D') AND H.RECV_STATUS IN ('H' ,'N' ,'O' ,'P') JOIN PS_VENDOR V ON V.SETID = H.VENDOR_SETID AND V.VENDOR_ID = H.VENDOR_ID JOIN PS_SET_CNTRL_REC C ON C.SETCNTRLVALUE = L.BUSINESS_UNIT AND C.RECNAME = 'MASTER_ITEM_TBL' JOIN PS_MASTER_ITEM_TBL M ON M.SETID = C.SETID AND M.INV_ITEM_ID = L.INV_ITEM_ID LEFT OUTER JOIN PS_ATP_RECVQTY_VW R ON R.BUSINESS_UNIT_PO = D.BUSINESS_UNIT AND R.PO_ID = D.PO_ID AND R.LINE_NBR = D.LINE_NBR AND R.SCHED_NBR = D.SCHED_NBR AND R.PO_DIST_LINE_NUM = D.DISTRIB_LINE_NUM
|