EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE PRINT "OUVERTURE ORGPRISECHARGE" ;* en lecture criture

   EXECUTE 'SSELECT ORGPRISECHARGE'

   W_Fini="FAUX"
   LOOP 
      READNEXT W_Cle ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_ORGPRISECHARGE FROM F.ORGPRISECHARGE,W_Cle ELSE ENR_ORGPRISECHARGE=""

      ENR_ORGPRISECHARGE<53>="1"

      WRITE ENR_ORGPRISECHARGE ON F.ORGPRISECHARGE,W_Cle
   REPEAT
STOP
