OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP


      READ ENR_CONTRAT FROM F.CONTRAT,"00010007" ELSE PRINT "Erreur"


STOP

* SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF
* PRINTER ON