>> CREATE CURSOR Employee ( Iid I ) >> CREATE CURSOR Contrat_l ( Iid I , iemployeeiD I , ddebut D(8) , dfin D(8) ) >> >> FOR x = 1 TO 60 >> INSERT INTO Employee VALUES (x) >> ENDFOR >> >> >> >> INSERT INTO Contrat_l VALUES ( 1 , 4 , {^2005/03/18}, {^2005/09/15} ) >> INSERT INTO Contrat_l VALUES ( 2 , 14 , {^2001/06/13}, {^2006/01/12} ) >> INSERT INTO Contrat_l VALUES ( 2 , 14 , {^2007/01/12}, {} ) >> INSERT INTO Contrat_l VALUES ( 2 , 22 , {^2003/01/12}, {^2003/09/12} ) >> >> >> >> SET >>>>
>CREATE CURSOR Employee ( Iid I ) >CREATE CURSOR Contrat_l ( Iid I , iemployeeiD I , ddebut D(8) , dfin D(8) ) > >FOR x = 1 TO 60 > INSERT INTO Employee VALUES (x) >ENDFOR >INSERT INTO Contrat_l VALUES ( 1 , 4 , {^2005/03/18}, {^2005/09/15} ) >INSERT INTO Contrat_l VALUES ( 2 , 14 , {^2001/06/13}, {^2006/01/12} ) >INSERT INTO Contrat_l VALUES ( 2 , 14 , {^2007/01/12}, {} ) >INSERT INTO Contrat_l VALUES ( 2 , 22 , {^2003/01/12}, {^2003/09/12} ) >lDCurrentDate = DATE() >SELECT *; > FROM Employee; > LEFT JOIN Contrat_l ON Employee.Iid = Contrat_l.iemployeeiD AND; > Contrat_l.ddebut <= m.lDCurrentDate AND; > (Contrat_l.dfin >= m.lDCurrentDate OR; > EMPTY(Contrat_l.dfin ) OR; > ISNULL(Contrat_l.dfin )) > >>