TEXT TO lcStr NOSHOW "Date","String","Int" 01/01/99,"String1", 15 12/25/98,"String2", 23 12/25/08,"String2", 31 ENDTEXT STRTOFILE(lcStr, "temp.csv") CREATE CURSOR Temp (fld1 D, fld2 C(30), Fld3 I) APPEND FROM "temp.csv" CSV lnCentury = SET("Century",1) lnRollover = SET("Century",2) UPDATE Temp ; SET fld1 = ICASE(YEAR(fld1) > 100, fld1, ; YEAR(fld1) >= lnRollover, GOMONTH(fld1,lnCentury*100*12), ; GOMONTH(fld1,(lnCentury+1)*100*12)) LOCATE BROWSE NOWAIT>
>TEXT TO lcStr NOSHOW >"Date","String","Int" >01/01/99,"String1", 15 >12/25/98,"String2", 23 > >ENDTEXT > >STRTOFILE(lcStr, "temp.csv") > >CREATE CURSOR Temp (fld1 D, fld2 C(30), Fld3 I) >APPEND FROM "temp.csv" CSV >LOCATE >BROWSE NOWAIT >>