× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: S/36 RPG Indicator confusion
  • From: "Lewis Libman" <LLibman@xxxxxxxx>
  • Date: Wed, 24 May 2000 16:43:24 -0400

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.