IBDFQB (1112)    ROUTINE (9.8)