Create Cursor mycursor (cf_text c(10))
For ix = 1 To 10
  Insert Into mycursor Values (Sys(2015))
Endfor

Scan
  Scatter Name loRecord
  x=m.loRecord.cf_text
  ? m.x
  m.loRecord=.Null.
Endscan