LAB2A - IDENTIFICATION DIVISION. PROGRAM-ID. LAB2A. AUTHOR....

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

View Full Document Right Arrow Icon
IDENTIFICATION DIVISION. PROGRAM-ID. LAB2A. AUTHOR. L TRAVIS KEETON. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ZOO-FILE ASSIGN TO DISK 'ZOO.DAT' ORGANIZATION IS LINE SEQUENTIAL. SELECT PRINT-FILE ASSIGN TO PRINTER 'ZOO.DOC'. DATA DIVISION. FILE SECTION. FD ZOO-FILE. 01 ZOO-RECORD. 05 I-ID PIC 999999. 05 I-SPECIES PIC XX. 05 I-TYPE PIC XX. 05 I-GROUP PIC 99. 05 I-SEX PIC X. 05 I-QOH PIC 999. 05 I-VALUE PIC 999999V99. FD PRINT-FILE. 01 PRINT-RECORD PIC X(79). WORKING-STORAGE SECTION. 01 MISC. 05 EOF PIC X VALUE 'N'. 01 PROGRAM-TEMP-CALC-FIELDS. 05 WS-TOT-VALUE PIC 9(8)V99. 01 DL. 05 DL-ID PIC 9(6). 05 F PIC XXX. 05 DL-GROUP PIC X(7). 05 F PIC XXX. 05 DL-SPECIES PIC X(8). 05 F PIC XXX. 05 DL-TYPE PIC X(11). 05 F PIC XXX. 05 DL-SEX PIC X. 05 F PIC XXX. 05 DL-VALUE PIC ZZZ,ZZZ.99. 05 F PIC XXX. 05 DL-QOH PIC 9(2). 05 F PIC XXX. 05 DL-TOTAL PIC ZZ,ZZZ,ZZZ.99. PROCEDURE DIVISION. 000-MAIN-DRIVER.
Background image of page 1

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

View Full DocumentRight Arrow Icon
Image of page 2
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 / 3

LAB2A - IDENTIFICATION DIVISION. PROGRAM-ID. LAB2A. AUTHOR....

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

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