*****************************************
* RECUPERATION ACCORD CAISSE 50 - ASMAD *
*****************************************

* OUVERTURE FICHIER
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP

EXECUTE 'SSELECT ACCORD AVEC 1 = "050" AND AVEC 11 = ""'

W_REQVIDE=0
LOOP
     READNEXT CLE ELSE W_REQVIDE=1
     UNTIL W_REQVIDE=1 DO

     READ ENR_ACCORD FROM F.ACCORD,CLE ELSE ENR_ACCORD=""

     I=1
     LOOP
	  UNTIL ENR_ACCORD<11,I><>"" DO

          ENR_ACCORD=DELETE(ENR_ACCORD,11,I)
          ENR_ACCORD=DELETE(ENR_ACCORD,12,I)
          ENR_ACCORD=DELETE(ENR_ACCORD,13,I)
          I=I-1
     REPEAT

     WRITE ENR_ACCORD ON F.ACCORD,CLE
REPEAT

STOP
