SELECT I.item,; I.itmdesc,; I.plinid,; I.lookup,; I.stkumid,; I.altitm1,; I.avgcost,; I.lstcost,; I.ilsale,; I.itmclss,; I.comcode,; L.loctid,; L.lonhand,; L.lsoaloc,; L.lvprtno,; L.lsupplr,; L.lonordr,; L.ORDERPT,; L.YTDSLQT,; S.lrecdte,; S.vendno,; V.company,; CAST(0 AS N(15,5)) AS MONTHSLQT; FROM icitem01 I; LEFT JOIN iciloc01 L; ON I.item = L.item; INNER JOIN; (SELECT vendno, item , MAX(LRECDTE) as LRECDTE FROM icsupl01 GROUP BY vendno,item) S; ON I.item = S.item; INNER JOIN apvend01 v; ON S.vendno = V.vendno; WHERE I.stkcode = 'Y' AND len(alltrim(I.item)) > 0; ORDER BY I.item, L.loctidTIA