*LISTING DES ENTREPRISES
PAGE=1
NB=0
NBT=0
RECLIST=0001
CLEAR
*@ 10,10 SAY "FILTRE SUR CODE POSTAL ?" GET RECLIST
*READ
USE &RECFILE INDEX &INDNDX
*SET FILTER TO ACTETP="MAIL"
GO TOP
SET PRINTER ON
?? CHR(27)+CHR(15)
DO WHILE .NOT. EOF()
IF PROW()<=3
? "                                   "+RECFILE+"            PAGE Nø "+STR(PAGE,4)
?
? " ENTREPRISE                                   ADRESSE                                                  VILLE "
?
ENDI
? NOMETP+"  "+AD1ETP+"  "+AD2ETP+"  "+CPOETP+"  "+rtrim(VILETP)
NB=NB+1
NBT=NBT+1
IF PROW() > 56 
? "            "+STR(NB,2,0)+"  SUR CETTE PAGE  "+STR(NBT,4,0) +" AU TOTAL"
EJECT
PAGE=PAGE+1
NB=0
ENDI
SKIP
ENDDO
? "             "+STR(NB,2,0)+"    SUR CETTE DERNIERE PAGE  "+STR(NBT,4,0)+"  AU TOTAL"
SET PRINT OFF
EJECT
CLOSE DATA
RETU