Table - MyTable
Fields - DateRaised (DATE), DateSeq(CHAR), ...
Index - DateRaised (ASCENDING)
Sequence - MyTableSeq
IF NOT CAN-FIND(FIRST MyTable
WHERE DateRaised EQ TODAY) THEN
ASSIGN CURRENT-VALUE(MyTableSeq) = 0.
CREATE MyTable.
ASSIGN MyTable.DateRaised = TODAY...