YSCLENV (1044)    ROUTINE (9.8)