If there are two files one with 100 records and other with
101 records. we have to find out the one record that is the
odd man out . What are the steps to do it
- 7 Answers
- 11883 Views
- BirlaSoft, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / ganapathi
I thing that is not correct.SUM FILEDS = NONE will just
ignore the duplicate records.
For acheving this situation first we need to sort both the
files based on the key.Then we need to compare both the
files based on the key.If it is matches fine else write the
key in to another file.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / rajendran
Append 1 to the first file to the first position
Append 2 to the second file to the first position
Now SORT both the file records with option to sum on the
1st character.
at last the odd man record will be the one whose first
character would be "2" for all other it will be "3".
Please let me know if I went wrong somewhere.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / varatharaj
using read command fetch first record from the file1 and compare that record with all records if file2 if any match occur go to second record in file1 compare like this until end of first1 if anyone with out match we can find that is odd man out in files.....
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / prasanna kumar
We can do this by external SORT in JCL
//SORTIN DD DSN=ABC.FILE1 ( that contains of 100 records)
// DD DSN=ABC.FILE2 ( that contains of 101 records)
//SORTOUT DD DSN=ABC.NEWFILE
//SYSIN DD *
SORT FIELDS =(1,4,CH,A) (jst to retreive data in sequence)
SUM FIELDS = NONE ( That eliminates the duplicates and
retrieves the data which is odd in both the files and write
in sort out file)
/*
Any other answers !!!
| Is This Answer Correct ? | 5 Yes | 4 No |
Answer / arpan
Open File 1 in 3.4.
Give command COMP 'FILE2'. It will give you the extra
record in file2.
| Is This Answer Correct ? | 1 Yes | 0 No |
Hi Presannakumar,
We can't compare two files in dfsort.so u first u merge two files and using dfsort in dfsort some fields equal to none means its coming avoid the duplicates,so we can give extra xsum the particular extra record will store xsum dataset.
sync sort we can esily match.
in cobol program matcing logic program we can use and find.
read 2 file at end.
if eno = eno1
move eno to eno3
write rec
if eno > eno1
perform first-para read
write another file
if eno < eno
perform second-para read
write another file.
now the particular record presend in another file.
| Is This Answer Correct ? | 0 Yes | 0 No |
diffrence between renames and redifnes with examples
What is the use of LINKAGE SECTION?
whn do i get soc7 abend while moving alphanumeric to numeric or while moving numeric to aplhanumeric please reply ASAP?
How to Pass table from a cobol program to another cobol program and how to use that table in called program
i have mainprogram and subgram...if i compile mainprogram without stop run..what will u get in compilation time?
What are the different ways to run a COBOL DB2 program using JCL?
With in these three which one is the default one Call Reference, Call By Value, Call By Content.-Which one is default?
What is the reference modification.
What is the significance of 'above the line' and 'below the line'?
01 b pic +9(4) How many bytes it will take for storage???
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?
How many times the loop runs here 01 a pic 9(2) value 10. perform para1 a times stop run. para1: move 20 to a.
COBOL 
