***********************************
*
* 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  
	  READ ENR_VOC FROM F.VOC,CLE ELSE ENR_VOC=""
          ENR_VOC<1>="PQ"
	  ENR_VOC<2>="(PRC"
	  WRITE ENR_VOC ON F.VOC,CLE
     END
REPEAT
