IBDFC2 (1116)    ROUTINE (9.8)