XUTMDQ1 (242)    ROUTINE (9.8)