SCAPMC7 (697)    ROUTINE (9.8)