Rocket® Enterprise Developer (formerly a product of Micro Focus or formerly a product of Open Text) documentation, created before Rocket Software acquired certain products from OpenText, may include outdated references to "Micro Focus" or "OpenText", both of which are trademarks of OpenText or its affiliates. Rocket Software is not affiliated with Micro Focus or OpenText and has since rebranded these products as Rocket® products. You may also encounter outdated links in this documentation. If you do, please contact Rocket Support (support@rocketsoftware.com) for assistance.
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.
- In the Program Painter, locate the output record description.
- 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).