I have files that contains both duplicates files(occur more
than twice) and non-duplicate files.The file is already
sorted by a key.I want to determine those records that are
duplicate and will be move to a duplicate file and non-
duplicate files to be move to a valid file.thank you.help
please
Answer Posted / sowjanya
using jcl,
//ddname1 <- input file
//ddname2 <- outfile1(no duplicates)
//xsum <- outfile2 (duplicate)
//sysin dd *
sort fields=copy
sumfields =none,xsum
/*
| Is This Answer Correct ? | 4 Yes | 1 No |
Post New Answer View All Answers
What is rmode(any) ?
How do u write test cases?
What is redefines clause in COBOL?
Define cobol?
How do you define a variable of comp-1 and comp-2?
How to print 10 to 1 if the input have only 10 digit number?
What is a scope terminator give example?
if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.
What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?
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.
explain sorting techniques in cobol program?
example for sub strings ? and refernce modifications whit output pls
Can we redefine the field of x(200) to less than 200?
Define static linking and dynamic linking.
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)