agenda n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
Agenda PowerPoint Presentation
play fullscreen
1 / 23

Agenda

158 Views Download Presentation
Download Presentation

Agenda

- - - - - - - - - - - - - - - - - - - - - - - - - - - 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?