EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.ORGPRISECHARGE,CLE ELSE GOTO 10
D=1
PARAMEDIT5="NON"
LOOP
 PARAMEDIT=EXTRACT(ENR,40,D)
 UNTIL PARAMEDIT="7" OR PARAMEDIT="" DO
  IF PARAMEDIT="5" THEN PARAMEDIT5="OUI"
  D=D+1
REPEAT
IF PARAMEDIT5="NON" AND PARAMEDIT="7" THEN
 ENR=INSERT(ENR,40,D;"5")
 WRITE ENR ON F.ORGPRISECHARGE,CLE
END
GOTO 10
