Re: S/36 RPG Indicator confusion

["Lewis Libman" <LLibman@xxxxxxxx>]

My guess is that L8 is company break.  If so change L1 to L7 that way you will 
have customer within year.

Lewis Libman
llibman@behr.com
714 545 7101 x2118

>>> Jim Langston <jlangston@conexfreight.com> Wednesday, May 24, 2000 11:01:14 
>AM >>>
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 
+---
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                     
+---
| 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
+---