* Ouvertures des fichiers
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture criture

   W_End="FAUX"

   EXECUTE 'SSELECT CONTRAT AVEC 1 = "02" AND AVEC 20 = "" AND AVEC 22 # ""'

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""
      BEGIN CASE
         CASE ENR_CONTRAT<22>="0" AND ENR_CONTRAT<23>="42020"
            ENR_CONTRAT<20>="02001"
            ENR_CONTRAT<21>=ENR_CONTRAT<15>
            ENR_CONTRAT<22>=""
         CASE ENR_CONTRAT<22>="1" AND ENR_CONTRAT<23>="42200"
            ENR_CONTRAT<20>="02002"
            ENR_CONTRAT<21>=ENR_CONTRAT<15>
            ENR_CONTRAT<22>=""
         CASE ENR_CONTRAT<22>="2" AND ENR_CONTRAT<23>="43120"
            ENR_CONTRAT<20>="02003"
            ENR_CONTRAT<21>=ENR_CONTRAT<15>
            ENR_CONTRAT<22>=""
         CASE ENR_CONTRAT<22>="3" AND ENR_CONTRAT<23>="43520"
            ENR_CONTRAT<20>="02004"
            ENR_CONTRAT<21>=ENR_CONTRAT<15>
            ENR_CONTRAT<22>=""
      END CASE

      WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

   REPEAT


STOP