Comments on: How to get a total of amount field in RPGLE code http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/ Thu, 23 May 2013 18:24:46 +0000 hourly 1 By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109418 TomLiotta Fri, 20 Jul 2012 23:43:40 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109418 Notice the total on this desired outputlAh, yes. Previously his output was showing a “running total”. At first it looked like…Well, never mind what it looked like. It’s hard to be sure if it’s making better sense to me now, but I’ll assume it is. In essence, all he wants is a simple summary report.So, again it looks like a simple view with a GROUP BY and a SUM(SCBALL) for each group would provide the values.In pure RPG, with his group fields for the only level break, it would only print the L1 totals to get the report he wants. And your sample code would mostly be fine if full-procedural is the desired method.Everything would be easier to make sense of if formatting would work predictably.Tom

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109403 philpl1jb Fri, 20 Jul 2012 11:37:17 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109403 Tom
 
6785762.20- | EGP JB 307
 
Notice the total on this desired outputl
Phil

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109397 TomLiotta Fri, 20 Jul 2012 03:31:42 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109397 Sigh. So much for useful formatting.
 
Tom

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109396 TomLiotta Fri, 20 Jul 2012 03:30:28 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109396 A few lines from the suggested code bring a question:* now process current record
Eval TotalBall = TotalBall + SCBALL
…

*.
Begsr PrintLn
If TotalBal > 0
Write TotalLn <== print fields holdACT, HoldSCAPP, TotalBal
Why would TotalLn include TotalBal in the output? From the supplied examples, what should be printed is SCBALL from the last record in the group. No?
 
Tom
 
(And if this comes out looking anything like what I attempted, I’ll be pleasantly surprised.)

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109392 philpl1jb Thu, 19 Jul 2012 23:30:50 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109392 The big challenge here was trying to find something interesting to do with the words total and amount.  Although, I found a few quotes, they didn’t appeal to me, so I just went with total and found this quote.
“I’ve had great success being a total idiot.” Jerry Lewis

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109391 philpl1jb Thu, 19 Jul 2012 23:12:10 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109391 It’s unusual for us to provide code .. but there was a great deal of effort on your part.  This code has not been compiled or tested. 
Phil 

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109390 philpl1jb Thu, 19 Jul 2012 23:08:01 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109390 So, every time you see a new SCACT you’ll have
a total to print (provided it’s not zero)

Very easy, should have been part of your logic class.

Except I don’t know where you’re getting the EUR from
or why you want to print the 003 or 002 from the last record.

There seems to be a little problem with the columns,
I assume that 003 comes from SCAPP the
others that I want are SCACT SCBALL

*– subroutine to print Balances from file SCPF
Read SCPF
Eval HoldACT = SCACT
Eval HoldSCAPP = SCAPP
DOW %not(%eof(SCPF))
*– now here’s where we see if it’s time to bail
If HoldACT <> SCACT
EXSR PrintLN
Endif
*– now process current record
Eval TotalBall = TotalBall + SCBALL
Eval HoldSCAPP = SCAPP
Read SCPF
Enddo
Endsr

*….
Begsr PrintLn
If TotalBal > 0
Write TotalLn <– print fields holdACT, HoldSCAPP, TotalBal
Endif
* — prepare next group
Eval HoldACT = SCACT
Eval HoldSCAPP = SCAPP
Eval TotalBall = *ZERO
Endsr

]]> By: AymanAbbas http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109372 AymanAbbas Thu, 19 Jul 2012 13:16:47 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109372 what actually happen
BALANCE CCY TYPE
=================================================
1888.95 EUR CA 003

1248805.34 EGP CF 002

515663.91 EGP HB 461

.00 EGP JB 301

1038030.00- EGP JB 302

2065162.00- EGP JB 303

3798751.00- EGP JB 304

4904056.20- EGP JB 305

5611598.20- EGP JB 306

6785762.20- EGP JB 307 // with the last total

32415016.27- EGP JT 308

49289996.45- EGP JT 309 // with the last total

8784102.96- EGP R1 600

100.00- EGP S5 310

1248879.00 EGP WN 701

]]> By: AymanAbbas http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109371 AymanAbbas Thu, 19 Jul 2012 13:12:10 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109371 what actually happen
BALANCE | CCY |TYPE
=================================================
1888.95 | EUR CA 003

1248805.34 | EGP CF 002

515663.91 | EGP HB 461

.00 | EGP JB 301

1038030.00- | EGP JB 302 /*

2065162.00- | EGP JB 303

3798751.00- | EGP JB 304

4904056.20- | EGP JB 305

5611598.20- | EGP JB 306

6785762.20- | EGP JB 307

32415016.27- | EGP JT 308

49289996.45- | EGP JT 309

8784102.96- | EGP R1 600

100.00- | EGP S5 310

1248879.00 | EGP WN 701 BALANCE | CCY |TYPE
=================================================
1888.95 | EUR CA 003

1248805.34 | EGP CF 002

515663.91 | EGP HB 461

.00 | EGP JB 301

1038030.00- | EGP JB 302

2065162.00- | EGP JB 303

3798751.00- | EGP JB 304

4904056.20- | EGP JB 305

5611598.20- | EGP JB 306

6785762.20- | EGP JB 307 // the last total amount which need to print

32415016.27- | EGP JT 308

49289996.45- | EGP JT 309 // the last total amount which need to print

8784102.96- | EGP R1 600

100.00- | EGP S5 310

1248879.00 | EGP WN 701
Hope you get the point and not be confused anymore 

]]> By: AymanAbbas http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109370 AymanAbbas Thu, 19 Jul 2012 13:05:50 +0000 http://itknowledgeexchange.techtarget.com/itanswers/how-to-get-a-total-of-amount-field-in-rpgle-code/#comment-109370 what i need to do is printing a report with this data 
BALANCE | CCY | TYPE
=================================================
1888.95 | EUR |CA | 003|

1248805.34 | EGP CF 002

515663.91 | EGP HB 461

6785762.20- | EGP JB 307

49289996.45- | EGP JT 309

8784102.96- | EGP R1 600

100.00- | EGP S5 310

1248879.00 | EGP WN 701

]]>