Previous Topic Next topic Print topic


To identify report groups

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.
  1. In the Program Painter, for each report group you want to identify, type 01 in columns 4 and 5.
  2. 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
Previous Topic Next topic Print topic