Re: 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