SDOQMP2 (1022)    ROUTINE (9.8)