Re: S/36 RPG Indicator confusion

Well,

ARCOMP seems to be the company, the highest Lx here, that looks OK.

Then comes the customer and then the invoice number.

L1 for the year is false; you should use L4 ... L7.

Every time the invoice number changes the year changes too, as L2 sets L1 
on, too....

0.02 Euro

Anton Gombkötö


At 20:01 24.05.00, you wrote:
>I am modifying a S/36 RPG aging program, and someone in
>accounting wanted subtotals by year.  So, I added another indicator,
>but now the total by year is fireing every cycle.
>
>0020.00      IARFILE  NS  13  30 CN  31 CM
>0021.00      I                                        1   2 ARCOMPL8
>0022.00      I                                        3   7 ARCUSTL3
>0026.00      I                                       19  270ARINV#L2
>is how it was, I just modified the line:
>0078.00      I                                      216 2170ARINYYL1
>by addign the L1 indicator.  (There are lots of other definitions, I just
>showed the ones applicable).
>
>Down in my control specs I am adding up values, then later in my O
>specs I am doing:
>0288.00      OREPORT  T 12     L1
>0289.00      O                                   11 '**TOTAL FOR'
>0290.00      O                                   18 'YEAR  '
>0291.00      O                         TLYEARMB  53
>
>The problem is, the **TOTAL FOR YEAR comes out after every
>single line!  Looking at the report, the year does not change every
>single line.  I searched for L1 in my code, and it only shows up in the
>3 places (I specs, C specs and O specs) where I put it.
>
>What is the problem here?  I know that L0 is fired every cycle, L1
>shouldn't be, should it?  Shouldn't it only fire if the year has changed?
>I know it would also change if L2, L3 or L8 are fired, but they aren't
>(I'm still getting my subtotals for L2, L3 and L8 in the right spots).
>
>Any help would be appreciated, because I am just sitting here scratching
>my head.
>
>Regards,
>
>Jim Langston
>
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---

Mit freundlichen Grüssen / Best regards

Anton Gombkötö
mailto:Gombkoetoe@ASsoft.com

AS Software GmbH
http://www.assoft.com

Jedleseer Strasse 3
A-1210  Wien

Tel: +43 1 278 15 01-0
Fax:+43 1 278 15 01-22

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---