LAB5 - IDENTIFICATION DIVISION. PROGRAM-ID. LAB5. 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. LAB5. AUTHOR. TRAVIS KEETON. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ZOO-FILE ASSIGN TO DISK "ZOO.SRT" ORGANIZATION IS LINE SEQUENTIAL. SELECT PRINT-FILE ASSIGN TO PRINTER"ZOO.DOC". SELECT TABLE-FILE ASSIGN TO DISK 'TAB.DAT' ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD ZOO-FILE. 01 ZOO-RECORD. 05 I-ID PIC 9(6). 05 I-SPECIES PIC X(2). 05 I-TYPE PIC X(2). 05 I-GROUP PIC X(2). 05 I-SEX PIC X. 05 I-QOH PIC 999. 05 I-VALUE PIC 9(6)V99. FD PRINT-FILE. 01 PRINT-RECORD PIC X(100). FD TABLE-FILE. 01 TABLE-RECORD PIC X(18). WORKING-STORAGE SECTION. 01 MISC. 05 EOF PIC X VALUE 'N'. 05 WS-PAGE-CT PIC 99 VALUE 0. 05 WS-LINE-CT PIC 99 VALUE 0. 05 WS-DATE. 10 WS-YYYY PIC 9999. 10 WS-MM PIC 99. 10 WS-DD PIC 99. 05 WS-PREV-GROUP PIC XX. 05 WS-PREV-SPECIES PIC XX. 05 WS-PREV-TYPE PIC XX. 05 WS-NO-OF-REC PIC 99 VALUE 0. 01 PROGRAM-TEMP-CALC-FIELDS. 05 WS-TOT-VALUE PIC 9(8)V99. 01 PROGRAM-ACCUMS. 05 L1-ACCUMS. 10 L1-QOH-ACCUM PIC 999 VALUE 0. 10 L1-VALUE-ACCUM PIC 9(9)V99 VALUE 0. 05 L2-ACCUMS. 10 L2-QOH-ACCUM PIC 999 VALUE 0. 10 L2-VALUE-ACCUM PIC 9(9)V99 VALUE 0. 05 L3-ACCUMS. 10 L3-QOH-ACCUM PIC 999 VALUE 0. 10 L3-VALUE-ACCUM PIC 9(9)V99 VALUE 0. 05 LR-ACCUMS. 10 LR-QOH-ACCUM PIC 999 VALUE 0. 10 LR-VALUE-ACCUM PIC 9(9)V99 VALUE 0.
Background image of page 1

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

View Full DocumentRight Arrow Icon
01 H1. 05 F PIC X(44) VALUE 'ZOO INVENTORY REPORT BY GROUP, SPECIES, TYPE'. * 05 H1-MM PIC 99. * 05 F PIC X VALUE '/'. * 05 H1-DD PIC 99. * 05 F PIC X VALUE '/'. * 05 H1-YY PIC 99. * 05 F PIC X(16). 05 F PIC X(9). 05 H1-DATE PIC X(20). 05 F PIC X(5) VALUE 'PAGE '. 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 / 6

LAB5 - IDENTIFICATION DIVISION. PROGRAM-ID. LAB5. 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