× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: NET.DATA demo from COMMON
  • From: Rob Berendt <rob@xxxxxxxxx>
  • Date: Mon, 20 Mar 2000 17:27:43 -0500

I was trying to whip up a little net.data to demo 
to the boss and others here.

My macro looks like:
%DEFINE {
 dbtable="PVCFILE/ECHL03"
 DTW_HTML_TABLE = "YES"
%}

%FUNCTION(DTW_SQL) query() {
  select HORD, HEDTE from $(dbtable) where HCUST=digits($(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>
%}


My WRKHTTPCFG looks like:
Port                          81
HostName   GDISYS.GDI1.SNA.IBM.COM                 
Enable POST                                        
Enable GET                                         
Enable HEAD                                        
Enable PUT                                         
Enable DELETE                                      
Map   /QIBM/NetworkStation/Admin /QYTC/QYTCMAIN.PGM
Map   /networkstation/admin /QYTC/QYTCMAIN.PGM             
Pass  /QIBM/NetworkStation/* /QIBM/ProdData/HTTP/Protec   >
Pass  /networkstation/* /QIBM/ProdData/HTTP/Protect/Net   >
Exec  /QYTC/* /QSYS.LIB/QYTC.LIB/*                         
Exec  /cgi-bin/* /QSYS.LIB/ROB.LIB/*
DefaultNetCcsid 00819                                      
DefaultFsCcsid 00037                                       

However when I go to
http://gdisys:81/cgi-bin/db2www/qsys.lib/rob.lib/qhtml.file/demo.mbr/input
I get

HTTP Error 403 - Forbidden Internet Explorer 

And I did a ENDTCPSVR *HTTP and a STRTCPSVR *HTTP after 
modifying my WRKHTTPCFG.
RTFM is great, however a few quick hints just to get this 
demo working would be the cats meow.

I've been reading and saw:
'To copy the Net.Data program object: 
Using the Create Duplicate Object (CRTDUPOBJ) command, 
copy the Net.Data program object, DB2WWW, from the QTCP 
library to a CGI-BIN library. 
OS/400 V4R3 users: Use the program object in library 
QHTTPSVR; the program object in the QTCP library routes 
Net.Data requests to the QHTTPSVR library. 
Change the DB2WWW program object in the CGI-BIN directory 
so that the user profile that CGI programs run under has 
access to the program object. '

I can't find this cgi-bin animal anywhere.
+---
| 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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.