SELECT Ahubloc.hub AS Source, .f. AS Showall, Ahubloc.name AS Whsename, ; Awhse.seq AS Whseseq, Asource.seq AS Sourceseq, ; Asource.name AS Sourcename, ; ('S'$Asource.types) AS Supplier, ; Ahubloc.lead AS Lanelead, ; Ahubloc.srvlvl AS Targsl, ; iif(Ahubloc.palpos=99999,0,Ahubloc.palpos) AS Allocpos, ; 00000000.0 AS Allocpct ; FROM ; Ahubloc INNER JOIN Aloc AS Awhse ON Ahubloc.loc = Awhse.loc ; INNER JOIN Aloc AS Asource ON Ahubloc.hub = Asource.loc ; WHERE ; 'W' $ Awhse.types