OPEN "","ACCORD" TO F.ACCORD ELSE STOP
EXECUTE 'SELECT ACCORD'
10 READNEXT CLE ELSE STOP
READ ENRACCORD FROM F.ACCORD,CLE ELSE GOTO 10
ENRACCORD<18>=""
ENRACCORD<19>=""
ENRACCORD<20>=""
WRITE ENRACCORD ON F.ACCORD,CLE
GOTO 10
