SET FORMAT*
 Ativa um formato quando o comando READ é executado
------------------------------------------------------------------------------

 Sintaxe

     SET FORMAT TO [<idRotina>[.<ext>]]

 Argumentos

     <idRotina> é um arquivo de formatos (.fmt), um programa de formatos
     (.prg), ou uma rotina.

     <ext> é a extensao do arquivo de formatos.  Caso nao seja
     especificada, a extensao padrao (.fmt) é assumida.

     SET FORMAT TO sem argumento desativa o formato corrente.

 Descriçao

     O comando SET FORMAT define uma rotina a ser executada quando um
     comando READ é invocado.  Diferentemente do ambiente interpretado, os
     formatos nao sao abertos em tempo de execuçao e executados quando a
     aplicaçao ocorre.  Ao invés disso, quando o compilador Clipper
     depara-se com um comando SET FORMAT, ele o trata da mesma maneira que a
     um comando DO.  Primeiro ele verifica se já compilou uma rotina com o
     mesmo nome de <idRotina>.  Caso o tenha feito, o comando SET FORMAT usa
     aquela rotina como referência.  Se a <idRotina> nao for encontrada, o
     compilador procura no disco um arquivo com o mesmo nome.  Caso este
     arquivo nao seja encontrado, uma referência externa é gerada, a qual
     deve ser resolvida em tempo de linkagem.

     SET FORMAT é um comando de compatibilidade e, portanto, desaconselhado.

 Notas

       Rotinas de formato ativo: Diferentemente de outros
        dialetos onde cada área de trabalho pode ter um formato ativo, o
        Clipper aceita somente uma rotina de formato ativo para todas as
        áreas de trabalho.

       Limpando a tela: O Clipper nao limpa a tela quando uma
        rotina de formato é executada.

       Declaraçoes permitidas: Declaraçoes e comandos, além de
        comandos @...SAY e @...GET sao permitidos em rotinas formato.

       Páginas múltiplas: O Clipper nao aceita rotinas de
        formato de mais de uma página.

 Exemplos

     Este exemplo usa um formato para adicionar registros ao arquivo de
     dados Sales até que Esc seja pressionado:

     USE Sales NEW
     SET FORMAT TO SalesScr
     DO WHILE LASTKEY() != 27
        APPEND BLANK
        READ
     ENDDO
     RETURN

     PROCEDURE SalesScr
        @ 12, 12 SAY "Filial     : " GET  Branch
        @ 13, 12 SAY "Vendedor   : " GET  Salesman
        RETURN

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

See Also: @...GET @...SAY PROCEDURE READ