SCAPMC28 (690)    ROUTINE (9.8)