Hi Darryl,
I'm finding it difficult to see how your code works, mainly because I
don't have the contents of the two copy books you reference.
Personally, I take great pains to ensure that my PR and PI statements
match each other. The easiest way to do that is to ensure they are the
same by making one a copy/paste of the other. But, yours come from two
different copy books that you haven't posted, and that makes it
difficult to see if they are the same. (Personally, I'd also think it'd
make it hard to maintain them as the same -- but I haven't tried it...)
Anyway...
I wouldn't pay too much attention to the authority errors... They don't
mean anything, aside from that something is doing a search (like trying
to resolve something in a binding directory, for example) and there are
programs in the search path that you lack authority to. I've seen this
in many, many different circumstances -- and it doesn't mean anything.
What I would pay attention to is this error: "Error occurred with input
data parameter" This is one of the errors listed in the manual for
QtmhGetEnv and it basically means that there's an error trying to read
the input from your program. Probably means that one of your
parameters is passed incorrectly, or has an address of NULL.
You should scrutinize your prototype, as well as your procedure's input
parameters, to ensure that you're getting the data you expect.
I would strongly recommend that you abandon the QtmhGetEnv HTTP server
API and replace it with a much simpler getenv() API (which is a
system-supplied API that does exactly the same thing, but is simpler to
use.)
On 6/14/2012 4:43 PM, Darryl Freinkel wrote:
I am writing my first program calling this procedure directly. It is part of
a simple CGI program I am developing.
d CGI_GetEnv PR extproc('QtmhGetEnv')
/copy a4g10xsfs/qxscpy,CGI_GetEnv
d a4g_GetEnv PI 32767a varying
/copy a4g10xsfs/qxscpy,a4gGetEnv
Attempt to use permanent system object QTEMDBSV without authority.
Attempt to use permanent system object QWTPECTL without authority.
Attempt to use permanent system object QTEVSIRF without authority.
Attempt to use permanent system object QTEVINVR without authority.
Error occurred with input data parameter.
midrange.com
