ZTMS3 (342)    ROUTINE (9.8)