To code Working-Storage entries for reports

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.
  1. In the Program Painter, locate the output record description.
  2. Add Working-Storage entries needed for your report after the output record description in any of the following places:
    • Before the I/O description at the beginning of the program.
    • After the output record description.
    • After an 01 TYPE statements, and after your Procedure Division code.

For example:

WS    WS-DATE.
       05  WS-DATE-MM              PIC 9(2).
       05  WS-DATE-DD              PIC 9(2).
       05  WS-DATE-YY              PIC 9(2).
 WS    WS-DATE-HOLD.
       05  WS-DATE-YY-X            PIC 9(2).
       05  WS-DATE-MM-X            PIC 9(2).
       05  WS-DATE-DD-X            PIC 9(2).