Theo's suggestion is good.
If you want an alternative way, the first PCR (for ESG * and WT 1000) could use operations ADDWT * followed by ELIMI * and ADDWT xxxx
Then, the second PCR would need to be for ESG * and WT xxxx (and would do the rounding).
P.S. : Earlier, I had suggested to add operation ZERO=&V001 at the end of Theo's second PCR but I had failed to notice that his PCR was called by function ACTIO. That suggestion has been removed.
This message was edited by Rémi Corriveau (see Post Scriptum)