Hi Teo,

The program compiled under Clipper 5.01, but the executable didn't generate a 
test.dbf file, and didn't generate any output to the terminal.

Win98, Clipper 5.01

Bill
  ----- Original Message ----- 
  From: Teo Fonrouge 
  To: Harbour Project Main Developer List. 
  Sent: Monday, June 01, 2009 10:40 AM
  Subject: [Harbour] Clipper Bof/Eof behavior on Skip


  Hello,

  Could someone with Clipper 5.2, be so kind of compile and run the  
  program
  bellow and post here the program output ?.


  Thanks in advance.

  Teo


  <Clipper Program>

  FUNCTION Main()

  IF ! File( "test.dbf" )
  DbCreate( "test.dbf", { { "FIELD1", "C", 10, 0 } } )
  ENDIF

  USE test

  GetStatus()

  DbSkip( 1 )

  GetStatus()

  DbSkip( -1 )

  GetStatus()

  RETURN NIL

  STATIC PROCEDURE GetStatus()
  ? iif( Bof(), "Bof", "not Bof" ) + ", " + iif( Eof(), "Eof", "not Eof" )
  RETURN

  </Clipper Program>

  _______________________________________________
  Harbour mailing list
  [email protected]
  http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to