ExecSystem

Executa comando de sistema operacional.

Sintaxe

ExecSystem
COMMAND linha_de_comando [ NOWARNING | HIDE ]
[ ASSYNCRONE | ERASE-OFF | RUN-UNIT ]

Argumentos

linha_de_comando

Literal ou variável de até 254 bytes contendo uma linha de comando a ser interpretada pelo sistema operacional.

NOWARNING

Desabilita mensagem de aviso no caso de execução mal sucedida.

HIDE

Executa a tarefa no modo escondido e desabilita mensagem de aviso no caso de execução mal sucedida.

ASSYNCRONE

O comando deve ser executado em paralelo. Normalmente o retorno só ocorre quando o comando é concluído.

ERASE-OFF

No modo texto a tela é apagada antes da execução do comando e restaurada na conclusão. Com esta opção a tela fica a mercê do comando externo.

RUN-UNIT

A linha de comando será interpretada pelo runtime do COBOL e não pelo sistema operacional, produzindo um processo paralelo.

Exemplo

Codificação COBOL

EXEC COBOLware SYSTEM
           OS-CODE;sistema
END-EXEC
EVALUATE sistema
      WHEN 1 EXEC COBOLware ExecSystem Command
                                 "vi notas.txt"
                      END-EXEC
      WHEN 3 EXEC COBOLware ExecSystem Command
                                 "edit notas.txt"
                      END-EXEC
      WHEN 7 EXEC COBOLware ExecSystem Command
                                 "notepad notas.txt"
                      END-EXEC
END-EVALUATE