SYSTEM: Como Chamar um Programa do Sistema

Como:

Sistemas Operacionais Disponíveis: Windows

Linguagens Disponíveis: Reporting

A função SYSTEM chama um programa DOS, um programa em massa ou umaplicativo Windows a partir de um procedimento. SYSTEM passa uma string de comando para o DOS ou Windows e o programa é executado como se tivesse sido inserido na linha de comando o DOS ou no campo da linha de comando na caixa de diálogo Execução do Gerenciador de Programas do Windows. Quando você sai do programa, o controle retorna para o WebFOCUS.

SYSTEM suspende a execução do FOCUS de comandos subsequentes até que você saia do aplicativo. Possui uma vantagem sobre o comando FOCUS DOS, que também permite que você chame os programas DOS e aplicativos do Windows de um procedimento.

Durante a execução de um, comando de SYSTEM, o comando é executado da seguinte forma:


Topo da página

x
Sintaxe: Como Chamar um programa DOS ou Windows
SYSTEM(length, 'string ', returncode)

onde:

comprimento

Inteiro

É o comprimento, em caracteres, da string.

string

Alfanumérico

É um comando Windows ou DOS válido com parâmetros de linha de comando entre aspas simples.

returncode

Precisão dupla

É o nome ou comprimento da variável que contém o valor do nível de erro do DOS.



Exemplo: Como Executar o Comando DIR

SYSTEM passa o comando DIR para o intérprete de comandos do DOS para criar uma lista de diretórios classificada sem informações de cabeçalho ou resumo e redireciona a saída para um arquivo chamado DIR.LIS:

-SET &RETCODE = SYSTEM(31,'COMMAND /C DIR /O-N /B >DIR.LIS','D4');


Exemplo: Como Alterar o Diretório Padrão

SYSTEM altera o diretório padrão e suspende o processamento até que a operação seja concluída:

-SET &ERRORLEVEL = SYSTEM(15,'CHDIR \CARDATA','D4');


Exemplo: Como Executar o Programa de Verificação de Disco

SYSTEM executa o programa de verificação de disco e redireciona a saída para um arquivo chamado CHKDSK.TXT. (O redirecionamento da saída para um arquivo o disponibiliza para um programa que pode tentar lê-lo.)

-SET &RETCODE=SYSTEM(19,'CHKDSK > CHKDSK.TXT','D4');

Information Builders