I wish it were an April Fool, It is a .tto file generated by PCS to transfer from an AS400. This is of course a Remote View and will be read only.

sq="SELECT distinct OP100M2.SLCSTN, OP100M1.SHSLNM, OP100M2.SLONO, OP100M2.SLRLNO, OP100M2.SLPTNO, OP100M2.SLPTD1, OP100M1.SHORDT,
OP100M2.SLPRDT, OP100M2.SLRQDT, OP100M1.SHORCL, OP100M1.SHCSPO ,
OP100M2.SLORQY, OP100M2.SLUNQY, IC140M.WBBLT1, IC140M.WBBLT4,
OP100M1.SHALBO, OP100M2.SLEXPR, OP100M1.SHSHNM, OP100M1.SHHLDC,
OP100M1.SHSTCN, DE100M.ACBAC, IC140M.WBBLT4, IC140M.WBBOSQ, IC140M.WBRSOQ
from AADAT80.OP100M2,AADAT80.OP100M1,AADAT80.IC140M,AADAT80.IC100M, AADAT80.DE100M where (OP100M2.SLONO=OP100M1.SHONO and OP100M2.SLRLNO=OP100M1.SHRLNO and OP100M2.SLWHS=IC140M.WBWHNO AND OP100M2.SLPTNO = IC140M.WBPPN and OP100M2.SLPTNO=DE100M.IZPN) and (OP100M2.SLLNST <> 'C' and DE100M.PMPLNT = 'GSO') and {fn SUBSTRING(op100m1.shorcl,1,1)}='S' "


Jeff