RE: Difference bet. Primary and Full procedural file.

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.