IBDF1BA (1103)    ROUTINE (9.8)