i have two file, each file having :
file1 is having 2 fields
field1 field2
file2 is having 3 fields
field1 field2 field3
my req is to make it one file like:
field1 field2 field1 field2 field3
if anyone know please send me syntax, i tried this with
DFSORT but could not succeed.
- 9 Answers
- 14850 Views
- Syntel, I also Faced
- E-Mail Answers
Answer Posted / asmara
THRU SORTING AND MERGING IT WILL BE POSSIBLE
IF IT ALREADY SORTED MEANS DO THE MERGING OF TWO FILES,
HERE I AM GIVING THE PROGRAM HOW TO STORE ALL THOSE IN ONE
PROGRAM
IDENTIFICATION DIVISION.
PROGRAM-ID. MERGEFILES.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STUDENTFILE ASSIGN TO "STUDENTS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
SELECT DEPARTMENTFILE ASSIGN TO "TRANSINS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
SELECT NEWSTUDENTFILE ASSIGN TO "STUDENTS.NEW"
ORGANIZATION IS LINE SEQUENTIAL.
SELECT WORKFILE ASSIGN TO "WORK.TMP".
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STUDENTFILE.
01 STUDENTREC PIC X(30). // THIS IS THE STUDENT REC AS FILE1
FD DEPARTMENTFILE.
01 DEPARTMENTREC PIC X(30).// THIS IS THE DEPT. REC AS FILE2
FD NEWSTUDENTFILE.
01 NEWSTUDENTREC PIC X(30).//THIS IS THE FILE3 IN WHICH YOU
ARE GOING TO STORE THE TWO FILE DETAILS
SD WORKFILE.
01 WORKREC.
02 STUDENTIDWF PIC 9(7).
02 FILLEER PIC X(23).
PROCEDURE DIVISION.
/*HERE I AM MERGING THE TWO FILES AND STORING IN
NEWSTUDENTFILE.*/
BEGIN.
MERGE WORKFILE
ON ASCENDING KEY STUDENTIDWF
USING INSERTIONSFILE, STUDENTFILE
GIVING NEWSTUDENTFILE.
STOP RUN.
---IF I AM WRONG INFORM ME. THANKS
| Is This Answer Correct ? | 1 Yes | 3 No |
Post New Answer View All Answers
How to remove 2 duplicate records and copy only one using job control language?
What is the difference between perform … with test after and perform … with test before?
how do you reference the ksds vsam file formats from cobol programs
How do define dynamic array in cobol.
how can i see junk values in dclgen or in hostvariable of comp ?
What are the different open modes available in cobol?
What is inspect in cobol ?
Explain about different table spaces.
What are the pertinent COBOL
What rules are to be followed while using the corresponding options?
Write a program to enter and display the names of students in a class using the occurs clause.
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
Which is not true about evaluate statement
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
