DEF VAR hBuff AS HANDLE NO-UNDO.
DEF VAR hQuery AS HANDLE NO-UNDO.
DEF VAR hField AS HANDLE NO-UNDO.
CREATE BUFFER hBuff FOR TABLE "Folder_Detail".
CREATE QUERY hQuery.
hQuery:ADD-BUFFER(hBuff).
hQuery:QUERY-PREPARE("FOR EACH Folder_Detail
WHERE Folder_Detail.Folder_No EQ WEEKDAY(TODAY) MODULO 4").
hQuery:QUERY-OPEN.
hQuery:GET-FIRST(NO-LOCK).
ASSIGN hField = hBuff:BUFFER-FIELD("Folder_No").
MESSAGE hField:BUFFER-VALUE.
DELETE OBJECT hQuery NO-ERROR.
hBuff:BUFFER-RELEASE.
DELETE OBJECT hBuff NO-ERROR.