RE: ADDRDBDIRE -- MIDRANGE-L

I figured it out. I need to use the DATABASE= keyword and it works ok so
far.

Bruce Collins
Twitchell Corporation
bacollins@twitchellcorp.com

"People who think they know everything really annoy those of us who do!"

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Bruce Collins
Sent: Tuesday, March 28, 2000 7:25 AM
To: MIDRANGE-L@midrange.com
Subject: ADDRDBDIRE


If I have a file called "ARCUST" in Library TWCDATA and it is on the local
system, what would the Command for Add RDB Directory Entry Look like? I am
confused on how this is linked to the acctual database. I am just learning
Net.Data and using some sample code and this is what it looks like:

Remember I am just learning so please be nice. TIA

%DEFINE {
 dbtable="TWCDATA.ARCUST"
 DTW_HTML_TABLE = "YES"
%}

%FUNCTION(DTW_SQL) query() {
  select ABNAME, ABCONT from $ (dbtable) where ACUST=($(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>
%}


Bruce Collins
Twitchell Corporation
bacollins@twitchellcorp.com

"People who think they know everything really annoy those of us who do!"

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Bull, Jeff
Sent: Tuesday, March 28, 2000 5:16 AM
To: 'MIDRANGE-L@midrange.com'
Subject: Wanted: Baby AS/400


I am looking for a replacement for a model 150 - which is too big!  Our
marketing department currently use a model 150 to demo our software
products, it gets taken across Europe by air and is too heavy and large to
go hand-luggage; if the baggage handlers don't get it ('HANDLE WITH CARE'
and 'THIS WAY UP' signs don't work - baggage handlers can't read) then an
unpressurized baggage hold at -20**C manages quite well.

A few years ago IBM marketed a 'huggable luggable', a model P01 ? / P02 ? /
P03 ?  I could be interested in purchasing one of these 'Withdrawn from
Marketing' models - is there anyone out there with one to sell ?

Kind regards,
Jeff Bull.
Senior AS/400 Support Consultant (AS/400)
Midas Kapiti International Ltd

Tel:    44 (0) 175 370 8224
Fax:    44 (0) 175 357 0233
Email:  Jeff.Bull@Midas-Kapiti.Com  << == Replies to
The views and opinions expressed in this e-mail are the senders own and do
not necessarily represent the views and opinions of Misys Plc.

This email message is intended for the named recipient only.  It may be
privileged and/or confidential.  If you are not the intended named recipient
of this email then you should not copy it or use it for any purpose, nor
disclose its contents to any other person.  You should contact Midas-Kapiti
International as shown below so that we can take appropriate action at no
cost to yourself.

Midas-Kapiti International Ltd, Key West, 53-61 Windsor Road, Slough,
Berkshire, SL1 2DW, England
Email: Postmaster@midas-kapiti.com Tel: (44) 1753 573244 Fax: (44) 1753
570233
Midas-Kapiti International Ltd is registered in England and Wales under
company no. 971479




+---
| 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
+---

+---
| 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
+---