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
- 16176 Views
- Syntel, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / visitor
FD FILE1
01 FILE1-REC
05 FIELD1 PIC X(3)
05 FIELD2 PIC X(3)
FD FILE2
01 FILE2-REC
05 FIELD1 PIC X(3)
05 FIELD2 PIC X(3)
05 FIELD3 PIC X(3)
FD FILE3
01 FILE3-REC
05 FELD1 PIC X(3)
05 FELD2 PIC X(3)
05 FELD1 PIC X(3)
05 FELD2 PIC X(3)
05 FELD3 PIC X(3)
PROCEDURE DIVISION
oPEN INPUT FILE1
FILE2
OUTPUT FILE3
READ FILE1
READ FILE2
WRITE FILE3-REC FROM FILE1-REC,FILE2-REC.
STOP RUN.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / sumanth toom
Quikjob is best for your case. (if your company has this
mainframe tool. It is a JCL tool similar to a SORT).
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / sruthi
By using move reference modification it is very simple.
first open 2 input files and 1 output file.read 2 input
files.write the logic as following.
move filerec1 to filerec3(1:10).
move filerec2 to filerec3(11:10).
write filerec3.
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / thavasi
Simple and Best answer to your requirement is ICETOOL with
SPLICE operator. It will get you the expected result with
very less no of line of coding.
I had a requirement like this a year before and generated
the o/p using ICETOOL.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / shailendra
i think the last ans will give som error due the same
varable name is declare in the same level in fd file3.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / viks
Hi Asmara i think u didnt get my question asking
for.Actually my requirement is to not only merge all 5
fields but they shud come in 1 row(2 flds from file 1 and 3
flds from file 2) into file3(output file)
file1 is having 2 fields
field1 field2
123 234
file2 is having 3 fields
field1 field2 field3
456 678 789
output file3
Fld1 fld2 fld1 fld2 fld3
123 234 456 678 789
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / navatha
declare field1,field2(file3rec1) in 1 group then
field1,field2,feild3 in another group(file3rec2) then
declare it as whole record then using reference
modification u can do as
move filerec1 to file3rec1(1:10)
move filerec2 to file3rec2(1:10)
write file3
i think this will get ur answer............
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / sivakumar sekharannair
Have an output file with 5 fields
Output file layout
field1field2filed3field4field5
MOVE FIELD1 OF FILE1 TO FIELD1 OF OUTPUT
MOVE FIELD2 OF FILE1 TO FIELD2 OF OUTPUT
MOVE FIELD3 OF FILE1 TO FIELD3 OF OUTPUT
MOVE FIELD1 OF FILE1 TO FIELD4 OF OUTPUT
MOVE FIELD2 OF FILE1 TO FIELD5 OF OUTPUT
WRITE OUPUT FILE
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / 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 |
What are INPUT PROCEDURE and OUTPUT PROCEDURE?
how you read control card into array?
hie everyone.i just completed my b.tech in electronics and joined mainframes course.am i doing right course for my better future?please help me with your suggestions.ill be very thankful to you guys.
consider the following piece of code 01 GROSS-PAY 05 BASIC-PAY PIC 9(5) 05 ALLOWENCES PIC 9(3) if BASIC-PAY has a value 1000 and ALLOWENCES has a value of 250,what will be displayed by the statement DISPLAY GROSS-PAY a.1250 b.01000250 c.01250 d.1.250
WHAT IS SOC3?HOW IT CAN BE RESOLVED?
How do pass the values to the parameters in cobol
There is a production file which has millions of records in it.The program that uses it ends up with an SOC7 abend.It is sure that the abend is due to some invalid data in the file.Is there any way to debugg the SOC7 abend with out giving displays? I need the record which is cause for the abend.
I have one ps file in which there are 3 fileds emp_no,emp_name and leave_app.this ps file information give the detail of employee which is going to apply for leave.suppose emp_no=113430,emp_name=ajay,leave_app=1 that means he is going to apply for 1 day leave.and accordingling the table in db2 will be updated means if he has that no of leave in his account then he will get dat leave and updated acc. in table(leave_balance=previous leave present in table-leave_app).Now i want to check whther the updated result is correct or not by comparing the two ps file using IEBCOMPARE or icetool so what is going to be the two ps file and how its is going to be compare.
How can we increase the size of an existing PDS to include more no. of modules.
What is the difference between SEARCH and SEARCH ALL?
How are the next sentence and continue different from each other?
what will be the output when a)pic 9(6)value 000178 is moved to pic ***,***. b)pic 9(5) value 57397 is moved to pic $$,$$9.
COBOL 
