LAB4 - IDENTIFICATION DIVISION. PROGRAM-ID. LAB4A. AUTHOR....

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
IDENTIFICATION DIVISION. PROGRAM-ID. LAB4A. AUTHOR. TRAVISKEETON. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SALES-FILE ASSIGN TO DISK 'SALES.DAT' ORGANIZATION IS LINE SEQUENTIAL. SELECT PRINT-FILE ASSIGN TO PRINTER 'LAB4.DOC'. DATA DIVISION. FILE SECTION. FD SALES-FILE. 01 SALES-REC. 05 I-REG PIC 9. 05 I-STORE PIC 9. 05 I-SALES PIC 9(4)V99 OCCURS 12 TIMES. FD PRINT-FILE. 01 PRINT-RECORD PIC X(148). WORKING-STORAGE SECTION. 01 H1. 05 F PIC X(9). 05 H1-DATE. 10 H1-MM PIC 99. 10 F PIC X VALUE "/". 10 H1-DD PIC 99. 10 F PIC X VALUE "/". 10 H1-YY PIC 99. 05 F PIC X(12). 05 F PIC X(19) VALUE "YEARLY SALES REPORT". 05 F PIC X(81). 05 F PIC X(5) VALUE "PAGE ". 05 H1-PAGE PIC Z9. 01 H2. 05 F PIC X(3) VALUE "REG". 05 F PIC X. 05 F PIC X(5) VALUE "STORE". 05 F PIC X(10). 05 F PIC X(3) VALUE "JAN". 05 F PIC X(7). 05 F PIC X(3) VALUE "FEB". 05 F PIC X(7). 05 F PIC X(3) VALUE "MAR". 05 F PIC X(7). 05 F PIC X(3) VALUE "APR". 05 F PIC X(7). 05 F PIC X(3) VALUE "MAY". 05 F PIC X(7). 05 F PIC X(3) VALUE "JUN". 05 F PIC X(7). 05 F PIC X(3) VALUE "JUL". 05 F PIC X(7). 05 F PIC X(3) VALUE "AUG". 05 F PIC X(7). 05 F PIC X(3) VALUE "SEP". 05 F PIC X(7). 05 F PIC X(3) VALUE "OCT". 05 F PIC X(7). 05 F PIC X(3) VALUE "NOV". 05 F PIC X(7).
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
05 F PIC X(3) VALUE "DEC". 05
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 10/09/2011 for the course CIS 355 taught by Professor Champion during the Spring '11 term at DeVry Columbus North.

Page1 / 4

LAB4 - IDENTIFICATION DIVISION. PROGRAM-ID. LAB4A. AUTHOR....

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online