> >testconnString = "Select Distinct jobno, archivef From webprddt1.resmngta0" +; > " Where posstr(jobno,'MES') > 0 And archivef = 1" > >
CREATE CURSOR Jobs (JobNo c(10), archiveF N(1)) INSERT INTO Jobs VALUES ('MES0', 1) INSERT INTO Jobs VALUES ('MES1', 0) INSERT INTO Jobs VALUES ('MES1', 1) INSERT INTO Jobs VALUES ('MES2', 1) INSERT INTO Jobs VALUES ('MES2', 1) INSERT INTO Jobs VALUES ('MES3', 1) SELECT DISTINCT JobNo, archiveF FROM Jobs WHERE PosStr(JobNo, 'MES') > 0 AND JobNo NOT in (SELECT JobNo FROM Jobs WHERE archiveF = 0) FUNCTION PosStr (source AS String, locate AS String) AS Integer RETURN VAL(SUBSTR(m.source, AT(m.locate, m.source) + LEN(m.locate))) ENDFUNC