Trigger code: write of pur-clerk

{trigs/wraud.i pur-clerk}