1 files changed, 26 insertions, 0 deletions
diff --git a/sys/libc/system.c b/sys/libc/system.c
new file mode 100644
index 00000000..44265864
--- /dev/null
+++ b/sys/libc/system.c
@@ -0,0 +1,26 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+*/
+
+#define	import_spp
+#define	import_libc
+#define	import_knames
+#include <iraf.h>
+
+
+/* SYSTEM -- Send a command to the host system.  OK is returned if the command
+** executes properly, else a positive integer error code identifying the error
+** which occurred.
+*/
+int
+system (
+  char	*cmd			/* command to be sent to host system	*/
+)
+{
+	PKCHAR	nullstr[1];
+	XINT	status;
+
+	nullstr[0] = EOS;
+	ZOSCMD (cmd, nullstr, nullstr, nullstr, &status);
+
+	return ((int) status);
+}