YSCLTST2 (1049)    ROUTINE (9.8)