*Ouverture d'un fichier
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "DICT", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "DICT", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP

READ ENR_CONTRAT FROM F.CONTRAT,"CapImpContratMv15" ELSE STOP
LA1=ENR_CONTRAT<2>
LA2=ENR_CONTRAT<4>

READ ENR_CONTRAT FROM F.CONTRAT,"ComportementMv15" ELSE STOP
LB1=ENR_CONTRAT<2>
LB2=ENR_CONTRAT<4>

READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,"CapImpAidantMv15" ELSE STOP
LC1=ENR_CIVILAIDANT<2>
LC2=ENR_CIVILAIDANT<4>

READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,"ComportementMv15" ELSE STOP
LD1=ENR_CIVILAIDANT<2>
LD2=ENR_CIVILAIDANT<4>

FOR i=16 TO 99

L=LA1[1,37]:i:LA1[40,5]
ENR_CONTRAT<2>=L
L=LA2[1,9]:i
ENR_CONTRAT<4>=L
WRITE ENR_CONTRAT ON F.CONTRAT,"CapImpContratMv":i

L=LB1[1,37]:i:LB1[40,5]
ENR_CONTRAT<2>=L
L=LB2[1,13]:i
ENR_CONTRAT<4>=L
WRITE ENR_CONTRAT ON F.CONTRAT,"ComportementMv":i

L=LC1[1,26]:i:LC1[29,5]
ENR_CIVILAIDANT<2>=L
L=LC2[1,9]:i
ENR_CIVILAIDANT<4>=L
WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,"CapImpAidantMv":i

L=LD1[1,26]:i:LD1[29,5]
ENR_CIVILAIDANT<2>=L
L=LD2[1,13]:i
ENR_CIVILAIDANT<4>=L
WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,"ComportementMv":i

NEXT i

