22835dc3a6
* tests/multifnc/t0.prg
* tests/multifnc/t1.prg
* tests/multifnc/t2.prg
* source/rdd/usrrdd/example/exmemo.prg
* source/rdd/usrrdd/example/exhsx.prg
* source/rdd/usrrdd/example/exfcm.prg
* source/rdd/usrrdd/example/exrlx.prg
* contrib/xhb/hbsyslog.c
* contrib/rddado/tests/mysql3.prg
* contrib/rddado/tests/access1.prg
* contrib/rddado/tests/access2.prg
* contrib/rddado/tests/mysql1.prg
* contrib/hbpgsql/tests/tstpgrdd.prg
! SVN headers.
* contrib/hbwhat32/Makefile
* contrib/hbwhat32/common.mak
- contrib/hbwhat32/wintypes.ch
- Removed wintypes.ch, as it collides with a header with
the same name (and similar content) in xhb. It will
now use the xhb one, since it already relied on other
xhb headers anyway.
If anyone wants to sort this out properly, pls do.
45 lines
949 B
Plaintext
45 lines
949 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST FCOMMA
|
|
|
|
PROC 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
|
|
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
|
|
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
|