OREOR0 (428)    ROUTINE (9.8)