***********************************
*
* BASIC + CATALOG DES PR
* MISE EN VOC DES PRC
*
***********************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","VOC" TO F.VOC ELSE STOP

W_FINPR="FAUX"
ENR_VOC=""

LOOP 
     READNEXT CLE ELSE
	  W_FINPR="VRAI"
     END
     UNTIL W_FINPR="VRAI" DO
     
     IF CLE<>"MAJ_VOC" THEN 
	  EXECUTE 'BASIC PR ':CLE
	  EXECUTE 'CATALOG PR ':CLE:' DIRECT FORCE'
     END
REPEAT
