GMRAHLP0 (824)    ROUTINE (9.8)