ERRORLEVEL()
 Configura o código de retorno Clipper
------------------------------------------------------------------------------

 Sintaxe

     ERRORLEVEL([<nCodRetorno>]) --> nCodRetornoCorrente

 Argumentos

     <nCodRetorno> é o novo código de retorno.  Este pode ser um valor
     entre zero e 255.  O valor padrao no início é zero.  Caso nao seja
     especificado, ERRORLEVEL() informa o retorno corrente sem atribuir um
     novo valor.

 Retorna

     ERRORLEVEL() retorna o código de saída corrente do Clipper como um
     valor numérico caso tenha sido configurado um  através de ERRORLEVEL()
     com argumento; do contrário, retorna zero.

 Descriçao

     ERRORLEVEL() é uma funçao de tratamento de ambiente com dupla
     finalidade.  Ela retorna o código de retorno corrente do Clipper e
     opcionalmente configura um novo código de retorno.  O código de retorno
     é um valor cofigurado por um processo secundário para que o processo
     primário possa testar o estado de término do processo secundário.
     Normalmente, o processo primário é DOS e o processo secundário é um
     programa de aplicaçao.  Um código de retorno pode ser carregado pelo
     comando ERRORLEVEL do DOS ou INT 21 Function 4Dh.

     Ao terminar um programa MI>Clipper, o código de retorno é confugurado
     em 1 se o processo terminar com um erro fatal.  Caso o processo termine
     normalmente o código de retorno é configurado em zero, ou o último
     ERRORLEVEL() configurado no programa.

     Normalmente, você configuraria um código de retorno com ERRORLEVEL()
     para indicar um estado de erro para o programa que invocou o programa
     Clipper corrente.  Na maioria dos casos é o arquivo batch da
     aplicaçao.  Aqui você testaria o código de retorno utilizando o comando
     do DOS ERRORLEVEL.  Consulte seu manual DOS para mais informaçoes.

 Notas

       ERRORLEVEL() nao é atualizado após o término de um comando
        RUN.  Para obter o código de retorno do programa invocado, você deve
        criar uma rotina em C ou assembler que questione o código de retorno
        do processo secundário usando INT 21 Function 4Dh.  Consulte o seu
        manual de Referência Técnica do DOS para maiores informaçoes.

 Exemplos

       O exemplo a seguir grava o código de retorno corrente do
        Clipper e depois configura um novo valor:

        nOldCode = ERRORLEVEL()               // Obtem nivel corrente
        ERRORLEVEL(1)                         // Configura novo

       Este exemplo demonstra ERRORLEVEL() sendo utilizado para
        ajustar um código de retorno que pode ser testado pelo processo
        primário:

        #define ERR_FILE_MISSING     255
        #define ERR_POST_INCOMPLETE  254
        //
        IF !FILE("Sysfile.dbf")
           @ 0, 0
           @ 1, 0
           @ 0, 0 SAY "Erro: Arquivo do sistema nao encontrado...abortando!"
           ERRORLEVEL(ERR_FILE_MISSING)
           QUIT
        ENDIF

 Arquivos:  Biblioteca CLIPPER.LIB.
 To download this example - click here.

See Also: QUIT