Converte um arquivo para o formato DOS, caso esteja no formato LINUX e a execução do programa/rotina corrente esteja sendo realizada com um server TOTVS Tec em ambiente Linux.

Sintaxe

LOG_file_unix2Dos( < l_file > , < l_client >) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_file

CHAR

Sim

Caminho completo do arquivo a ter seu formato convertido para DOS.

l_client

SMALLINT

Sim

Ambiente de pesquisa do arquivo:

0 - Servidor

1 - Local

Retorno

Tipo

Descrição

SMALLINT

Verdadeiro se o arquivo informado foi convertido com sucesso.

Exemplo

FUNCTION LOG_fileUnix2Dos_test()
  DEFINE l_file  CHAR(250)

  LET l_file = "/totvs/report/lst/arquivo1.txt"

  IF LOG_file_unix2Dos(l_file,0) THEN
     CALL conout("Arquivo no servidor convertido com sucesso para formato DOS.")
  ELSE
     CALL conout("Arquivo não existe no servidor ou não ocorreu falha na conversão para formato DOS.")
  END IF
END FUNCTION

Informações

Fontes: file.4gl, file.prw

Veja também

LOG_file_exist