|
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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.