From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 pkg/tbtables/selector/tcstxtinfo.x | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 pkg/tbtables/selector/tcstxtinfo.x

(limited to 'pkg/tbtables/selector/tcstxtinfo.x')

diff --git a/pkg/tbtables/selector/tcstxtinfo.x b/pkg/tbtables/selector/tcstxtinfo.x
new file mode 100644
index 00000000..585bf78e
--- /dev/null
+++ b/pkg/tbtables/selector/tcstxtinfo.x
@@ -0,0 +1,15 @@
+include "tcs.h"
+
+# TCS_TXTINFO -- Get text information about a column
+
+procedure tcs_txtinfo (descrip, what, str, maxch)
+
+pointer	descrip		# i: column selector
+int	what		# i: parameter
+char	str[ARB]	# o: text information
+int	maxch		# i: length of string
+#--
+
+begin
+	call tbcigt (TCS_COLUMN(descrip), what, str, maxch)
+end
-- 
cgit