Histórico da Página

#------------------------------#
 FUNCTION LOG_fileCreate_test()
#------------------------------#
  DEFINE l_file   CHAR(250)
  DEFINE l_handle SMALLINT

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

  LET l_handle = LOG_file_create(l_file,0,0)
  IF l_handle >= 0 THEN
     CALL conout("Criação de arquivo no servidor realizada com sucesso.")
     CALL LOG_file_close(l_handle)
  ELSE
     CALL conout("Falha na criação de arquivo no servidor.")
  END IF
END FUNCTION