cleaned up myc library (M.Z.)

tecs/coc_client.c

@@ -8,7 +8,6 @@
 #include "myc_err.h"
 #include "coc_util.h"
 #include "coc_client.h"
-#include "sys_util.h"
 #include "myc_str.h"
 
 /* --- non ANSI signal --- */
@@ -390,8 +389,14 @@ int CocWatchLog(CocConn *conn, char *loglist) {
   StrBuf *buf;
   int fd, iret;
   int i, siz, n;
+  static int init=1;
 
-  sys_ctrl_init();
+#if __VMS
+  if (init) {
+    init=0;
+    DECC$CRTL_INIT();
+  }
+#endif
   fd=conn->fd;
   CocReset(conn);
   ERR_I(CocPutStr(conn, "loglist", loglist));