RE: S/36 RPG Indicator confusion

oh ick...

First off... how is your file ordered IE:opnqryf, #gsort, logical, ect.
If your file is ordered correctly, I take it this is an Input Primary file?

Also, having an accounting/programming back-ground, I find it hard to
believe
that L2 is not coming on ALOT, as L3 would be changing quit often too...

Really, if your file is "sorted" by company, YYMMDD, cust, invoice#,
you should be using either L4, L5, L6 or L7 for the year break..

Control indicators are best thought of as this; the fewer breaks you expect
the higher the "L#", the more breaks you expect the lower the "L#"

HTH


-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Jim Langston

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