***********************************
*
* BASIC + CATALOG DES PR
* MISE EN VOC DES PRC
*
***********************************
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 PRMOUL ':CLE
	  EXECUTE 'CATALOG PRMOUL ':CLE:' DIRECT FORCE'
     END
REPEAT
