EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","VOC" TO F.VOC ELSE STOP
EXECUTE "SELECT PRC"
10 READNEXT CLE ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"PQ")
ENRVOC=REPLACE(ENRVOC,2;"(PRC")
WRITE ENRVOC ON F.VOC,CLE
GOTO 10
