To identify report groups

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

In the Program Painter, for each report group you want to identify, type 01 in columns 4 and 5.

Starting in column 12 of the same line, type TYPE and continue coding as follows:

   01      [identifier] TYPE IS REPORT FOOTING
                           CONTROL HEADING [FINAL]|controlname
                           CONTROL FOOTING [FINAL]|controlname
                           DETAIL

                             number
           [LINE [NUMBER IS] PLUS number
                             NEXT PAGE       ]

                             number
           [NEXT GROUP [IS] PLUS number
                             NEXT PAGE       ]

Note:

For each 01 TYPE statement:
- You must assign an identifying data name for the DETAIL report group, the report body. Identifiers for the other report groups are optional. You use these identifying data names in the Procedure Division to refer to the various report groups.
- The TYPE statements for CONTROL HEADING and CONTROL FOOTING report groups must indicate the name of control break field that causes the control break. This control data name must correspond to a data item specified in the CONTROLS option of the RED statement.
Optionally for each report group, designate the line number where the first line of the report group prints, using the LINE parameter.
Optionally for each report group, designate the line number where the first line of the next report group prints, using the NEXT GROUP parameter.
Report Writer treats each report group specified in the TYPE clause as a unit and always prints the entire group on one page. It never begins the group on one page and completes it on another.

For example:

   MOCK    STOCKRPT
   01      TYPE IS REPORT HEADING    
             NEXT GROUP IS NEXT PAGE   
   01      TYPE IS PAGE HEADING  
             NEXT GROUP PLUS 3
   01      TYPE IS CONTROL HEADING WS-LOCATION-CODE
             NEXT GROUP PLUS 1
   01      PART-DETAIL TYPE IS DETAIL 
             NEXT GROUP PLUS 1
   01      TYPE IS CONTROL FOOTING WS-LOCATION-CODE
   01      TYPE IS CONTROL FOOTING FINAL
   01      TYPE IS PAGE FOOTING
   01      TYPE IS REPORT FOOTING
             LINE PLUS 2