× 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.



Finally found the code.  This may or may not be what you are looking for.
The 2 fields which cause the L6 break were our problem.  Since we were at
the 9 level break limit, we put the same break on both fields.  These are
the major class and sub-class of an inventory item.  We needed sub-heading
and other processing to occur for either break, but when the major class
changed, we needed a special sub-heading.  So the code for the *InL6 break
looks something like this.

      *          CLASSIFICATION CHANGE
 B01 C                   If        *InL6
 B02 C                   If        Gcmcls <> SVMCLS

             Code for major class break goes here

  '' C                   Move      GCMCLS        SVMCLS
 E02 C                   End

             Code for both class breaks goes here

 E01 C                   End

The same could be done for the other field involved in this situation.

We also had to condition the L8 break to only happen if the field was
greater than blanks.  Just use *InL8 and Wqdbrh > *blanks when using the
level break indicator in your code.

Hope this helps


Valene M. Williamson
IBM Certified Specialist
vwilliamson@glazers.com




                      "Mangavalli,
                      Ramanujam"               To:       
"'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
                      <RamM@Mvmills.com        cc:
                      >                        Subject:  RE: Difference bet. 
Primary and Full procedural file.
                      Sent by:
                      rpg400-l-admin@mi
                      drange.com


                      05/22/2002 07:57
                      PM
                      Please respond to
                      rpg400-l






How did you do breaks within a break?

-----Original Message-----
From: VWilliamson@glazers.com [mailto:VWilliamson@glazers.com]
Sent: Wednesday, May 22, 2002 5:36 PM
To: rpg400-l@midrange.com
Subject: Re: Difference bet. Primary and Full procedural file.


Here's a program with 9 level breaks.  We have several like this.  One or
two we had to improvise an extra break within a break.

    IRGQ6010W
    I                                          GWWHSE        L9
    I                                          WQDBRH        L8
    I                                          GWBRCH        L7
    I                                          GCMCLS        L6
    I                                          GCCCLS        L6
    I                                          GCWCTY        L5
    I                                          WQGRUP        L4
    I                                          WQSTDT        L4
    I                                          WQENDT        L4
    I                                          GCVNDR        L4
    I                                          GCRPRT        L3
    I                                          GCDES2        L2
    I                                          GWITEM        L1



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.







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.