IBDFC2B (1110)    ROUTINE (9.8)