CREATE CURSOR Sales ( SalesNo c(6), SalesDate D,Amount Y)
INSERT INTO sales VALUES ('A00001',{^2003/01/01},$100)
INSERT INTO sales VALUES ('A00002',{^2003/01/01},$200)
INSERT INTO sales VALUES ('A00003',{^2003/01/02},$100)
INSERT INTO sales VALUES ('A00004',{^2003/01/01},$200)

SELECT SalesNo, SalesDate, Amount AS MaxAmount ;
FROM Sales S WHERE Amount >= ALL (SELECT Amount FROM Sales WHERE SalesDate=S.SalesDate) ;
INTO CURSOR MaxForDay1

or

SELECT SalesNo, SalesDate, Amount AS MaxAmount ;
FROM Sales S WHERE Amount=(SELECT MAX(Amount) FROM Sales X WHERE X.SalesDate=S.SalesDate) ;
INTO CURSOR MaxForDay2