In file1 have 80 records are like d1,d2,d3......D80. File2 have 1000records are like a1d1,a1d2,a3d3.....Etc. I want matching records in file3 ? Plse tell me the matching logic???I want answer only in cobol ?Not using any tool or jcl?
- 1 Answers
- 4416 Views
- CSC, I also Faced
- E-Mail Answers
Answer Posted / animesh
It can be done using internal array table within the cobol program. first we will Move Record file in an aray with same Lrecl as the file1 and having 80 occurence.
Then again for file 2 we will populate another internal array table with 1000 occurence.
perform varying w-v-idx1 from w-k-1 by w-k-1 until
w-v-idx1> 80
perform varying w-v-idx2 from w-k-1 by w-k-1 until
w-v-idx2>1000
If w-v-file1(w-v-idx1) = w-v-file2(idx2)
Set some w-s-count = y
Add +1 to w-s-count
move -w-v-file1(w-v-idx1) to w-v-file3
write file 3 from w-v-file
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
Which Search verb is equivalent to PERFORM…VARYING?
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
I have a program with an Array of 5000 occurences which is being passed from 5 sub levels to the front end screen. Thess 5 programs using each 5*2 = 10 different arrays with size as 5000. This is causing the transaction to utilize more storage consupmtion. I am looking to reduce the storage consumption. As part of that initially i thought Dynamic array may solve my problem. After viewing the comments given i see its same as normal array. IS there any other way we can resolve this issue?
)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?
What is a report item?
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
What are the different rules of SORT operation?
I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue
Discuss about changing dataset name in proc.
What are the various section in data division and briefly explain them.
how do you reference the printer file formats from cobol programs
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this
Differentiate between structured cobol programming and object-oriented cobol programming.
In which area will you utilize 88 level items in cobol?
