1 / 23

Agenda

Agenda. Reporting Work on Assignment 4!. Printing on power systems. Printing on power systems. Output Queue. Job. Program/ Command. Spooled File. Report Layout (Printer File). Data. *FILE. *FILE. Printing Reports with COBOL. A Good Report…. Heading (a meaningful report name)

muncel
Télécharger la présentation

Agenda

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Agenda • Reporting • Work on Assignment 4!

  2. Printing on power systems

  3. Printing on power systems Output Queue Job Program/ Command Spooled File Report Layout (Printer File) Data *FILE *FILE

  4. Printing Reports with COBOL

  5. A Good Report… • Heading (a meaningful report name) • Date and Page Number • Column Headings (to identify data) • Order column from left to right to highlight significant data • Edit numbers for readability • Include Totals at end of report and groups of items • ** To identify the ‘level’ of a total • Clearly indicate the end of the report.

  6. Customer AccountsHow Many Record Formats? Customer Accounts Date: 2004-12-31 Page: 999 Date Amount Customer: 1015 Cindy Laurin 2004-05-12 $100.00 2004-06-09 $200.00 2004-09-28 $300.00 * Totals: 1015 Cindy Laurin $600.00 Customer: 1016 Bruce Nugent 2004-01-31 $100.00 * Totals: 1016 Bruce Nugent $100.00 ** Totals: All Customers $700.00 *** End of Report

  7. How Many Record Formats? HeadingCustomer Accounts Date: 2004-12-31 Page: 999 Column Heading Date Amount Customer Heading Customer: 1015 Cindy Laurin Detail Line 2004-05-12 $100.00 Detail Line 2004-06-09 $200.00 Detail Line 2004-09-28 $300.00 Customer Total * Totals: 1015 Cindy Laurin $600.00 Customer Heading Customer: 1016 Bruce Nugent Detail Line 2004-01-31 $100.00 Customer Total * Totals: 1016 Bruce Nugent $100.00 Report Total ** Totals: All Customers $700.00 End of Report *** End of Report

  8. Record Formats • Each Record format is defined using it’s own Group-Item in the Working Storage Section. • Record format name is defined using the 01 level • Fields and literals are defined using subsequent levels with Picture & Values Clauses

  9. Picture Clause Review • Define Variables • Define how Variables are displayed

  10. Editing Functions

  11. Examples Trans-Amount PIC S9(6)V999 Value 4565.78. Report-Item Edited Results PIC 9(6)V999 PIC $999999V999 PIC $ZZZ,ZZZ.99 PIC $ZZZ,ZZZ.9

  12. Examples Trans-Amount PIC S9(6)V999 Value 4565.78. Report-Item Edited Results PIC $ZZZ,ZZZ.99- PIC $ZZZ,ZZZ.99CR PIC $ZZZZZZB99 PIC $ZZZZZZ.99+

  13. Examples Trans-Amount PIC S9(6)V999 Value 4565.78-. Report-Item Edited Results PIC 9(6)V999 PIC $999999V999 PIC $ZZZ,ZZZ.99 PIC $ZZZ,ZZZ.9

  14. Examples Trans-Amount PIC S9(6)V999 Value 4565.78-. Report-Item Edited Results PIC $ZZZ,ZZZ.99- PIC $ZZZ,ZZZ.99CR PIC $ZZZZZZB99 PIC $ZZZZZZ.99+

  15. Examples Customer Name PIC X(20) Value ‘Cindy Laurin-Moogk’ Report Item PIC X(20) PIC XXXXXXXXXXBXX

  16. Printing in COBOL WORKING STORAGE. 01 Heading-1 05 PIC X(8) Value Spaces. 05 PIC X(17) Value ‘Customer Accounts’ 05 PIC X(5) Value Spaces. 05 PIC X(6) Value ‘Date: ‘ 05 WS-Date-Out format of date. 05 PIC X(1) Value Spaces. 05 PIC X(6) Value ‘Page: ‘. 05 WS-Page PIC 9(3). FILE SECTION FD Customer-Report. 01 Print-Record-Out.

  17. Printing or Writing to a Spooled File Detail-Line-1 PIC X(80) VALUE ‘Cindy’s Test’ Detail-Line-2 PIC X(80)VALUE ‘COBOL Line of Code’ WRITE Print-Record-Out FROM Detail-Line-1 WRITE Print-Record-Out FROM Detail-Line-2

  18. Printing or Writing to a Spooled File (using AFTER ADVANCING) Detail-Line-1 PIC X(80) VALUE ‘Cindy’s Test’. Detail-Line-2 PIC X(80)VALUE ‘COBOL Line of Code’. WRITE Print-Record-Out FROM Detail-Line-1. WRITE Print-Record-Out FROM Detail-Line-2 AFTER ADVANCING 1 LINE.

  19. Printing or Writing to a Spooled File (using BEFORE ADVANCING) Detail-Line-1 PIC X(80) VALUE ‘Cindy’s Test’. Detail-Line-2 PIC X(80)VALUE ‘COBOL Line of Code’. WRITE Print-Record-Out FROM Detail-Line-1 BEFORE ADVANCING 1 LINE. WRITE Print-Record-Out FROM Detail-Line-2.

  20. Printing or Writing to a Spooled File (using AFTER ADVANCING) Detail-Line-1 PIC X(80) VALUE ‘Cindy’s Test’. Detail-Line-2 PIC X(80)VALUE ‘COBOL Line of Code’. WRITE Print-Record-Out FROM Detail-Line-1. WRITE Print-Record-Out FROM Detail-Line-2 AFTER ADVANCING PAGE.

  21. Printing or Writing to a Spooled File (using BEFORE ADVANCING) Detail-Line-1 PIC X(80) VALUE ‘Cindy’s Test’. Detail-Line-2 PIC X(80)VALUE ‘COBOL Line of Code’. WRITE Print-Record-Out FROM Detail-Line-1 BEFORE ADVANCING PAGE. WRITE Print-Record-Out FROM Detail-Line-2.

  22. Printing or Writing to a Spooled File Detail-Line-1 PIC X(80) VALUE ‘Cindy’s Test’. Detail-Line-2 PIC X(80)VALUE ‘COBOL Line of Code’. WRITE Print-Record-Out FROM Detail-Line-1 AFTER ADVANCING 1 LINE. WRITE Print-Record-Out FROM Detail-Line-2 BEFORE ADVANCING 1 LINE.

  23. Homework?

More Related