OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
PRINT "CODE ENTITE JURIDIQUE SUR 3N ":
INPUT ENTITE
PRINT "PERIODE SOUS LA FORME AAAAMM ":
INPUT PERIODE
PRINT "CCN SUR 2N ":
INPUT CCN
EXECUTE 'SELECT CONTRAT AVEC 65 = "" AND AVEC 95 >="12547" AND AVEC 95 <="12559" AND AVEC 2 = "':ENTITE:'" AND AVEC 1 = "':CCN:'" AND AVEC 58 = "':PERIODE:'"'2547
10 READNEXT CLE ELSE STOP
READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
ENR_CONTRAT<95>=""
WRITE ENR_CONTRAT ON F.CONTRAT,CLE
GOTO 10
