|
L1 is the lowest level, L9 the highest. Every time a level break occurs, that specific level break and all the levels lower than that one have their level break indicators turned on. In your case, every time your Invoice Number (ARINV#) changed, L1 got turned on (as well as L2). Your sort order normally determines how to specify level breaks. I'm guessing that your data is sequenced by ARCOMP, ARCUST, & ARINV#. Where is ARINYY in this sequence? If higher than ARCOMP, use L9. If between ARCOMP & ARCUST, use any of L4-L7. - Dan Bale > -----Original Message----- > From: Jim Langston [SMTP:jlangston@conexfreight.com] > Sent: Wednesday, May 24, 2000 2:01 PM > To: RPG400-L@midrange.com > Subject: S/36 RPG Indicator confusion > > 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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.