/*
 * $Id: exfcm.prg 9551 2008-10-05 18:13:15Z vszakats $
 */

REQUEST FCOMMA

PROCEDURE MAIN()

   USE test.csv VIA "FCOMMA"
   ? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
     "BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
   ? RECNO(), '"' + FIELD->LINE + '"'
   DBGOBOTTOM()
   ? RECNO(), '"' + FIELD->LINE + '"'
   DBGOTOP()
   ? RECNO(), '"' + FIELD->LINE + '"'
   WAIT
   DO WHILE !EOF()
      ? RECNO(), '"' + FIELD->LINE + '"'
      IF RECNO()==20
         INKEY(0)
      ENDIF
      DBSKIP()
   ENDDO
   ? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
     "BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
   WAIT
   DBGOBOTTOM()
   ? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
     "BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
   WAIT
   DO WHILE !BOF()
      ? RECNO(), '[' + FIELD->LINE + ']'
      IF RECNO()==LASTREC()-20
         INKEY(0)
      ENDIF
      DBSKIP(-1)
   ENDDO
   ? "ALIAS", ALIAS(), "RECNO", RECNO(), ;
     "BOF", BOF(), "EOF", EOF(), "LASTREC", LASTREC()
   WAIT
   BROWSE()

   RETURN
