Histórico da Página

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

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

  LET l_text = "Adicionando texto no arquivo"

  LET l_handle = LOG_file_create(l_file,0)
  IF l_handle >= 0 THEN
     IF LOG_file_write(l_handle,l_text) THEN
        CALL conout("Texto adicionado ao arquivo com sucesso")
     ELSE
        CALL conout("Falha ao adicionar texto no arquivo")
     END IF
     LET l_handle = LOG_file_close(l_handle)
  END IF
END FUNCTION