IBDFC2A (1109)    ROUTINE (9.8)