try this and dispaly according to your need!
DEFINE VARIABLE v-i AS INTEGER.
DEFINE VARIABLE cWeekDays AS CHARACTER EXTENT 7 NO-UNDO INIT
[ "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ].
REPEAT v-i = 1 TO 7:
DISP cWeekDays[v-i] (DAY(TODAY) -...