IBDF18E (1121)    ROUTINE (9.8)