Just remember that you need to choose a mono-spaced font when styling the <PRE> block
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Don Cavaiani
Sent: Thursday, 18 March 2010 10:30 a.m.
To: Web Enabling the AS400 / iSeries
Subject: Re: [WEB400] Net.data subtotals / RUNQRY
Peter - that looks absolutely super! I will do it! Will this allow the
select statement to pop up for an execution time date selection?
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of Peter Connell
Sent: Wednesday, March 17, 2010 4:09 PM
To: 'Web Enabling the AS400 / iSeries'
Subject: Re: [WEB400] Net.data subtotals / RUNQRY
Don.
Many things are easy with Net.data since IBM cleverly engineered it to
provide easy interfaces to run native stuff.
Here's a little macro for RUNQRY.
%define {
outtbl = %TABLE
%}
%function(dtw_system) System(cmd){
%EXEC {/QSYS.LIB/STRQSH.CMD CMD('system "$(cmd)" > $(outfile)')%}
%}
%macro_function prttbl(INOUT outtbl) {
%report {%row { <br>$(V1)%} %}
%}
%html(macro) {
<H3>Run Query</H3>
@dtw_rtvhandle(hndl)
@dtw_assign(outfile,"/tmp/$(hndl).txt")
@System("RUNQRY PETER/MYQRY")
@dtwf_read(outfile, "ASCIITEXT", " ", outtbl)
@dtwf_remove(outfile)
<pre style="font: 10pt courier; color: black;">
@prttbl(outtbl)
</pre>
%}
How easy is that.
Dtwdude.
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of Don Cavaiani
Sent: Thursday, 18 March 2010 8:23 a.m.
To: web400@xxxxxxxxxxxx
Subject: [WEB400] Net.data subtotals
It's pretty easy to get this far in net.data with SQL table.
What's the best way to add in subtotals (of 2 columns) at each employee
# break?
Badge# Employee Name Begin End Elapsed S.O.# O# Qty
Y E CODE Tkt#
876633 AULL, HENRY A. 50022 0.00 68205 10
.000 RUN 0
SUBT
SUBT
10721106 FRANZEN, MARLON P. 50048 70355 2.05 68562 10 2.000 RUN 2849329
10721106 FRANZEN, MARLON P. 70355 0.00 68204 10 .000 RUN 0
SUBT
SUBT
Don F. Cavaiani
IT Manager
Amerequip Corp.
920-894-7063
"It's amazing what you can accomplish if you don't care who gets the
credit." Harry S. Truman
--
This is the Web Enabling the AS400 / iSeries (WEB400) mailing list To
post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
Visit our website www.vedaadvantage.com. It has a new design with
improved navigation and search capabilities; and customer friendly
interface with more relevant insights and solutions to help you make
informed decisions.
########################################################################
#############
This correspondence is for the named person's use only. It may contain
confidential or legally privileged information, or both. No
confidentiality or privilege is waived or lost by any mistransmission.
If you receive this correspondence in error, please immediately delete
it from your system and notify the sender. You must not disclose, copy
or rely on any part of this correspondence if you are not the intended
recipient.
Any views expressed in this message are those of the individual sender,
except where the sender expressly, and with authority, states them to be
the views of Veda Advantage.
If you need assistance, please contact Veda Advantage on either :-
Australia 1300-921-621 or New Zealand +64 9 367 6200
--
This is the Web Enabling the AS400 / iSeries (WEB400) mailing list To
post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
midrange.com
