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, see
Report Mapping Rules.