|
I went to COMMON last spring and whipped up a sample net.data screen in a
couple of hours. The overheads came from money@dhagroup.com. The gent's
name is David Money. Got some overheads from others: Katherine Richardson
of IBM. Basically the exercise was intended to show you how easy it was to
whip up a page. Got a few people here at work excited.
Let's see...
WRKHTTPCFG
Port 81
...
Map /cgi-bin/software/db2www/* /QSYS.LIB/CGI.LIB/DB2WWW.PGM/*
Map /CGI-BIN/DB2WWW/* /QSYS.LIB/CGI.LIB/DB2WWW.PGM/*
Exec /QSYS.LIB/CGI.LIB/*
...
Sample net.data / html script, as kept in a source file. This prompts you
for a customer and returns their order list.
%DEFINE {
dbtable="PVCFILE.ECHL03"
DTW_HTML_TABLE = "YES"
DTW_SHOWSQL = "YES"
%}
%FUNCTION(DTW_SQL) query() {
select HORD, HEDTE from $(dbtable) where HCUST=($(cust))
%MESSAGE {
100: "<P>Sorry, no matching customer found.": Continue
%}
%}
%HTML(INPUT) {
<HTML>
<BODY>
<FORM METHOD="POST" ACTION="REPORT">
<P>Enter customer to find:
<BR>
<INPUT TYPE=text NAME=cust>
<INPUT TYPE=submit>
</FORM>
</BODY>
</HTML>
%}
%HTML(REPORT) {
<HTML>
<BODY>
<H2>Here are the results of your query:</H2>
%IF ($(cust) == "")
<P>You did not enter a customer number.
%ELSE
@query()
%ENDIF
</BODY>
</HTML>
%}
Sample URL:
http://gdisys:81/CGI-BIN/DB2WWW/QSYS.LIB/ROB.LIB/QHTML.FILE/DEMO.MBR/INPUT
Rob Berendt
==================
Remember the Cole!
"Wayne Achenbaum"
<wache@slomins.com> To:
<MIDRANGE-L@midrange.com>
Sent by: cc:
owner-midrange-l@mi Subject: HTTP server
Configuration
drange.com
11/01/00 12:17 PM
Please respond to
MIDRANGE-L
Does anyone on this list know how to configure an HTTP server to be used to
run net.data macros or cgi programs? A sample default configuration would
be
greatly appreciated and perhaps the URL that can be used to access a
net.data macro as it pertains to the configuration supplied. TIA
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.