!
set pause on
!
!	Inclusao de informacao
!
close teste
append from bag:paises.rec to paises
append from bag:fichas2.rec to fichas2
append from bag:teste.rec to teste
!
!
!	Pesquiza de informacao
!
search datab fichas2 for data_nasc > 1-jan-48
search datab paises for %2 = 'portugal'
!
!	Apresentacao de informacao
!
display datab paises
display datab fichas2
!
display all datab paises
display all datab paises to paises.lis
display all datab fichas2
display all datab fichas2 to fichas2.lis
!
displ all datab fichas2;
for data_nasc > 1-jan-48;
fields %4,%2
!
display all datab fichas2 sort on data_nasc a
display all datab fichas2 sort on data_nasc d
!
use fichas2
define display
1
2,20,t,l
4,15,t,l

display all
define display standard
!
!	Modificacao de informacao
!
use fichas2 update
edit 1000:1002
edit from bag:paises.rec to paises
replace from bag:paises.rec to paises
!
zero datab fichas2
y
use fichas2 update
displ all
append from bag:fichas2.rec to fichas2
!
!	Indexacao de campos
!
index database fichas2 on field data_nasc
displ all datab fichas2 for data_nasc > 1-jan-48 fields %4,%2
noindex database fichas2 on field data_nasc
!
!	Ordenacao de informacao
!
search datab fichas2 all
sort datab fichas2 on data_nasc
display datab fichas2
!