Clipper 5.

2 - Comandos e Funes

Comandos da Linguagem Clipper 5.2

?/??
Propsito: Mostrar um ou mais valores na console (vdeo)
ou impressora.
Sintaxe: ?/?? <Lista de expresses>

Exemplo:
CLEAR / / limpa a tela
? Exemplo do comando ? / / exibe a informao no video
? date ( ) / / exibe a data ( nova linha )
? a data de hoje ..:
?? date ( ) / / exibe na mesma posio anterior do
cursor

@... BOX
Propsito: Construir um box (caixa) na tela.
Sintaxe: @ <Lin inicial>,<Col inicial>, <Lin final>, <Col
final>, BOX <Cadeia>

Exemplo:

LOCAL C,L
/* MODULO : m.PRG
FUNCO: ACESSAR TODOS OS PROGRAMAS
*/
SAVE SCREN TO TECLADOS
CLEAR
SET DATE BRIT
SET CONFIRM ON

1
 Clipper 5.2 - Comandos e Funes

SET DETELE ON
DO WHILE .T.
CLEAR
SET WRAP ON
SET MESSAGE TO 23 CENTER
SET COLOR TO B/W
REBOX=CHR (201) +CHR (205) +CHR (187) +CHR (186) +;
CHR (188) +CHR (205) +CHR (200) +CHR (186)
PRIVATE=EMPRESA:= FACULDADES REUNIDAS LTDA
L = 08
C = 22
CLEAR
@ 00,00,03,39 BOX RETBOX
@ 00,40,03,79 BOX RETBOX
@ 04,00,21,79 BOX RETBOX+CHR (177)
@ 22,00,24,79 BOX RETBOX
@ 01,02 SAY EMPRESA
@ 01,42 SAY CONTROLE DE FACULDADE
@ 01,70 SAY DATE( )
@ 02,42 SAY MODULO PRINCIPAL
@ 02,70 SAY TIME ( )
@ 23,02 SAY MENSAGEM
@ L-1,C-2,L+7,C+35 BOX RETBOX+CHR(255)
SET COLOR TO
@ L,C PROMPT PROCESSAR FACULDADES
@ L+2,C PROMPT PROCESSAR TABELA DE CURSOS
@ L+4,C PROMPT PROCESSAR ALUNO
@ L+6,C PROMPT VOLTAR AO D.O.S.
MENU TO OPC
DO CASE
CASE OPC = 1
DO MENUFACU
CASE OPC = 2
DO MENUCURS
CASE OPC = 3
DO MENUALUN
OTHERWISE
RESTORE SCREEN FROM TELA TECLADOS
CANCEL
ENDCASE
ENDDO

@ . . . CLEAR
Propsito: Apagar (limpar) apenas uma rea especfica da tela.
Sintaxe: @ < Lin inicial >, < Col inicial
> CLEAR
[<Lin final>,<Col final>]

2
 Clipper 5.2 - Comandos e Funes

Exemplo:

SET COLOR TO B+/W / / muda a cor

CLS // equivalente a CLEAR, ou seja limpa toda a
tela
SET COLOR TO W+/N / / estabelece um novo padro de
cor
@ 10,10 CLEAR TO 20,20 / / limpa uma regio da
tela
@ 10,10 TO 20,20 DOUBLE / / desenha uma moldura
(quadro)

@. . . SAY. . . GET
Propsito: Criar e executar um novo objeto GET (entrada de
dados), colocando-o em exibio na tela.
Sintaxe: @ <linha>, < coluna> [ SAY <exp> [ <mascara
SAY>] ]
[When<condio>]
[RANGE <inicial>,<final>]
[VALID <condio> ]

Exemplo:
Local vnome : =space(30) , Vsalario : = 0 / / define inicia
variaveis
:
:
// formata a digitao para maiusculas
@ 12,10 say Nome do funcionario.....: get Vnome pict @!
// edita os numeros no formato europeu
@ 14,10 say Salario Mensal....: get vsalario pict @E
999,999,999.99
vdata : = date( )// cria a variavel data contendo o DD/MM/AA
// contido no sistema operacional neste exemplo
// assumida inicialmente a data do sistema
para
// que o usurio no necessite preencher o
campo,
// mas caso a data oferecida pelo programa no
// seja a correta basta que o usurio pressione
// qualquer tecla, que no sejam as teclas de
// movimentao, que a data apagada, podendo
// assim o usurio escrever a data que desejar.
@ 16,10 say Admisso..: get vadata pict @K
READ // executa os gets pendentes
Vendereco : = space(35)

3
 Clipper 5.2 - Comandos e Funes

// permite a edio do endereo, cujo tamanho de

// de 35 posies, em uma area da tela de apenas 20
posies,
// rolando no sentido horizontal o que no couber no
20
// espaos determinados por PICTURE @s20.
@ 18,10 say Endereco..: get vendereco picture @s20
READ // executa o get pentende.
vcpf : = space(14)
@ 10,15 say C.P.F....: get vcpf picture 999.999.999-9
Read
Vnome : = space(15) // equivalente picture @!
@ 11,15 say Nome.....: get vnome picture !!!!!!!!!!!!!!!
vcodigo : = 0
// os pontos sero editados, porem no sero gravados na
// variavel.
@ 12,15 say Codigo....: get vcodigo picture @R 99.999.999
Read
valorI : = 0
// ser aceito na digitao um valor que esteja
compreendido
// entre 0 e 1000.
@ 15,15 say Valor....: get valorI pict 9999 range (0,1000)
Read
ValorII : = 0
// aceita apenas valores positivos
@ 16,50 say Valor....: get valorII valid (valorII > 0)
Read

@. . . PROMPT
Propsito: Montar um menu de opes selecionveis na tela.
Sintaxe: @ < linha >, < coluna >< opo > [
MESSAGE <mensagem>]

Exemplo:
Local OPC : = 1
SET WRAP ON // habilita a rolagem da barra entre os extremos
// do menu
SET MESSAGE TO 23 CENTER // determina a saida de mensagens da
// linha 23 da tela
DO WHILE .T.
CLEAR // LIMPA A TELA
// cria variveis para facilitar as coordenadas do
menu
L: = 8

4
 Clipper 5.2 - Comandos e Funes

C: = 32
// montar a tela
@ 01,01 TO 24,79 DOUBLE
@ 02,02 TO 04,78
@ 03,01 SAY ALT CONTROL INFORMATICA LTDA.
@ 03,60 SAY DATE( )
@ 03,70 SAY TIME( )
// detalha o menu de barras
@ L,C PROMPT INCLUSO MESSAGE INCLUSAO DE DADOS
@ L+1,C PROMPT ALTERAAO MESSAGE ALTERAAO DE DADOS
@ L+2,C PROMPT CONSULTA MESSAGE CONSULTA DE DADOS
@ L+3,C PROMPT EXCLUSAO MESSAGE EXCLUSAO DE DADOS
@ L+4,C PROMPT RELATORIOS MESSAGE RELATORIOS DO SISTEMA
@ L+5,C PROMPT UTILITARIOS MESSAGE UTILITARIOS DO SISTEMA
@ L+6,C PROMPT F I M MESSAGE RETORNO AO DOS
// executa o menu e controla a barra
MENU OPC
DO CASE // faca os casos
CASE OPC = 1
DO PROG1
CASE OPC = 2
DO PROG2
CASE OPC = 3
DO PROG3
CASE OPC = 4
DO PROG4
CASE OPC = 5
DO PROG5
CASE OPC = 6
DO PROG6
CASE OPC = 7
CANCEL // cancela a execuo do programa
ENDCASE
INKEY(0) // aguarda QQ tecla
ENDDO

@. . . TO
Propsito: Desenha um quadro (moldura) a partir de
coordenadas especficas da tela.
Sintaxe: @ <linhaI> , <colunaI > TO <linhaF>,
<colunaF> [DOUBLE]

Exemplo:

SET COLOR TO B+/N

@ 10,10 CLEAR TO 20,20
@ 10,10 TO 20,20 DOUBLE

5
 Clipper 5.2 - Comandos e Funes

ACCEPT
Propsito: Cria uma entrada de dados via teclado e armazenar
o contedo digitado em uma varivel (tipo caracteres).
Sintaxe: ACCEPT [<mensagem de sada>] TO <var>.

Exemplo:
Local Vnome
CLEAR // limpa a tela
ACCEPT Digite o nome....: TO VNOME
? NOME QUE VOC DIGITOU FOI....:, VNOME

APPEND BLANK
Propsito: Criar (inserir) um registro em branco no banco de
dados aberto na rea corrente de trabalho.
Sintaxe: APPEND BLANK

Exemplo:
Local Codvar, OP
/*
NOME DO PROGRAMA: CADMULT1.PRG
AUTOR : GORKI STARLIN
FUNAO: ESTE MODULO ANEXA DADOS NO ARQUIVO PAGAMENTO
*/
USE FOLHA INDEX CODX,NOMEX
DO WHILE .T.
// lay out
CLEAR
SET COLOR TO W+/N
SET COLOR TO
@ 01,01 TO 24,79 DOUBLE
@ 02,02 TO 04,78
@ 03,03 SAY SIRIOS INFORMATICA
@ 03,60 SAY ATE( )
@ 03,70 SAY TIME( )
// criar variveis
CODVAR = 0
SETORVAR = 0
SALARIOVAR = 0
NOMEVAR = SPACE(35)
CARGOVAR = SPACE(15)
ATIVOVAR = (.T.)
DATAVAR = CTOD ( / / )
// entrada de dados
@ 06,10 SAY ** CADASTRAMENTO DE FUNCIONARIOS **
@ 08,10 SAY CODIGO...........: GET CODVAR PICTURE 9999
READ

6
 Clipper 5.2 - Comandos e Funes

IF CODVAR = 0 // verifica se o usurio nao digitou o codigo

OP: = S // cria a variavel OP
@ 21,15 SAY SAI DESTE MODULO.(S/N)..: GET OP PICT
A
READ
IF OP = S // verifica a resposta do
usurio
RETURN // retorne
ENDIF
LOOP // sobe a execuo para linha do DO WHILE
ENDIF // fim do se
SEEK CODVAR // pesquisa no indice o conteudo da variavel
// CODVAR
IF EOF( ) // se no existe
APPEND BLANK // tenta criar um registro em branco
// entra com o restante dos dados do funcionario
@ 10,10 SAY NOME FUNCIONARIO..: GET NOMEVAR PICTURE @!
@ 12,10 SAY SETOR TRABALHO....: GET SETORVAR PICT @9
@ 14,10 SAY CARGO FUNCIONAL...: GET CARGOVAR PICT @!
@ 16,10 SAY SALARIO...........: GET SALARIOVAR PICT 9999999.99
@ 18,10 SAY FUNCIONARIO ATIVO.: GET ATIVOVAR
@ 20,10 SAY DATA ADMISSAO.....: GET DATAVAR
READ
// grava os dados no registro em branco
REPLACE COD WITH CODVAR
REPLACE NOME WITH NOMEVAR
REPLACE SETOR WITH SETORVAR
REPLACE CARGO WITH CARGOVAR
REPLACE ATIVO WITH ATIVOVAR
REPLACE DTADM WITH DATAVAR
REPLACE SALARIO WITH SALARIOVAR
@ 21,20 SAY ** CADASTRO **
WAIT // aguarda QQ tecla
COMMIT // atualiza fisicamente o registro
ELSE // se no
@ 21,20 SAY ** REGISTRO JA CADASTRADO **
WAIT // aguarda QQ tecla
ENDIF
ENDDO

APPEND FROM
Propsito: Anexa registro de um arquivo especificado para
o arquivo que se encontra aberto na rea corrente
de trabalho.
Sintaxe: APPEND FROM [<escopo>] [ FIELDS
<campos>] [FROM <arquivo>]
[FOR <condio>] [WHILE <condio>]
[SDF/DELIMITED]

7
 Clipper 5.2 - Comandos e Funes

[WHITH BLANK / <delimitador>]

Exemplo:

USE FOLHA
APPEND FROM COPIAF FOR .NOT. DELETED( ) // copia apenas os
//registros no marcados
? termino da copia

AVERAGE
Propsito: Calcular a mdia aritmtica de campos ou expresses
de arquivos de dados.
Sintaxe: AVERAGE <campos> TO <vars> [<escopo>]
[FOR<condio>] [WHILE <condio>]
Exemplo:

USE FOLHA // abre o arquivo de dados

AVERAGE SALARIO, COMISSAO TO vcom // calcula e armazena nas
// variveis
? media salarial....:+str(vsal)
? media das comisses...:+str(vcom = A // calcula a
media
// salarial, armazenando o
// resultado na varivel VSAL,
// porm somente dos
funcionarios
// que trabalhem no setor A.

BEGIN SEQUENCE
Propsito: Define uma sequncia de comandos para uma BREAK.
Sintaxe: BEGIN SEQUENCE
. . . COMANDOS
[ BREAK [<expresso>] ]
. . . COMANDOS
[ RECOUVER [ USING <varivel> ] ]
. . . COMANDOS
END [ SEQUENCE ]

Exemplo:

Local Contador, Intervalo

8
 Clipper 5.2 - Comandos e Funes

CONTADOR : = 0
INTERVALO : = 0
DO WHILE CONTADOR < 50
BEGIN SEQUENCE
CONTADOR++
IF CONTADOR > INTERVALO
BREAK CONTADOR
ENDIF
RECOUVER USING CONTADOR
? BLOCO DEFINIDO, CONTADOR =+STR (CONTADOR)
INTERVALO+ = 5
END SEQUENCE
? SAI FORA DO BEGIN SEQUENCE
ENDDO
? LOOP TERMINADO

CALL
Propsito: Executa uma rotina construda em outra linguagem
de programao.
Sintaxe: CALL <rotina> WITH <parmetros>

CANCEL
Propsito: Interromper a execuo do programa que est
sendo executado.
Sintaxe: CANCEL

CLEAR ALL
Propsito: Fecha todos os arquivos abertos e libera da
memria todas as variveis (Pblicas e Privadas).
Sintaxe: CLEAR ALL

CLEAR GETS
Propsito: Libera todos os Gets pendente.
Sintaxe: CLEAR GETS

9
 Clipper 5.2 - Comandos e Funes

CLEAR MEMORY
Propsito: Libera todas as variveis Pblicas e Privadas
da memria.
Sintaxe: CLEAR MEMORY

CLEAR SCREEN
Propsito: Limpa a tela sem liberar os Gets pendentes.
Sintaxe: CLEAR SCREEN

CLEAR TYPEAHEAD
Propsito: Libera todas as pendncias de teclagens do Buffer
(fila) do teclado.
Sintaxe: CLEAR TYPEAHEAD

Exemplo:

/* Neste exemplo antes de folhear o banco de dados com a funo

BROWSE( ) garantido que no exixtir nenhuma pendencia de
teclas do buffer do teclado, pois o mesmo ser limpo atravs de
CLEAR TYPEAHEAD.*/
BROWSE (5, 5, 23, 75) // folheia os registros do B.D.

CLOSE
Propsito: Fechar arquivos, de qualquer tipo, que se
encontrem devidamente abertos.
Sintaxe: CLOSE <rea>< tipo>

Exemplo:

CLOSE ALL // fecha todos os arquivos, de qualquer tipo

// abertos em todas as reas.
CLOSE folha INDEXES // fecha todos os arquivos de ndices
// que estiverem abertos na rea
//(LIAS) FOLHA.

COMMIT

10
 Clipper 5.2 - Comandos e Funes

Propsito: Realiza a gravao em discos de todos os Buffers

dos arquivos abertos.
Sintaxe: COMMIT

Exemplo:
/*
NOME DO PROGRAMA: CADMONO1.PRG
AUTOR : GORKI STARLIN
FUNO: ESTE MODULO ANEXA DADOS NO ARQUIVO PAGAMENTO
*/
SET DATE TO BRIT // pe as datas no formato DD/MM/AA
CLEAR
// abre o arquivo e o incide
USE FOLHA INDEX CODX,NOMEX // abre o arquivo de dados e o de indice
DO WHILE .T.
CLEAR
SET COLOR TO //pe cor padro
// lay out
@ 01,01 TO 24,79 DOUBLE
@ 02,02 TO 04,78
@ 03,03 SAY ALT CONTROL INF
@ 03,60 SAY DATE( )
@ 03,70 SAY TIME( )
// CRIAR VARIAVEIS
CODVAR := SETORVAR := SALARIOVAR := 0
NOMEVAR := SPACE(35)
CARGOVAR := SPACE(15)
ATIVOVAR := (.T.)
DATAVAR := CTOD ( / / )
// entrada de dados
@ 06,10 SAY ** CADASTRAMENTO DE FUNCIONARIOS **
@ 08,10 SAY CODIGO...........: GET CODVAR PICTURE 9999
READ
IF CODVAR = 0 // verifica se o usurio nao digitou o codigo
OP := S // cria variavel OP
// pergunta se o usuario deseja sair do programa
@ 21,15 SAY SAI DESTE MODULO.(S/N)..: GET OP PICT A
READ
IF OP = S // verifica a resposta do usurio
RETURN // retorne
ENDIF
LOOP // sobe a execuo para linha do DO WHILE
ENDIF // fim do se
SEEK CODVAR // pesquisa no indice o conteudo da variavel
// variavel CODVAR
IF EOF( ) // se NAO EXISTE
// entra com o restante dos dados do FUNCIONARIO
@ 10,10 SAY NOME FUNCIONARIO..: GET NOMEVAR PICTURE @!
@ 12,10 SAY SETOR TRABALHO....: GET SETORVAR PICT @9
@ 14,10 SAY CARGO FUNCIONAL...: GET CARGOVAR PICT @!
@ 16,10 SAY SALARIO...........: GET SALARIOVAR PICT 9999999.99
@ 18,10 SAY FUNCIONARIO ATIVO.: GET ATIVOVAR

11
 Clipper 5.2 - Comandos e Funes

@ 20,10 SAY DATA ADMISSAO.....: GET DATAVAR

READ
APPEND BLANK // criar um registro em branco
// grava os dados no registro em branco
REPLACE COD WITH CODVAR
REPLACE NOME WITH NOMEVAR
REPLACE SETOR WITH SETORVAR
REPLACE CARGO WITH CARGOVAR
REPLACE ATIVO WITH ATIVOVAR
REPLACE DTADM WITH DATAVAR
REPLACE SALARIO WITH SALARIOVAR
COMMIT // salva todo o contedo do buffers de arquivos,
// armazenando-o em disco.
@ 21,20 SAY ** CADASTRO **
INKEY(0) // aguarda QQ tecla
ELSE // se no
@ 21,20 SAY ** REGISTRO JA CADASTRADO **
INKEY(0) // aguarda QQ tecla
ENDIF // fim do se
ENDDO // fim do faa enquanto

CONTINUE
Propsito: Continua a pesquisa iniciada a partir do
comando LOCATE.
Sintaxe: CONTINUE

Exemplo:
CLEAR
USE FOLHA // abre o arquivo de dados
LOCATE FOR SETOR = A
DO WHILE FOUND( ) // faa enquanto existir
? NOME, SALARIO, SETOR // mostra os campos
CONTINUE // continua a pesquisa
ENDDO // fim do faa enquanto

COPY FILE
Propsito: Copiar o contedo de um arquivo, independente do
seu tipo, para outro arquivo.
Sintaxe: COPY FILE <arquivo> TO <cpia>

Exemplo:
COPY FILE FOLHA.DBF TO FCOPIA.DBF
COPY FILE FOLHA.DBF TO FCOPIA.DBT
COPY FILE MENU.PRG TO A:MENU.PRG

12
 Clipper 5.2 - Comandos e Funes

COPY STRUCTURE
Propsito: Copiar apenas a estrutura do arquivo aberto na
rea corrente de trabalho.
Sintaxe: COPY STRUCTURE TO <copia> [FIELDS <campos>]

Exemplo:
USE FOLHA // abre o arquivo de dados
COPY STRUCTURE TO TFOLHA // cria o arquivo TFOLHA.DBF com a
// mesma estrutura do arquivo FOLHA.DBF.
COPY STRUCTURE TO TFOLHA FIELDS NOME,SALARIO,COD // cria o arquivo
// TFOLHA contendo uma estrutura de apenas
// trs campos.

COPY STRUCTURE EXTENDED

Propsito: Copia para outro arquivo informaes referentes
estrutura de um arquivo de dados aberto.
Sintaxe: COPY STRUCTURE EXTENDED TO <arquivo>

Exemplo:
USE FOLHA // abre o arquivo de dados FOLHA.DBF
COPY STRUCTURE EXETENDED TO EFOLHA // copia sua estrutura para o
// arquivo EFOLHA.DBF
USE EFOLHA // abre o aquivo contendo a estrutura de FOLHA.DBF
LIST FIELD_NAME, FIELD_TYPE, FIELD_LEN, FIELD,DECX // lista os
// registros

COPY TO
Propsito: Copia registros de bancos de dados (. DBF) para
outro arquivo (.DBF ou no formato ASCII).
Sintaxe: COPY TO [ FIELDS <campos> ] TO
<arquivo> [<escopo>] [FOR <condio>]
[SDF/DELIMITED [ WITH BLANK / delimitador]

Exemplo:
USE FOLHA // abre o arquivo FOLHA.DBF
COPY TO CFOLHA // copia os registros para o arquivo CFOLHA.DBF

13
 Clipper 5.2 - Comandos e Funes

COPY TO FOLHA FOR SETOR = A // somente sero copiados os

registros
// que possuem a letra A inicial no
// campo SETOR
COPY TO CFOLHA RECORD 3 // copia apenas o registro 3
COPY TP CFOLHA DELIMITED // copia para o arquivo CFOLHA.TXT
// no formato delimitado
TYPE CFOLHA.TXT // mostra o contedo do arquivo CFOLHA.TXT

COUNT
Propsito: Calcular o totalizante referente quantidade de
registos.
Sintaxe: COUNT TO <var> [<escopo>] [FOR <condio>]
[ WHILE <condio>]

Exemplo:
USE FOLHA
COUNT TO RESULTADO
? RESULTADO
COUNT TO RESULTADO2 FOR SETOR = A
COUNT TO RESULTADO3 FOR SETOR = A .AND. CARGO = ESCRITURARIO
?RESULTADO, RESULTADO2, RESULTADO3

CREATE
Propsito: Criar um arquivo de estrutura (.DBF) vazio.
Sintaxe: CREATE <arquivo>

Exemplo:
CREATE TESTRU // cria o arquivo de estrutura
APPEND BLANK // cria um registro em branco para descrio de
// um campo da estrutura.
REPLACE ; // define o:
FIELD_NOME WITH COD ; // nome do campo
FIELD_TYPE WITH C ; // tipo do campo
FIELD_LEN WITH 5 ; // tamanho do campo
FIELD_LEN WITH 0 ; // nmero de casas decimais
CLOSE // fecha o arquivo de estruturas
CREATE FOLHA TESTRU // declara o comando CREATE FROM para
criar
// um novo arquivo .DBF a partir do
arquivo
// de estrutura TESTRU
DIR *.DBF // mostra todos os arquivos .DBF do diretrio

14
 Clipper 5.2 - Comandos e Funes

CREATE FROM
Propsito: Criar um arquivo de dados (. DBF) a partir de um
arquivo de estruturas.
Sintaxe: CREATE FROM <novo> FROM <arquivo_estrutura>

Exemplo:
CREATE TESTRU // cria o arquivo de estrutura
APPEND BLANK // cria um registro em branco para descrio de
// um campo da estrutura.
REPLACE ; // define o:
FIELD_NOME WITH COD ; // nome do campo
FIELD_TYPE WITH C ; // tipo do campo
FIELD_LEN WITH 5 ; // tamanho do campo
FIELD_LEN WITH 0 ; // numero de casas decimais
CLOSE // fecha o arquivo de estruturas
CREATE FOLHA FROM TESTRU // declara o comando CREATE FROM
para
// criar um novo arquivo .DBF a partir do
// arquivo de estrutura TESTRU
DIR *.DBF // mostra todos os arquivos .DBF do diretrio

DECLARE
Propsito: Declara variveis ou vetores privates no programa.
Sintaxe: DECLARE <identificador> [:= <valor>]

DELETE
Propsito: Marcar um registro para ser apagado.
Sintaxe: DELETE <escopo> [FOR <condio>]
[ WHILE <condio>]

Exemplo:
USE FOLHA
DELETE ALL // marca TODOS os registros
DISPLAY ALL NOME, SALARIO, COD // mostra os registros
INKEY(0)
SET DELETE ON // filtra os registros marcados
DISPLAY ALL NOME, SALARIO, COD // mostra os registros
INKEY(0)
RECALL ALL // recupera todos os registros
DISPLAY ALL NOME, SALARIO, COD // mostra os registros
INKEY(0)
DELETE FOR SETOR = A // marca os funcionrios do setor A

15
 Clipper 5.2 - Comandos e Funes

DISPLAY ALL NOME, SALARIO, COD // mostra os registros

? FIM

DELETE FILE
Propsito: Apagar um arquivo, de qualquer tipo, do disco.
Sintaxe: DELETE FILE <arquivo>

Exemplo:
IF FILE (FOLHA.DBF) se existir FOLHA.DBF
DELETE FILE FOLHA.DBF
? ARQUIVO FOI APAGADO
ENDIF
DIR *.DBF // mostra todos os arquivos com a exteno .DBF

DIR
Propsito: Mostra a lista dos arquivos contidos em um diretrio.
Sintaxe: DIR [<drive>] [<caminho>] [<mscara>]

Exemplo:
DIR // mostra todos os arquivos (BDF) e seus dados
DIR *.* // mostra todos os arquivos do diretrio
DIR *.prg // mostra todos os programas do diretrio
DIR a: *.* // mostra todos os arquivos do diskete do drive A

DISPLAY
Propsito: Mostra registros de um arquivo de dados na console.
Sintaxe: DISPLAY <campos> [TO PRINTER]
[TO FILE <nome_arquivo>]
[OFF] [<escopo>] [FOR <condio>]
[WHILE <condio>]

Exemplo:
USE FOLHA // abre o arquivo de dados
DISPLAY COD, NOME, SALARIO ALL // mostra todos os registros
DIPLAY COD, NOME, SALARIO // mostra somente o registro
corrente
DISPLAY COD, NOME, SALARIO ALL FOR SETOR = A // mostra os
registros
// dos funcionrios que
// que trabalham no setor A

16
 Clipper 5.2 - Comandos e Funes

DO
Propsito: Executa um programa ou um procedimento.
Sintaxe: DO <nome> [WITH <lista de parmentros>]

Exemplo:
:
IF OP = 2
DO PROG1
ELSEIF OP =3
DO PROG2
ELSE
DO PROG4 WITH NOME
ENDIF

:
:

DO CASE
Propsito: Criar uma estrutura de testes condicionais, onde
apenas uma executada.
Sintaxe: DO CASE
CASE <condio>
. . . . instrues
[CASE <condio2>]
. . . . instrues
[OTHERWISE]
. . . . instrues
END[CASE]

Exemplo:
DO CASE
CASE OP = 2
DO PROG1
CASE OP = 3
DO PROG2
OTHERWISE
RETURN
ENDCASE

DO WHILE
Propsito: Executa uma estrutura de controle enquanto
uma condio for verdadeira.
Sintaxe: DO WHILE <condio>

17
 Clipper 5.2 - Comandos e Funes

. . . . <instrues>
[EXIT]
. . . . <instrues>
[LOOP]
. . . . <instrues>
END[DO]
Exemplo:
:
:
VARSAI :=
DO WHILE VARSAI .NOT. $ SN // faa enquanto VARSAI no
// contiver S ou N

// pergunta dirigida ao operador

@ 21,20 SAY SAIR DESTE MODULO (S/N)..: GET VARSAI PICT !

READ
ENDDO // fim do faa enquanto
:
:

EJECT
Propsito: Avana a pgina da impressora posicionando a cabea
de impresso no local de inicializao da prxima pgina.
Sintaxe: EJECT

Exemplo:
LOCAL L, PG
USE FOLHA
L:= 0 // inicializa uma varivel para controle da quantidade de
// linhas impressas
PG:= 0
GO TOP // v para o inicio do arquivo
SET PRINT ON // liga a sada comum para a impressora
SET CONSOLE OFF // desabilita a sada da console
DO WHILE .not. EOF( ) // faa enquanto no fim do arquivo.

IF L = 0 .OR. L=60 // se L for 0 ou 60

EJECT
PG++ // acumula +1 na varivel
? REALATORIO DE FUNCIONARIOS
?
? Pagina:+str(pg)
replicate (=, 78) // traa uma linha
1 := 7
ENDIF

18
 Clipper 5.2 - Comandos e Funes

? COD, NOME, SALARIO // imprime os campos

SKIP // pule para o prximo registro
L++
ENDDO // fim do faa enquanto

:
:

ERASE
Propsito: Apagar um arquivo, de qualquer tipo, do disco.
Sintaxe: ERASE <arquivo>

Exemplo:

IF FILE (FOLHA.DBF) // se existir FOLHA.DBF

ERASE FOLHA.DBF
? ARQUIVO FOI APAGADO

ENDIF
DIR *.DBF // mostra todos os arquivos com a extenso . DBF

EXTERNAL
Propsito: Declarar uma lista de smbolos ou rotinas externas para
o linker.
Sintaxe: EXTERNAL <lista>

Exemplo:
EXTERNAL funes
:
:

EXIT PROCEDURE
Propsito: Declara um procedimento de sada.
Sintaxe: EXIT PROCEDURE <nome da rotina/procediemento>
[FIELDS <lista de smbolos> [IN <alias>]]
[MENVAR <lista de smbolos>]
:
<expresses executveis>
:
[return]

19
 Clipper 5.2 - Comandos e Funes

Exemplo:
// COMPILE ESTE PROGRAMA COM /N
ANNOUNCE MEUSYSTEMA
STATIC nSEGUNDOS
PROCEDURE PRINCIPAL( )
nSEGUNDOS := SECONDS( )
AEVAL (ASORT (DIRECTORY ( *.*)),;
{|Anomes | QQUT (Anomes[1} ) } )

return // termina o programa.

EXIT PROCEDURE SAIDA( ) / / rotina de sada do programa

?
? TEMPO:
?? SECONDS ( ) - nSEGUNDOS

RETURN / / finaliza definitivamente

FIELD
Propsito: Especifica nomes de campos de arquivos de
dados (.DBF).
Sintaxe: FIELD <lista [IN <apelido>]

Exemplo:
FIELD NOME,COD,SALARIO INTO FOLHA
FIELD CODCARGO,CREDITOS INTO CARGOS
USE FOLHA ALIAS FOLHA
USE CARGOS ALIAS FOLHA
<instrues>
:
:
? cod,codcardi // equivalente a FOLHA-> COD,CARGOS -> CODCARGO
? nome // equivalente a folha -> nome
:
:

FIND
Propsito: Pesquisa no primeiro ndice, o registro que possua
uma chave especificada.
Sintaxe: FIND <string>

Exemplo:

20
 Clipper 5.2 - Comandos e Funes

USE FOLHA INDEX CODX, NOME // abre o arquivo de dados folha.dbf

// e seus respectivos arquivos de
// ndices CODX, NOMEX
FIND 3020 // pesquisa o cdigo = 3020
IF FOUND( ) // se existir
DISPLAY COD,NOME,SALARIO
ENDIF
CODVAR := SPACE(4)
@ 10,20 SAY DIGITE O CODIGO...: GET CODVAR PICTURE 9999
READ
FIND CODVAR // pesquisa o contedo da varivel

IF FOUND( ) // se existir
DISPLAY COD,NOME,SALARIO
ENDIF

FOR. . . NEXT
Propsito: Executa uma estrutura de controle, um
determinado nmero de vezes.
Sintaxe: FOR <contador> = <inicio> TO <fim> STEP
<passo>
...... <instrues>
[EXIT]
...... <instrues>
[LOOP]
NEXT

Exemplo:
LOCAL TREGISTROS
USE CADASTRO
COUNT TO TRESGISTROS
GO TOP
FOR I = 1 TO TREGISTROS STEP 1
DISPLAY NOME, ENDERECO, TEL // exibe o registro corrente
SKIP // pula para o prximo registro
NEXT
? FIM

FUNCTION
Propsito: Cria (declara) uma funo definida pelo usurio (UDF).
Sintaxe: [STATIC] FUNCTION <FUNO> [(PARAMENTRO1,..)]
[LOCAL <identificador>,...]
[FIELD <lista de identificador> [IN <apelido>]

21
 Clipper 5.2 - Comandos e Funes

MEMVAR <lista de identificadores>

:
:
<instrues>
:
:
RETURN [<informao>]
Exemplo:
LOCAL VAR1, VAR2, VAR3, X
var1 := 3
var2 := 7
var3 := 100
:
? soma (var3,var2) // resultado : 107 (na tela)
? soma (var1,var2) // resultado : 10 (na tela)
x:= soma(var3,300) // resultado : 400 (na varivel)
:
:
:
FUNTION SOMA ( P1, P2 ) // declara a funo e recebe os parmetros
R := P1+P2 // soma os parmetros
RETURN R // retorna a execuo para rotina que chamou
// acompanhada do valor contido na varivel R,

GO
Propsito: Desloca o ponteiro interno do arquivo de dados para
um determinado registro.
Sintaxe: GO [TO] <registro> | BOTTOM | TOP

Exemplo:

USE FOLHA
GO 6 // v para o registro (record) numero 6
DISPLAY NOME, COD, SALARIO
GO TOP // v para o inicio do arquivo
DISPLAY NOME, COD, SALARIO
GO BOTTOM // v para o fim do arquivo
DISPLAY NOME,COD,SALARIO

IF
Propsito: Executa instrues somente quando uma
expresso condicional for verdadeira.
Sintaxe: IF <condio>
<instrues>
[ELSEIF < condio2>

22
 Clipper 5.2 - Comandos e Funes

<instrues>
[ELSE]
<instrues>
END[IF]

Exemplo:

LOCAL MEDIA:= 0
CLEAR
@ 10,10 SAY DIGITE A MEDIA DO ALUNO...:GET MEDIA
READ
IF MEDIA <5
? REPROVADO
ELSEIF MEDIA = 5
? RECUPERAO
ELSE
? APROVAADO
ENDIF
:
:

INIT PROCEDURE
Propsito: Especificar uma procedure que ser executada antes
da primeira rotina do Programa.
Sintaxe: INIT PROCEDURE <nome da
rotina/procedimento>
[FIELDS <lista de simbolos> [IN <alias>]]
[LOCAL <simbolos> [: = valor]]
[MEMVAR <lista de simbolos>
<expresses executveis>
:
[Return]

Exemplo:

// COMPILE ESTE PROGRAMA COM /N

ANNOUNCE MEUSYSTEMA
STATIC nSEGUNDOS
PROCEDURE PRINCIPAL( )
AEVAL (ASCOL (DIRECTORY (*.*) ) ,;
{ | Anomes | QOUT ( Anomes [1] ) } )
RETURN // termina o programa.
INIT PROCEDURE INICIAL( ) // rotin de inicializao
nSEGUNDOS := SECONDS( )
RETURN
EXIT PROCEDURE SAIDA( ) // rotina de saida do programa.
?

23
 Clipper 5.2 - Comandos e Funes

? TEMPO:
?? SECONDS() - nSEGUNDOS
RETURN // finaliza definitivamente

INDEX
Propsito: Criar um arquivo de ndice (.NTX) para um
determinado banco de dados (.DBF)
Sintaxe: INDEX ON <chave> TO <ndice> [UNIQUE]
[FOR <Condio>]

Exemplo:

USE CADASTRO
CLEAR
? INDEXANDO
INDEX ON NOME TO INDICE1 // indexa o arquivo pelo nome e
// cria o arquivo que conter o controle de
// ndice INDICE1.NTX
LOCAL VNOME:= SPACE(30)
@ 10,10 SAY DIGITE O NOME..: GET VNOME PICTURE @!
READ
? PESQUISANDO

SEEK VNOME
IF FOUND( ) // se exeistir
DISPLAY NOME, ENDEREO, CIDADE // mostra o registro
ENDIF
? REGISTRO NO ENCONTRADO

INPUT
Propsito: Realizar a entrada de dados de um expresso e
armazena a mesma em uma varivel.
Sintaxe: INPUT [<mensagem>] TO <varivel>

Exemplo:

LOCAL VAR
CELAR
INPUT DIGITE QUALQUER COISA..: TO VAR
? VOC DIGITOU...:
?? VAR

24
 Clipper 5.2 - Comandos e Funes

JOIN
Propsito: Criar um novo arquivo a partir de outros dois.
Sintaxe: JOIN WITH <2 arquivo > TO <novo arquivo >
FOR <condio > [FIELDS <lista de campos >]

Exemplo:

USE VENDAS // possui os campos cod_vend, cod_produto e

// valor
USE CADVENDEDOR new // possui os campos cod_vend, nome

JOIN WITH VENDAS TO COMISSAO FOR COD_VEND= VENDAS -> COD_VEND;

FILEDS COD_VEND, NOME, VALOR
// ser criado o arquivo COMISSO.DBF com os
registros
// lidos dos arquivos e a estrutura deste arquivo
ser
// os campos declarados aps o argumento FILEDS.

KEYBOARD
Propsito: Preencher o buffer do teclado com uma
expresso caractere.
Sintaxe: KEYBOARD <expresso caractere>

Exemplo:

KEYBOARD a
KEYBOARD CHR(65) // resultado: A
KEYBOARD CHR(130) // resultado:

LABEL FORM
Propsito: Executa a sada de etiquetas a partir de um arquivo
do formato. .LBL.
Sintaxe: LABEL FORM <arquivo.LBL> [TO
PRINTER]
[TO FILE]
[<ESCOPO>] [SAMPLE] [WHILE
<condio>]
[FOR<condio>]

Exemplo:

25
 Clipper 5.2 - Comandos e Funes

USE MALA INDEX NOME

LABEL FORM ETIQUETAS TO PRINTER SAMPLE // imprime as
etiquetas

LIST
Propsito: Lista os registros de arquivos de dados.
Sintaxe: LIST<lista exp> [TO PRINTER]
[TO FILE <arquivo>]
[<escopo>] [WHILE<condio>]
[FOR <condio>]
[OFF]

Exemplo:

USE MALA
LIST NOME, ENDEREO, CIDADE
LIST NOME, ENDEREO, CIDADE TO PRINTER // lista
impressa
LOCATE
Propsito: Localizar um registro dentro do banco de dados.
Sintaxe: LOCATE [<escopo>] FOR <condio> WHILE
<condio>

Exemplo:

USE FOLHA
LOCATE FOR NOME =Joo
IF FOUND() / / se existir
DISPLAY NOME, SALRIO, SETOR
ELSE
? no localizado
ENDIF

LOOP
Propsito: Saltar a execuo do programa para a linha DO
WHILE, ou FOR.
Sintaxe: LOOP

26
 Clipper 5.2 - Comandos e Funes

LOCAL
Propsito: Declarar uma varivel ou matriz como local.
Sintaxe: LOCAL<identificador> [:= <inicializador>],...

Exemplo:
LOCAL VAR,VAR2:= 10 // declara as variveis como
locais
? VAR2
LOCAL MATRIZ1 [30] [10] // declara a matriz como local

MEMVAR
Propsito: Declara nomes de variveis de memria Privadas
ou Pblicas.
Sintaxe: MEMVAR <lista de variveis>

Exemplo:

USE MALA
MEMVAR NOME // declara como sendo variveis de
memria
LOCAL NOME // declara como sendo uma varivel
de // memria local
:
? NOME // mostra o contedo da varivel
nome
? MALA NOME // mostra o contedo do campo nome

MENU TO
Propsito: Executa um menu de barras luminosas.
Sintaxe: MENU TO <varivel>

NOTE
Propsito: Cria uma linha de comentrio dentro do programa.
Sintaxe: NOTE <texto>

Exemplo:

NOTE esta linha no ser copilada, ou seja e apenas um

27
 Clipper 5.2 - Comandos e Funes

NOTE comentrio
? esta linha uma instruo que ser e apenas ser copilada
// esta linha tambm um comentrio
&& tambm um comentrios
/* estas linhas tambm so comentrios */

PACK
Propsito: Remove (apaga) fisicamente registros marcados
para deleo.
Sintaxe: PACK

Exemplo:

USE MALA INDE NOME

PACK // remove fisicamente do arquivo os registros
marcados

PARAMETER
Propsito: Criar variveis de memria para o recebimento
de parmetros.
Sintaxe: PARAMETER <lista de variveis>

Exemplo:

MENSAGEM (5, 5, OI ! )
FUNCTION MENSAGEM( )
PARAMETER LINHA, COLUNA, DADO //recebe valores da
rotina // que chamar esta funo
@ LINHA, COLUNA SAY DADO
RETURN NIL

PRIVATE
Propsito: Cria e inicializa variveis ou matrizes como
sendo privadas.
Sintaxe: PRIVATE <identificador>[:= <inicializador>],

28
 Clipper 5.2 - Comandos e Funes

Exemplo:

PRIVATE MATRIZ1 [20] [30] // declara que a matriz

// ser privada
PRIVATE A, B, C // declara que as variveis so
// privadas
A: =8 // atribui um valor a
// varivel
PRIVATE DATA: =DATE( ) // declara e inicializa a
// varivel privada

PROCEDURE
Propsito: Cria um procedure e seus parmetros.
Sintaxe: [STATIC] PROCEDURE <procedure> [(lista
parmetros)]
[FIELD <lista de campos>[IN
<apelidos>]]
[LOCAL
<identificador>
[:= <inicializador>],,,]
[MEMVAR <lista de identificadores>]
[STATIC <identificador>
[:
=
<inicializador],,,]
:
<instrues>
:
[RETURN]

Exemplo:

:
:
:
MENSAGEM(20,10,NO ENCONTRADO)
:
:
PROCEDURE MENSAGEM(LINHA, COLUNA, DADO)
@ LINHA, COLUNA SAY DADO
RETURN

29
 Clipper 5.2 - Comandos e Funes

PUBLIC
Propsito: Cria e inicializa variveis e matrizes pblicas.
Sintaxe: PUBLIC <identificador>[:= <inicializador>],,,

Exemplo:

PUBLIC MATRIZ3 [48] [10] // define a matriz como

publica
PUBLIC A, B, C // define as variveis como
pblicas
:
:
A: = 10 // inicializa a varivel

QUIT
Propsito: Termina a execuo do programa.
Sintaxe: QUIT

Exemplo:

:
RESPOSTA: =S
@ 20,10 SAY SAIR DESTE PROGRAMA...: GET RESPOSTA PICT
!
READ
IF RESPOSTA = S
QUIT / / termina o programa
ELSE
LOOP //sobe a execuo para linha de DO WHILE
ENDIF
:
:

READ
Propsito: Executar edio das variveis especificadas
pelo comando @.. SAY.. GET.
Sintaxe: READ[SAVE]

Exemplo:

30
 Clipper 5.2 - Comandos e Funes

LOCAL VNOME, VENDEREO, VSALRIO

VNOME: = SPACE(30)
VENDEREO: = SPACE(35)
VSALRIO: = 0.00
@ 10,10 SAY DIGITE O NOME...: GET VNOME PICT !
@ 12,10 SAY DIGITE O ENDEREO..: GET VENDEREO
@ 14,10 SAY DIGITE O SALRIO...: GET VSALRIO PICT @E 9,999.99
READ // executa e no final libera os tres GETs
pendentes

RECALL
Propsito: Recupera registros marcados para a eliminao
atravs do comando DELETE.
Sintaxe: RECALL <escopo>
[WHILE<condio>]
[FOR<condio>]

Exemplo:
USE MALA
GOTO 3
IF DELETED( ) // se o registro se encontra marcado
// (deletado)
RECALL // recupere
ENDIF

REINDEX
Propsito: Recriar os arquivos de ndices abertos nas reas
de trabalho corrente.
Sintaxe: REINDEX
[EVAL<Condio>]
[EVERY<nRegistro>]

Exemplo:
USE MALA INDEX INOME, ICOD
REINDEX / / reorganiza os
arquivos INOME, ICOD
:
:

31
 Clipper 5.2 - Comandos e Funes

RELEASE
Propsito: Libera da memria vrias Pblicas e
Privadas.
Sintaxe: RELEASE <lista de variveis>
[ALL [LIKE / EXCEPT <eskeleto>] ]

Exemplo: RELEASE ALL LIKE V* / / libera

todas as variveis que comeam com a letra V
RELEASE VNOME / / libera a varivel
VNOME

RENAME
Propsito: Renomear um arquivo

Sintaxe: RENAME <nome atual> TO <novo

nome>

Exemplo:
RENAME ARQ.TXT TO ARQ_NOVO.TXT
/ / troca o nome do arquivo
RENAME MALA.DBF TO POSTAL.DBF

REPLACE
Propsito: Substituir o contedo de um campo
por uma expresso.
Sintaxe: REPLACE <campo> WITH
<expesso> [FOR <Condio>]
[WHILE <condio>]

Exemplo:
USE MALA INDEX ICOD
APPEND BLANK / / cria um
registro em branco
REPLACE COD WITH 23, NOME WITH
JOO / / preenche
os campos :
:

REPORT FORM

32
 Clipper 5.2 - Comandos e Funes

Propsito: Realizar a sada de um relatrio para

console ou impressora.

Sintaxe: REPORT FORM <nome do arquivo>

[<escopo>] [TO PRINTER]
[TO FILE <nome>] [FOR <Condio>]
[WHILE <Condio>]
[PLAIN] [HEADING <cabealho>]
[NOEJECT] [SUMMARY]

Exemplo:
USE FOLHA INDEX INOME
REPORT FORM REL1 TO PRINTER / /
relatrio impresso dos registros
REPORT FORM REL1 TO PRINTER HEADING
ALT CONTROL - SETOR 4 ;
FOR SETOR = 4 / / imprime somente os
funcionrios do setor 4

REQUEST
Propsito: Declara mdulos a serm chamados.

Sintaxe: <mdulos>

RESTORE
Propsito: Carregar variveis gravadas de um
arquivo (.mem) do disco.

Sintaxe: RESTORE <nome do arquivo>

[ADDITIVE]

Exemplo:
A: =4
NOME: = JOO
SAVE TO ARQVAR / / salva todas as
variveis de memria no arquivo ARQVAR.MEM
RELEASE ALL / / apaga todas as
variveis

33
 Clipper 5.2 - Comandos e Funes

RESTORE FROM ARQVAR / / restaura as

variveis do arquivo ARQVAR.MEM
?A
? NOME
RESTORE SCREEN
Propsito: Restaurar no vdeo uma tela salva anteriormente.
Sintaxe: RESTORE SCREEN [FROM <tela>]

Exemplo:

CLEAR
@ 10,10 TO 23,79
@ 15,15 SAY ESTA TELA SERA SALVA
SAVE SCREEN TO IMAGEM
INKEY(0) / / aguarda uma tecla
CLEAR / / limpa a tela
RESTORE SCREEN FROM IMAGEM // recupera a tela
// gravada na varivel imagem

RETURN
Propsito: Terminar a execuo de uma procedure,
programa ou funo do usurio.
Sintaxe: RETURN <valor>

Exemplo:

? SITUAO (3,7,8,10)
FUNCTION SITUAO(N1, N2, N3, N4)
MDIA : = (N1+N2+N3+N4)/4
IF MDIA = >6
RETURN APROVADO
ELSE
RETURN REPROVADO
ENDIF

RUN
Propsito: Executar um programa ou comando do
sistema operacional.
Sintaxe: RUN <descrio>

Exemplo:
? FAVOR ATUALIZAR A HORA DO SISTEMA!.

34
 Clipper 5.2 - Comandos e Funes

? FAVOR ATUALIZAR A DATA DO SISTEMA!.

! DATE

SAVE
Propsito: Salvar em um arquivo no disco, variveis
de memria e seus contedos.
Sintaxe: SAVE TO <arquivo> [ALL[LIKE|EXCEPT
<esqueleto>]]

Exemplo:

A:=9
VNOME := JOAO
VENDE:= RUA DAS CAMELIAS 44
SAVE TO ARQVAR2 ALL LIKE V* // salva: VNOME E VENDE no
arquivo
// ARQVAR2.MEM
SAVE TO ARQVAR // salva todas as variveis no
arquivo
// ARQVAR.MEM

SAVE SCREEN
Propsito: Salvar a tela atual no buffer ou em uma varivel
Sintaxe: SAVE CREEN [TO <tela>]

SEEK
Propsito: Pesquisar nos registros do banco de dados indexado
uma chave especificada.
Sintaxe: SEEK <chave>

Exemplo:

USE MALA INDEX INOME

SEEK JOAO // Equivalente A: DBSEEK (JOAO)
IF FOUND( ) // se existir
DISPLAY NOME, ENDERECO, CIDADE
ELSE
? NAO ENCONTRADO
ENDIF

35
 Clipper 5.2 - Comandos e Funes

SELECT
Propsito: Seleciona uma rea de trabalho.
Sintaxe: SELECT <Nome da rea>|<apelido>

Exemplo:

USE MALA INDEX INOME

SELECT 0 // seleciona o prxima rea disponvel
USE FOLHA INDEX CODF
LIST NOME, SALARIO, SETOR, COD
SELECT MALA // selecina o arquivo rea MALA
LIST COD, CLIENTE, CIDADE

LIST MALA CLEINTE, FOLHA SALARIO // lista registro de

// outra rea

SET ALTERNATE
Propsito: Realiza a sada do console para um arquivo (ASCII) a
ser gravado no disco.
Sintaxe: SET ALTERNATE TO <arquivo> |[ON]|[OFF]|<(.T.)/
(.F.)>

Exemplo:
SET ALTERNATE TO ARQSAIDA.TXT
AET ALTERNATE ON // lida a sada para o arquivo
USE MALA INDEX ICEP
LIST CLIENTE, CIDADE, ESTADO
SET ALTERNATE OFF // suspende a sada para o arquivo
CLOSE ALTERNATE // fecha a operao com o arquivo
// alternativo.
TYPE ARQSAID.TXT

SET BELL
Propsito: Controla a sada sonora na operao de entrada de
dados.
Sintaxe: SET BELL ON|OFF|<(.T.)/(.F.)>

SET CENTURY

36
 Clipper 5.2 - Comandos e Funes

Propsito: Possibilita configurar os dgitos dos sculos das datas.

Sintaxe: SET CENTURY ON|OFF|<(.T.)/(.F.)>

Exemplo:

SET DATE TO BRIT // escolher o formato da data

? date( ) // resultado: DD/MM/AA
SET CENTURY ON // configura as datas para quatro
// digitos no ANO
? date( ) // resultado: DD/MM/AAAA
SET CENTURY OFF // retorna ao padro
SET COLOR
Propsito: Definir as cores que sero exibidas na tela.
Sintaxe: SET COLOR TO [<padro>,
<destaque>, <borda>, <fundo>, <no
selecionado>] | <string>

Exemplo:

VNOME := SPACE(30)
PADRAO1 := W/N, N/N
PADRAO2 := B/N, N/W
SET COLOR TO (PADRAO1)
@ 10,10 SAY DIGITE O NOME...: GET VNOME PICTURE @!
SET COLOR TO (PADRAO2)
READ
SET COLOR TO W+,B
? VOCE DIGITOU O NOME...:
?? VNOME

SET CONFIRM
Propsito: Configurar a confirmao de entrada de dados de
GETs.
Sintaxe: SET CONFIRM ON|OFF|<(.T.)/(.F.)>

Exemplo:

CLEAR
LOCAL VNOME := SPACE(15)
@ 10,10 SAY DIGITE O SE NOME POR COMPLETO...: GET VNOME
READ
SET CONFIRM ON // liga a confirmao
@ 20,10 SAY DIGITE O SEU NOME POR COMPLETO...: GET VNOME

37
 Clipper 5.2 - Comandos e Funes

READ

SET CONSOLE
Propsito: Configurar a sada do console
Sintaxe: SET CONSOLE ON|OFF

SET CURSOR
Propsito: Configurar o formato da edio de campos ou
variveis do tipo Data.
Sintaxe: SET DATE [TO] <nome>

Exemplo:

SET DATE TO ITALIAN

? A DATA DE HOJE E....:
?? DATE( )

SET DATE TO GERMAN

VDATA:=CTOD ( / / )
@ 10,10 SAY DIGITE QUALQUER DATA...: GET VDATA
READ

SET DATE TO ANSY

? Mudando o formato da data
? A data que voc digitou foi...:
?? VDATA

SET DECIMALS
Propsito: Configurar a quantidade de casas decimais exibidas.
Sintaxe: SET DECIMALS <quantidade de decimais>

Exemplo:

SET FIXED ON
SET DECIMALS TO 2 // 2 casas decimais (o padro)

? 10/3
? 20/7

38
 Clipper 5.2 - Comandos e Funes

SET DECIMALS TO 5

? 10/3
? 20/7

SET DEFAULT
Propsito: Configurar a unidade de disco em que os arquivos
sero processados.
Sintaxe: SET DEFAULT TO <disco\diretrio\ , , ,>

Exemplo:

SET DEFAULT TO A: // muda a leitura de arquivo para o

diskete
SET DEFAULT TO C:\CLIPPER5 // muda para a unidade C no
// diretrio \ CLIPPER5

SET DELETED
Propsto: Ativar ou desativar os registros marcados
para eliminao.
Sintaxe: SET DELETED ON|OFF|(.T.)/(.F.)

SET DELIMITERS
Propsito: Ativar ou destivar a edio de caracteres que
sero utilizados como delimitadores de GETs.
Sintaxe: SET DELIMITERS ON|OFF|(.T.)/(.F.)

SET DELIMITER TO
Propsito: Define dlimitadores para edies GETs.
Sintaxe: SET DELIMITERS TO <delimitadores> [DEFAULT]

Exemplo:

CLEAR
VNOME:= VENDERECO:= SPACE(30)
SET DELIMITER ON // liga a edio de delimitadores
SET DELIMITER TO :: // estabelece novos delimitadores
@ 10,10 SAY DIGITE O NOME...: GET VNOME

39
 Clipper 5.2 - Comandos e Funes

SET DELIMITER TO [] // muda os delimitadores novomente

@ 12,10 SAY DIGITE O ENDERECO..: GET VENDERECO
READ

SET DEVICE
Propsito: Configurar a sada dos comandos @. . . SAY.
Sintaxe: SET DEVICE TO SCREEN|PRINTER

Exemplo:

CLEAR
@ 10,10 SAY LIGUE A IMPRESSORA E PRESS. QQ. TECLA\\
INKEY(0) // aguarda qualquer tecla
SET DEVICE TO PRINTER // liga a sada (@.. say) para a
// impressora
@ 20,15 SAY SERA IMPRESSO NA LINHA 20, COLUNA 15 DO PAPEL
SET DEVICE TO SCREEN // retorna a sada para a tela

SET EPOCH
Propsito: Permite um maior controle das datas que no possuem
quatro dgitos no ano.
Sintaxe: SET EPOCH <ano>

Exemplo:

SET DATE FORMAT TO DD/MM/YYYY // formata o ano com 4

dgitos

? CTOD (04/05/78) // resultado: 04/05/1978

? CTOD (04/05/92) // resultado: 04/05/1992

SET EPOCH TO 1980

? CTOD (04/05/78) // resultado: 04/05/2078 // data
menor?

? CTOD (04/05/92) // resultado: 04/05/1992

SET ESCAPE
Propsito: Ativar ou desativar a sada de um GET atravs da tecla
<ESC>.
Sintaxe: SET ESCAPE ON|OFF|(.T.)/(.F.)

40
 Clipper 5.2 - Comandos e Funes

SET EXACT
Propsito: Determina se as comparaes entre expresses
caracteres devem ser totalmente iguais ou parciais.
Sintaxe: SET EXACT ON|OFF|(.T.)/(.F.)

Exemplo:

// .T. (sim) .F. (no)

SET EXACT OFF // padro

? AB1 = AB1CD // RESULTADO: .T.

? AB1 = AB1 // RESULTADO: .T.

SET EXACT ON
? AB1 = AB1CD // RESULTADO: .F.

? AB1 = AB1 // RESULTADO: .T.

SET EXCLUSIVE
Propsito: Determina se a abertura de arquivos para utilizao
ser de modo exclusivo ou compartilhado.
Sintaxe: SET EXCLUSICE ON|OFF|(.T.)/(.F.)

SET FILTER
Propsito: Cria filtros lgicos que escondem registros que no
atendem a condio do filtro criado.
Sinatxe: SET FILTER TO <condio>

Exemplo:

USE MALA
SET FILTER TO NOME = A // somente os nomes que comeam
// com a letra A
LISTA NOME, ENDEREO
SET FILTER TO // tira o filtro, volta ao
normal
LISTA NOME, ENDEREO

SET FIXED

41
 Clipper 5.2 - Comandos e Funes

Propsito: Determina a sada de casas decimais de todos os

nmeros.
Sintaxe: SET FIXED ON|OFF(.T.)/(.F.)

SET FORMAT
Propsito: Executa um arquivo de formato de tela quando um
READ avaliado.
Sintaxe: SET FORMAT <rotina>

Exemplo:

VNOME:=SPACE(40)
VENDERECO:=SPACE(30)
SET FORMAT TO TELA // seta o formato para uma procedure
de
// nome TELA
READ
PROCEDURE TELA
@ 10,10 SAY NOME......: GET VNOME
@ 12,10 SAY ENDEREO..: GET VEDERECO
RETURN

SET FUNCTION
Propsito: Reprogramar uma tecla de funo.
Sintaxe: SET FUNCTION <tecla> TO <expresso caractere>

Exemplo:

// reprogramando as teclas F2 e F3
SET FUNCTION 2 TO GORKI STARLIN+CHR(13) // CHR(13) =
<ENTER>
SET FUNCTION 3 TO EDITORA ERICA
? PRESS. <F3> OU <F2>
ACCEPT DIGITE ALGO..: TO TESTE

SET INDEX
Propsito: Abrir arquivos de ndices para um arquivo de dados
aberto na rea de trabalho corrente.
Sintaxe: SET INDEX TO <lista de arquivos de ndices>

Exemplo:

42
 Clipper 5.2 - Comandos e Funes

USE MALA
SET INDEX TO INOME, ICEP // organizado pelo ndice NOME
LIST NOME, ENDERECO, CIDADE
SET ORDER TO 2 // ICEP, NOME
LIST NOME, ENDERECO, CIADE
SET INDEX TO // fecha todos os ndices

SET INTENSITY
Propsito: Determina como os campos de edio GETs e
PROMPTs sero exibidos.
Sintaxe: SET INTENSITY ON|OFF|(.T.)/(.F.)

SET KEY
Propsito: Determina uma chamada de uma rotina atravs de uma
tecla.
Sintaxe: SET KEY <nmero da tecla> TO <rotina>
Exemplo:

CLEAR
SET KEY -2 TO TERMINA( ) // liga a tecla <f2> com a
funo
// TERMINA( )
VNOME:=SPACE(30)
@ 23,10 SAY <F2> TERMINA O PROGRAMA
@ 10,10 SAY DIGITE O NOME...: GET VNOME
READ
FUNCTION TERMINA( )
CANCEL
RETURN

SET MARGIN
Propsito: Estabelecer o tamanho da margem esquerda para sada
para a impressora.
Sintaxe: SET MARGIN TO <tamanho>

Exemplo:

USE MALA INDEX INOME

SET MARGIN TO 10
LIST NOME, ENDERECO, CIDADE TO RPINTER

43
 Clipper 5.2 - Comandos e Funes

SET MESSAGE
Propsito: Especifica qual linha do vdeo ser utilizada para exibir
as mensagens sadas pelo comando Prompt.
Sintaxe: SET MESSAGE TO <linha> (CENTER/CENTRE)

Exemplo:

CLEAR
SET MESSAGE TO 23 CENTER
@ 10,10 PROMPT 1 - CADASTRAR MESSAGE CADASTRAMENTO....:
@ 12,10 PROMPT 2 - PESQUISA MESSAGE PESQUISANDO......:
MENU TO VAR
:
:
:

SET ORDER
Propsito: Estabelecer qual dos arquivos de ndices abertos ser o
Master Index.
Sintaxe: SET ORDER TO <nmero do ndice>.

Exemplo:

USE MALA INDEX ICEP, INOME

LIST NOME, ENDERECO, CIDADE, CEP // lista em ordem de NOMES
SET ORDER TO 2 // muda o arquivo de ndice de
controle
LIST NOME, ENDERECO, CIDADE, CEP // lista em ordem de CEP

SET PATH
Propsito: Especificar uma direo de disco ou diretrio que ser
pesquisada pelo Clipper quando este tentar abrir arquivos e no os encontrar.
Sintaxe: SET PATH <lista de direes>

Exemplo:

SET PATH TO C:\FOLHA;C:\FATURA // assinala dois caminhos

44
 Clipper 5.2 - Comandos e Funes

// opcionais

SET PRINTER
Propsito: Especificar a sada do console para a impressora ou
para um arquivo.
Sintaxe: SET PRINTER ON|OFF|(.T.)/(.F.)
SET PRINTER TO <arquivo>
SET PRINTER TO <device>

Exemplo:

SET PRINTER OFF

? DATE( ), TIME( )
SET PRINTER ON // liga a sada da console para impressora
? DATE( ), TIME( )

SET PROCEDURE
Propsito: Abrir um arquivo de procedures e compilar suas
procedures, colocando-as dentro do programa .OBJ a ser gerado.
Sinatxe: SET PROCEDURE TO < nome do arquivo>
SET RELATION
Propsito: Estabelecer relacionamentos entre reas de trabalho.
Sinatxe: SET RELATION TO [<campo>|<registro> INTO
<rea>], TO. . .
[ADDITIVE]

Exemplo:

USE CURSOS.DBF INDEX CODCUR.NTX

USE ALUNOS.DBF NEW
SET RELATION INTO CURSO TO CURSOS // estabelece a
relao

SET SCOREBOARD
Propsito: Ligar ou desligar a exebio das mansagens emitidas
por READ e MEMOEDIT( ).
Sintaxe: SET SCOREBOARD ON|OFF|<.F.>/<.T.>

45
 Clipper 5.2 - Comandos e Funes

SET SOFTSEEK
Propsito: Ligar ou desligar a pesquisa relativa do comando
SEEK.
Sintaxe: SET SOFTSEEK ON|OFF|(.T.)/(.F.)

SET TYPEAHEAD
Propsito: Determina o tamanho do buffer do teclado.
Sintaxe: SET TYPEAHEAD TO <valor do tamanho>

SET UNIQUE
Propsito: Ligar ou deligar a incluso de chaves duplicadas em um
ndice.
Sintaxe: SET UNIQUE ON|OFF|(.T.)/(.F.)

SET WRAP
Propsito: Liga ou desliga a rolagem da barra entre extremos do
menu mantado pelo comando @. . . PROMPT.
Sintaxe: SET WRAP ON|OFF|(.T.)/(.F.)

SKIP
Propsito: Saltar o ponteiro entre os registros do banco de dados.
Sintaxe: SKIP <salto> [ALIAS >nome da rea>]

Exemplo:

USE MALA
GO 1
SKIP 2 // salta para o registro 3
SKIP 4 // salta para o registro 7
SKIP -3 // salta para o registro 4

SORT
Propsito: Criar um arquivo de dados (.DBF) Classificado.
Sintaxe: SORT TO <arquivo> ON <campo> [/[A][D][C]],
<campo2>. . .
[<escopo>] [WHILE <condio>][FOR <condio>]

46
 Clipper 5.2 - Comandos e Funes

Exemplo:

USE MALA
SORT TO MALA2 ON NOME // classificara os registros pelo
campo
// NOME
USE MALA2
LIST NOME, ENDERECO, CIDADE

STATIC
Propsito: Declara uma varivel ou matriz como esttica.
Sintaxe: STATIC <identificador> [:=<inicializador>]

Exemplo:

FUNCTION SENHA
STATIC VCONTROLE := 6 // declara a varivel como esttica
:
:
RETURN

STORE
Propsito: Atribuir valores a variveis.
Sintaxe: STORE <valor> TO <variveis>
Exemplo:

STORE 123.33 TO VAR1 // equivalente a VA1:=123.33

? VAR1 // mostra o valor de VAR1
VAR1:=VAR2:=4848
? VAR1,VAR2 // resultado: 4848 4848

SUM
Propsito: Realizar o somatrio de expresses.
Sintaxe: SUM <lista de expresses> TO <lista de variveis>
[<escopo>] [WHILE <condio>] [FOR <condio>]

Exemplo:

USE FOLHA
SUM SALARIO TO TOTALSAL FOR SETOR = 1 // tolaliza o salario

47
 Clipper 5.2 - Comandos e Funes

// dos funcionrios do setor 1

@ 10,10 SAY RESULTADO...:+STR (TOTALSAL)

TEXT
Propsito: Permite a exibio de um bloco de textos no vdeo, em
um arquivo ou na impressora.
Sintaxe: TEXT [TO PRINTER][TO FILE <arquivo.ext>
<texto>...
ENDTEXT

Exemplo:

TEXT // abre o bloco de texto

----------------------
ISTO E APENAS UM TEXTO
----------------------

ENDTEXT // finaliza o bloco de texto

TOTAL
Propsito: Cria um arquivo (.DBF), contendo valores totalizados
de outros arquivos de dados.
Sintaxe: TOTAL ON <campo> TO <arquivo> [<escopo>]
[FIELDS <lista campo> [FOR <condio>]
TYPE
Propsito: Mostrar o contedo de um arquivo texto gravado em
disco.
Sintaxe: TYPE <arquivo> [TO PRINTER] [TO FILE <arquivo
n2>

Exemplo:

TYPE MENU.PRG TO PRINTER // imprime a listagem do

programa
// MENU.PRG

UNLOCK
Propsito: Liberar travamentos de arquivo ou registro em
ambiente de Rede Local.

48
 Clipper 5.2 - Comandos e Funes

Sintaxe: UNLOCK[ALL]

Exemplo:

USE MALA SHARED

:
:
IF FLOCK( ) // trava todos os registros
REPLACE SALARIO WITH VSAL*INDICE ALL
UNLOCK // libera o travamento pendente
ELSE
? NAO POSSIVEL PROCESSAR OS REGISTROS NO
MOMENTO
ENDIF

UPDATE
Propsito: Atualizar o arquivo aberto na rea corrente a partir
de outro arquivo de dados aberto em outra rea de
trabalho.
Sintaxe: UPDATE FROM <rea|arquivo> ON <campo chave>
REPLACE <campo> WITH <expresso>,
<campo2> WITH ,<expresso2>,,,
[RANDOM]

USE
Propsito: Abrir um arquivo de dados (.DBF) e
opcionalmente arquivo a este associado.
Sintaxe: USE <arquivo.dbf> [index <lista de arquivo de ndice>]
[ALIAS <apelido>][EXCLUSIVE/SHARED]
[NEW] [READONLY]
VIA < C driver>

Exemplo:

USE MALA INDEX ICOD, INOME

USE MALA READONLY // somente para leitura
USE FOLHA INDEX CODIFO NEW // abre o arquivo na prxima
rea
// disponvel.

49
 Clipper 5.2 - Comandos e Funes

WAIT
Propsito: Determinar uma pausa na execuo do programa at
que uma tecla seja pressionada.
Sintaxe: WAIT [<mensagem>] TO [<varivel>]

Exemplo:

A:=4
WAIT Press. qualquer tecla para continuar
B:=5
? A+B

ZAP
Propsito: Excluir os registros do arquivo aberto na rea corrente.
Sintaxe: ZAP

Exemplo:

USE MALA INDEX ICOD, ICEP

ZAP // elimina todos os registros.

50