IBDF6 (1106)    ROUTINE (9.8)