Re: Net.data subtotals / RUNQRY

[Mark Allen <scprideandms@xxxxxxxxx>]

Yeah right, thats why the i is DEAD!!!

On Wed, Mar 17, 2010 at 5:08 PM, Peter Connell <
Peter.Connell@xxxxxxxxxxxxxxxxx> wrote:

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