COPY STRUCTURE
 Copia a estrutura do arquivo (.dbf) corrente para um novo arquivo (.dbf)
------------------------------------------------------------------------------

 Sintaxe

     COPY STRUCTURE [FIELDS <idLista Campos>]
        TO <xcArquivo>

 Argumentos

     FIELDS <idLista Campos> é o conjunto de campos a serem copiados
     para o novo arquivo de estruturas na ordem especificada.  O assumido é
     copiar todos os campos.

     TO <xcArquivo> é o arquivo destino e pode ser especificado
     literalmente ou como uma expressao caractere entre parênteses.  A
     extensao assumida é (.dbf) a menos que seja especificada outra.

 Descriçao

     COPY STRUCTURE cria um arquivo de dados vazio com as definiçoes de
     campos do arquivo corrente.  Se <xcArquivo> existe, ele é sobreescrito
     sem aviso ou mensagem de erro.

     COPY STRUCTURE é usado para criar estruturas vazias que podem ser
     usadas para arquivar registros a partir do arquivo corrente.  Outro uso
     é criar um arquivo temporário para entrada de dados.  Se toda a sessao
     de entrada estiver correta, você pode enviar os registros para o
     arquivo real usando APPEND FROM.

 Exemplos

     Neste exemplo, COPY STRUCTURE é usado para criar um arquivo temporário
     para que os usuários façam entrada de dados.  Caso os dados entrados
     obedeçam à condiçao de atualizaçao, o arquivo mestre é atualizado com a
     nova informaçao:

     USE Sales NEW
     COPY STRUCTURE TO Temp
     USE Temp NEW

     DO WHILE lMore
        APPEND BLANK
        @ 10, 10 GET Temp->Salesman
        @ 11, 11 GET Temp->Amount
        READ

        IF UPDATED()
           SELECT Sales
           REPLACE Sales->Salesman WITH Temp->Salesman
           REPLACE Sales->Amount WITH Temp->Amount
           SELECT Temp
           ZAP
        ELSE
           lMore := .F.
        ENDIF
     ENDDO
     CLOSE DATABASES

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

See Also: COPY STRUCTURE EXTENDED CREATE