CREATE TABLE DaysOfWeek (ID I, DAYOFWEEK C (9)) INSERT INTO DaysOfWeek VALUES (1,CDOW(DATE()+1)) INSERT INTO DaysOfWeek VALUES (2,CDOW(DATE()+2)) INSERT INTO DaysOfWeek VALUES (3,CDOW(DATE()+3)) INSERT INTO DaysOfWeek VALUES (4,CDOW(DATE()+4)) INSERT INTO DaysOfWeek VALUES (5,CDOW(DATE()+5)) INSERT INTO DaysOfWeek VALUES (6,CDOW(DATE()+6)) INSERT INTO DaysOfWeek VALUES (7,CDOW(DATE()+7)) GO 5 LOCAL laDayOfWeek[1] RowToArray(@laDayOfWeek,"DaysOfWeek") LIST MEMORY LIKE laDayOfWeek FUNCTION RowToArray(taArray, tcAlias) LOCAL lni, taArray[FCOUNT(tcAlias),2], lcField FOR lni = 1 TO FCOUNT(tcAlias) lcField = FIELD(lni,tcAlias) taArray[lni,1] = lcField taArray[lni,2] = &tcAlias..&lcField NEXT lni ENDFUNC