Linha Logix

Páginas filhas
  • LOG_gZipCompress

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (rubens.santos)

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Cleane Hermann

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
LOG_gZipCompress( < l_file > , < l_env_file > , < l_gzip_file > , < l_env_gzip > ) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_file

CHAR

Sim

Caminho completo do arquivo que será compactado.

l_env_file

SMALLINT

Sim

Ambiente do arquivo: 0 - Servidor ou 1 - Local.

l_gzip_file

CHAR

Sim

Caminho completo do arquivo compactado.

l_env_gzip

SMALLINT

Sim

Ambiente do arquivo compactado: 0 - Servidor ou 1 - Local.

Retorno

Tipo

Descrição

SMALLINT

Verdadeiro se o arquivo foi compactado com sucesso.

Exemplo

Bloco de código
languageruby
themeConfluence
linenumberstrue
#------------------------------------------------------------------------------#
 FUNCTION LOG_gZipCompressExample()
#------------------------------------------------------------------------------#
    DEFINE l_status  SMALLINT
    DEFINE l_message CHAR(200)

    LET l_status = LOG_tarCompress("D:/arquivo1.txt",1,"D:/arquivos.gz",1)

    IF  NOT l_status THEN
        LET l_message = log0030_mensagem_get_texto()
        CALL log0030_processa_mensagem(l_message,"excl",0)
    ELSE
        LET l_message = "Arquivo compactado com sucesso em ""D:\arquivos.gz""."
        CALL log0030_processa_mensagem(l_message,"info",0)
    END IF

    RETURN l_status
END FUNCTION

...