!
set pause on
!
!	Apresentacao de informacao
!
displ all datab fichas2;
for data_nasc > 1-jan-48;
fields %4,%2
displ all datab fichas2;
for data_nasc > 1-jan-48;
fields %4,%2
!