DGPMBSP3 (479)    ROUTINE (9.8)