Re: Net.data subtotals / RUNQRY

[Peter Connell <Peter.Connell@xxxxxxxxxxxxxxxxx>]

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