YSCLTST1 (1048)    ROUTINE (9.8)