Árvore de páginas

Versões comparadas

Chave

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

...

Variável

Tipo do parâmetroTipo do dado

Descrição

zipFileNameINPUTCHARACTER

Endereço completo do arquivo .ZIP a ser gerado.

Exemplo: c:\tmp\teste.zip

tt-listFiles

     cFile

     lSearch

INPUT

TEMP-TABLE

      CHARACTER X(200)

      LOGICAL

      

Tabela temporária que irá armazenar as informações referentes a cada um dos arquivos que deve ser inserido no arquivo .ZIP gerado

cFile: indica o nome do arquivo que deve ser inserido no ZIP gerado.

lSearch: indica se o arquivo informado foi encontrado pelo utilitário. Valor padrão é false.

passwordINPUTCHARACTER

Senha de acesso aos arquivos do .ZIP gerado.

Este parâmetro é utilizado apenas na procedure interna zipFilesEncryp.

lsobrescreve INPUTLOGICALIndica se o utilitário deve sobrescrever o arquivo ZIP caso ele já exista.

tt-erros

     Cod-Erro

     Desc-Erro

OUTPUT

TEMP-TABLE

      INTEGER

      CHARACTER


Tabela temporária que irá armazenar os dados referentes aos erros encontrados na manipulação dos dados das tabelas de entrada.

Cod-Erro: número do erro. Seqüencial dentro da temp-table.

Desc-Erro: descrição do erro.

Informações
titleImportante


Informações
titleImportante

Após a chamada feita ao utilitário é imprescindível tratar os erros

...

na temp-table tt-erros caso existam.


Exemplo Padrão:

Bloco de código
themeRDark
{utp/ut-zip.i}

define variable h-zip as handle     no-undo.

run utp/ut-zip.p persistent set h-zip.

create tt-listfiles.
assign tt-listfiles.cfile = "c:\temp\teste01.txt".
create tt-listfiles.
assign tt-listfiles.cfile = "c:\temp\teste02.txt".
run zipfiles        in h-zip (input "c:\temp\teste01.zip",
                              input table tt-listfiles,
                              input true,
                              output table tt-erros).

for each tt-erros:
    disp tt-erros.
end.
run zipfilesencrypt in h-zip (input "c:\temp\teste02.zip",
                              input table tt-listfiles,
                              input "senha",
                              input false,
                              output table tt-erros).

for each tt-erros:
    disp tt-erros.
end.

delete procedure h-zip.

...