TSTUSR,TSTUSR/-SP=TSTUSR
CD$ROOT:[LIBRARY.RSX]CDPACK/LB
LB:[1,1]F77OTS/LB
//