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
Fontes: file.4gl, file.prw
Veja também
LOG_file_exist