Histórico da Página

#---------------------------------------#
 FUNCTION LOG_fileReadBlock_test()
#---------------------------------------#
  DEFINE l_file   CHAR(250)
  DEFINE l_handle SMALLINT
  DEFINE l_text   VARCHAR(1000)

  LET l_file = "c:\\temp\\arquivo1.txt"

  LET l_handle = LOG_file_open(l_file,0)
  IF l_handle >= 0 THEN
     LET l_text = LOG_file_readBlock(l_handle,100)
     CALL conout("Leitura de bloco de 100 bytes: ["||l_text||"]")
     LET l_handle = LOG_file_close(l_handle)
  END IF
END FUNCTION