GMRVED3 (1089)    ROUTINE (9.8)