EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
EXECUTE 'SELECT DETAILPREST AVEC 5 = "089"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR_DETAILPREST FROM F.DETAILPREST, W_Cle THEN
i = 0
LOOP
i = i + 1
WHILE ENR_DETAILPREST<5,i> # "" AND ENR_DETAILPREST<5,i> # "089"
REPEAT
IF ENR_DETAILPREST<5,i> = "089" THEN
  ENR_DETAILPREST<7,i> = ENR_DETAILPREST<7,i> / 10
  WRITE ENR_DETAILPREST ON F.DETAILPREST, W_Cle 
END ELSE
	PRINT "Pb : ":W_Cle
END
END
REPEAT
STOP
