3 calls to
UPDO3D

RCOMPT
WRITET
WRITET