Merge Two Files. - General Programs Source Code in COBOL

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

1639 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » COBOL Home » General Programs Home » Merge Two Files.

A D V E R T I S E M E N T

Title	Merge Two Files.
Author	Rakshith
Author Email	rockmca [at] gmail.com
Description	Program to merge two files.
Category	COBOL » General Programs
Hits	394522
Code	Select and Copy the Code
IDENTIFICATION DIVISION. PROGRAM-ID. FILE. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL SELECT IN-FILE1 ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. SELECT IN-FILE2 ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. SELECT O-FILE ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. SELECT S-FILE ASSIGN TO DISK. DATA DIVISION. FILE SECTION. FD IN-FILE1 VALUE OF FILE-ID IS "ZONE1.TXT" LABEL RECORDS ARE STANDARD DATA RECORD IS IN1-REC. 01 IN1-REC. 02 IN1-ZNAME PIC X(15). 02 IN1-DNAME PIC A(25). 02 IN1-SNAME PIC A(20). 02 IN1-PNAME PIC X(10). 02 IN1-AMT PIC 9(4)V99. FD IN-FILE2 VALUE OF FILE-ID IS "ZONE2.TXT" LABEL RECORDS ARE STANDARD DATA RECORD IS IN2-REC. 01 IN2-REC. 02 IN2-ZNAME PIC X(15). 02 IN2-DNAME PIC A(25). 02 IN2-SNAME PIC A(20). 02 IN2-PNAME PIC X(10). 02 IN2-AMT PIC 9(4)V99. FD O-FILE VALUE OF FILE-ID IS "MERGED.TXT" LABEL RECORDS ARE STANDARD DATA RECORD IS O-REC. 01 O-REC. 02 O-ZNAME PIC X(15). 02 O-DNAME PIC A(25). 02 O-SNAME PIC A(20). 02 O-PNAME PIC X(10). 02 O-AMT PIC 9(4)V99. SD S-FILE DATA RECORD IS S-REC. 01 S-REC. 02 S-ZNAME PIC X(15). 02 S-DNAME PIC A(25). 02 S-SNAME PIC A(20). 02 S-PNAME PIC X(10). 02 S-AMT PIC 9(4)V99. WORKING-STORAGE SECTION. 01 CHOICE PIC X VALUE SPACE. 01 CHOICE1 PIC X VALUE SPACE. 01 EOF PIC X. 01 HD1. 02 FILLER PIC X(30) VALUE SPACES. 02 FILLER PIC X(20) VALUE "MARKETING DETAILS". 02 FILLER PIC X(30) VALUE SPACES. 01 HD2. 02 FILLER PIC X(15) VALUE "ZONE NAME". 02 FILLER PIC X(25) VALUE "DST-NAME". 02 FILLER PIC X(20) VALUE "SLSMN NAME". 02 FILLER PIC X(10) VALUE "PRD NAME". 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(6) VALUE "AMOUNT". 01 HD3. 02 FILLER PIC X(80) VALUE ALL "-". PROCEDURE DIVISION. MAIN-PARA. MOVE 8 TO LIN. PERFORM OPEN1-PARA. PERFORM ACCEPT1-PARA UNTIL CHOICE = "N". PERFORM CLOSE1-PARA. PERFORM OPEN2-PARA. PERFORM ACCEPT2-PARA UNTIL CHOICE1 = "N". PERFORM CLOSE2-PARA. DISPLAY(1, 1) ERASE. DISPLAY HD1. DISPLAY HD3. DISPLAY HD2. DISPLAY HD3. PERFORM MRG-PARA. PERFORM OPEN-PARA. PERFORM READ-PARA. PERFORM DISPLAY-PARA UNTIL EOF = "Y". PERFORM CLOSE-PARA. STOP RUN. OPEN1-PARA. OPEN OUTPUT IN-FILE1. OPEN2-PARA. OPEN OUTPUT IN-FILE2. OPEN-PARA. OPEN INPUT O-FILE. ACCEPT1-PARA. DISPLAY "ZONE 1 DETAILS". MOVE SPACES TO IN1-REC. DISPLAY " ENTER THE ZONE NAME ". ACCEPT IN1-ZNAME. DISPLAY " ENTER THE DISTRICT NAME ". ACCEPT IN1-DNAME. DISPLAY " ENTER THE SALESMAN NAME ". ACCEPT IN1-SNAME. DISPLAY " ENTER THE PRODUCT NAME ". ACCEPT IN1-PNAME. DISPLAY " ENTER THE AMOUNT ". ACCEPT IN1-AMT. WRITE IN1-REC. DISPLAY " DO U WANT TO CONTINUE ". ACCEPT CHOICE. ACCEPT2-PARA. DISPLAY "ZONE 2 DETAILS". MOVE SPACES TO IN2-REC. DISPLAY " ENTER THE ZONE NAME ". ACCEPT IN2-ZNAME. DISPLAY " ENTER THE DISTRICT NAME ". ACCEPT IN2-DNAME. DISPLAY " ENTER THE SALESMAN NAME ". ACCEPT IN2-SNAME. DISPLAY " ENTER THE PRODUCT NAME ". ACCEPT IN2-PNAME. DISPLAY " ENTER THE AMOUNT ". ACCEPT IN2-AMT. WRITE IN2-REC. DISPLAY " DO U WANT TO CONTINUE ". ACCEPT CHOICE1. MRG-PARA. MERGE S-FILE ON ASCENDING KEY S-ZNAME USING IN-FILE1 IN-FILE2 GIVING O-FILE. READ-PARA. READ O-FILE AT END MOVE "Y" TO EOF. DISPLAY-PARA. COMPUTE LIN = LIN + 1. DISPLAY (LIN , 1) O-ZNAME. DISPLAY (LIN , 16) O-DNAME. DISPLAY (LIN , 41) O-SNAME. DISPLAY (LIN , 61) O-PNAME. DISPLAY (LIN , 72) O-AMT. PERFORM READ-PARA. CLOSE1-PARA. CLOSE IN-FILE1. CLOSE2-PARA. CLOSE IN-FILE2. CLOSE-PARA. CLOSE O-FILE.

Related Source Codes

Script Name Author

sandeep kumar singh

COBOL ON-SCREEN CALCULATOR (Mini Project) Stephen Rendell

Learn Cobol in a Day C.KUMARESAN

my atm (Mini Project) sandeep kumar singh

Naveen Chandran P.K

Program of USSR naval stock list Jai Ganesh

PRIME NUMBER Grace Hill

Date Difference in Mainframe COBOL Muruganandham

Sequential File - Health Care C.KUMARESAN

Task for the day program. Rama Murthy M

FIBONACCI series Abir Pathak

PRIME NUMBER Grace Hill

Harmonic Series Abir Pathak

Cobol sequential file program. b.s.prakash

Introduction to COBOL. B.S.prakash

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.