RE: New Development Project - What to do it in? -- MIDRANGE-L

No compiler needed.

Here is a sample query stored in a source physical file.

%DEFINE {
 dbtable="GDISYS.BKPLOGL1"
 DTW_HTML_TABLE = "YES"
 DTW_SHOWSQL = "YES"
%}

%FUNCTION(DTW_SQL) query() {
  select BLGRPN, BLLIBN, BLDATE, BLTIME
         from $(dbtable)
         where (days(current date) -
          days(date(substr(digits(bldate),5,2)||'/'||
                    substr(digits(bldate),7,2)||'/'||
                    substr(digits(bldate),1,4))  ))<2000
         order by BLDATE desc, BLTIME desc
%}

%HTML(REPORT) {
 <HTML>
 <BODY>
 <H2>Here are the results of your query:</H2>
   @query()
 </BODY>
 </HTML>
%}

Crude, but in production.  I perpetually put off worrying about the 
flaming logo's.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




"Bob Cagle" <bcagle@xxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
04/29/2003 02:06 PM
Please respond to Midrange Systems Technical Discussion
 
        To:     "Midrange Systems Technical Discussion" 
<midrange-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        RE: New Development Project - What to do it in?


Well, it would definitely be dark 'cuz I would be blind!  I wouldn't
even know where to start with Net.Data.  I assume it could access 400
data okay?  Also sounds like I would need to purchase another compiler?

Bob Cagle
IT Manager
Lynk, Inc.
8241 Melrose Drive
Lenexa, KS  66214
913-492-9202 ext.41
mailto:bcagle@xxxxxxxxxxx


-----Original Message-----
From: Metz, Zak [mailto:Zak_Metz@xxxxxx] 
Sent: Tuesday, April 29, 2003 1:50 PM
To: Midrange Systems Technical Discussion
Subject: RE: New Development Project - What to do it in?

Why not come to the dark side and write a little Net.Data? We'll accept
you and love you just as you are! Come, join the Net.Data cult...

> -----Original Message-----
> From: Bob Cagle

> I have a simple file maintenance program that I need to create for our
> inventory department.  In the "golden" days, I would just have copied
> one of my RPG "work with" subfile-shells, modified it and 
> been done with
> it, but I want to provide them with a GUI.
>
NOTICE: This E-mail may contain confidential information. If you are not
the addressee or the intended recipient please do not read this E-mail
and please immediately delete this e-mail message and any attachments
from your workstation or network mail system. If you are the addressee
or the intended recipient and you save or print a copy of this E-mail,
please place it in an appropriate file, depending on whether
confidential information is contained in the message.


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.