1 files changed, 24 insertions, 0 deletions
diff --git a/sys/qpoe/qpaccessf.x b/sys/qpoe/qpaccessf.x
new file mode 100644
index 00000000..4b11d570
--- /dev/null
+++ b/sys/qpoe/qpaccessf.x
@@ -0,0 +1,24 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"qpoe.h"
+
+# QP_ACCESSF -- Test whether the named field (header parameter) exists.
+# Globally aliased parameters are recursively expanded and must resolve to
+# a normal parameter reference.
+
+int procedure qp_accessf (qp, param)
+
+pointer	qp			#I QPOE descriptor
+char	param[ARB]		#I parameter name
+
+pointer	qp_gpsym()
+errchk	qp_bind, qp_gpsym
+
+begin
+	if (QP_ACTIVE(qp) == NO)
+	    call qp_bind (qp)
+	if (qp_gpsym (qp, param) != NULL)
+	    return (YES)
+	else
+	    return (NO)
+end