× 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.



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.