To map report fields

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

For the applicable report groups, indicate which data items supply values to output fields by typing SOURCE on line 12 of your program. Use the following syntax and guidelines:

           SOURCE [IS] dataname [PIC picclause]
               [BLANK [WHEN] ZERO]
               [JUSTIFIED|JUST [RIGHT]
               [CHANGE INDICATE|GROUP INDICATE]

Follow these rules when coding:

Map the data items within the report group from left to right, top to bottom, as they will appear on the printed report.
Include picture clauses if multiple fields are strung together on the mock-up. A PIC clause indicates the next matching COBOL picture in the mock-up is the COBOL picture for this data item.
Optionally print spaces when the value of the field is zero by specifying the BLANK WHEN ZERO parameter.
Optionally justify the field value with the JUSTIFIED RIGHT parameter.
Optionally print the value of the field only when it changes value with the CHANGE INDICATE parameter.
Optionally print the value of the field only on the first occurrence of the report group after a control break or a page advance with the GROUP INDICATE parameter.

For example:

   01      TYPE IS REPORT HEADING    
               NEXT GROUP IS NEXT PAGE
           MOCKUP LINES 1 THRU 5
           SOURCE IS WS-DATE
   01      TYPE IS PAGE HEADING
               NEXT GROUP PLUS 3
           MOCKUP LINES 6 THRU 8
           SOURCE IS WS-DATE
   01      PART-DETAIL TYPE IS DETAIL 
               NEXT GROUP PLUS 1
           MOCKUP LINE 13
           SOURCE WS-LOCATION-CODE    GROUP INDICATE
           SOURCE WS-LAST-COUNT-MONTH
           SOURCE WS-LAST-COUNT-DAY  
           SOURCE WS-LAST-COUNT-YEAR 
           SOURCE WS-QTY-IN-STOCK
           SOURCE WS-QTY-ISSUED
           SOURCE WS-QTY-RECEIVED
   01      TYPE IS PAGE FOOTING
               LINE PLUS 2
           MOCKUP LINE 24
           SOURCE IS PAGE-COUNTER

Note: For more information, seeReport Mapping Rules.