IBDF18E1 (1122)    ROUTINE (9.8)