IBDF9A3 (1108)    ROUTINE (9.8)