1. Categories >> Software >> MainFrame >> IBM MainFrame >> COBOL
  2. Suggest New Category

Suppose, file A has 100 records and file B has 500 records. We
want to write records common to both A and B into file C and
records which are present only in either A or B into another file D.
What should be the logic of Cobol program to achieve this?

Question Posted / shivendusingh

Answers were Sorted based on User's Feedback



Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / m

correction to #3
sort files Asc

if f1 = f2
move file1-rec to file3-rec. write file3-rec
read f1 & f2.
if f1 < f2
move file1-rec to file4-rec. write file4-rec.
read f1.
if f1 > f2
move file2-rec to file4-rec. write file4-rec
read f2.

Is This Answer Correct ?    11 Yes 1 No

Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / karan

If we do not want to go with cobol then it can be easily
done with SORT, ICETOOL( Splice option) which i feel is
faster and simpler instead of writing a compare program.
If there is a compultion to use a cobol pgm then soln will
be -
PERFORM untill (EOF A and EOF B)
if f1 = f2
move file1-rec to file3-rec. write file3-rec
read f1 & f2.
if f1 < f2
move file1-rec to file4-rec. write file4-rec.
read f1.
if f1 > f2
move file2-rec to file4-rec. write file4-rec
read f2.
END PERFORM

IF EOF A and not EOF B
PERFORM until EOF B
move move file2-rec to file4-rec.
write file4-rec
read f2.
END PERFORM
ElSE
IF EOF B and not EOF A
PERFORM until EOF A
move move file1-rec to file4-rec.
write file4-rec
read f1.
END PERFORM
END

note: files should be in sorted order ASC before program
runs.
This is a generic solution to al such compare programs.

Is This Answer Correct ?    5 Yes 1 No

Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / suresh

sort the file by using key...and perform matching logic

Is This Answer Correct ?    0 Yes 0 No

Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / shrik

Sort both file A and B using the Key in ascending order..
Then read File A and B..
Compare records read frm A and B
If found Equal write into File C (common records)
If NOT write into file D

Is This Answer Correct ?    6 Yes 8 No

Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / hardik dave

Use SYNCSORT and you will get all matching records in one
file and all those non matching records in another. Just
read more on SYNCSORT and you will be clear.

Is This Answer Correct ?    3 Yes 6 No

Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / anji

I think this is partially right. after accessing 100 records
program is abended. And how to send remaining B file records
into file D.. send me ans plz..

Is This Answer Correct ?    0 Yes 3 No

Suppose, file A has 100 records and file B has 500 records. We want to write records common to both..

Answer / vinod

if f1 = f2
move file1-rec to file3-rec
write file3-rec
if f1 < f2
move file2-rec to file4-rec
write file4-rec.
if f1 > f2
move file1rec to file4-rec
write file4-rec

Is This Answer Correct ?    2 Yes 6 No

Post New Answer

More COBOL Interview Questions

What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?

0 Answers   TryTechnicals Pvt Ltd,

COMP field occupy ?

2 Answers  

What are decleratives in COBOL ?

1 Answers   Xansa,

What will happen if a variable is declared as below.. Explain with an example? Working storage section:- 01 WS-VARX PIC X(9) VALUE SPACES. 01 WS-VARN REDEFINES WS-VARX PIC 9(9).

8 Answers  

Difference between lrecl, blksize among PS, PDS issues? i.e in jcl at dcb

1 Answers  




Why we should use cursor ?

3 Answers  

How you can delete a record from a ps file in cobol?

1 Answers  

What is comp-1 and comp-2?

0 Answers  

01 xxx pic 9(4). 01 yyy pic 9(6). move 123456 into yyy. move yyy to xxx. display yyy. what would be the value of yyy

13 Answers   HSBC,

when SE37 SB37 and sd37 occurs how to increase the volume , primary quantity and secondary quantity?

1 Answers   Hewitt,

Can the OCCURS clause be at the 01 level?

2 Answers  

How to pass return codes from cobol to jcl?

5 Answers  

For more COBOL Interview Questions Click Here
Categories