= SQLSETPROP(pdm_var.as400_connection_2, 'asynchronous', .F.) = SQLPREPARE(pdm_var.as400_connection_2, "Select itnbr, vndnr From AMFLIB6.ITEMASA Where AMFLIB6.ITEMASA.itnbr LIKE ?m.part_no", 'what_vendor') Scan part_no = "'%" + myRelDwg.dwgno + "%'" = SQLEXEC(pdm_var.as400_connection_2) * exist other code here ? see point a) EndScanbut:
sLike = '' Scan sLike = m.sLike + "'%" + myRelDwg.dwgno + "%'" ENDSCAN = SQLSETPROP(pdm_var.as400_connection_2, 'asynchronous', .F.) = SQLEXEC(pdm_var.as400_connection_2,"Select itnbr, vndnr From AMFLIB6.ITEMASA Where AMFLIB6.ITEMASA.itnbr LIKE "+STRTRAN(m.sLike,"%''%","%' OR AMFLIB6.ITEMASA.itnbr LIKE '%),'what_vendor')if sLike is too long, you can do a external cycle and split it.