LAB3A - PIC X(24). SD SORTWORK-FILE. 01 SORTWORK-RECORD. 05...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
IDENTIFICATION DIVISION. PROGRAM-ID. LAB3A INITIAL. AUTHOR. TRAVIS KEETON. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ZOO-FILE ASSIGN TO DISK 'ZOO.DAT' ORGANIZATION IS LINE SEQUENTIAL. SELECT SORTWORK-FILE ASSIGN TO DISK 'TEMP'. SELECT SORTED-ZOO-FILE ASSIGN TO DISK 'ZOO.SRT' ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD ZOO-FILE. 01 ZOO-RECORD
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: PIC X(24). SD SORTWORK-FILE. 01 SORTWORK-RECORD. 05 S-ID PIC 9(6). 05 S-SPECIES PIC X(2). 05 S-TYPE PIC X(2). 05 S-GROUP PIC X(2). 05 F PIC X(12). FD SORTED-ZOO-FILE. 01 SORTED-ZOO-RECORD PIC X(24). PROCEDURE DIVISION. 000-MAIN-DRIVER. SORT SORTWORK-FILE ON ASCENDING KEY S-GROUP, S-SPECIES, S-TYPE USING ZOO-FILE GIVING SORTED-ZOO-FILE. GOBACK....
View Full Document

Ask a homework question - tutors are online