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.

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.

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.....

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 !!!

Answer / arpan

Open File 1 in 3.4.
Give command COMP 'FILE2'. It will give you the extra
record in file2.

Answer / kssb78

1. Use 3.13 option to find the different record

Answer / kamal

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.

Read filea And file b write the same records in both files? Records in a but not in b record in b but not in a

3 Answers   TCS,

Will the variable POS in the following code have a value of 2 or not? 01 POS PIC S9(4) COMP VALUE 2. 01 FIRST-NAME PIC X(10) VALUE 'ABC'. 01 LAST-NAME PIC X(10) VALUE 'XYZ'. 01 NAME PIC X(20) VALUE SPACES. STRING FIRST-NAME DELIMITED BY SPACES ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACES INTO NAME WITH POINTER POS

2 Answers  

how to access the file from prodution from changeman tool and to submit a file to production

1 Answers   IBM,

I HAVE FOLLOWING DECLARATION. 02. A PIC X(10) VALUE 'XXXXXXXXXX'. 02. B REDEFINES A. 05. C PIC X(3). 05. D PIC X(3). 05. E PIC 9(3). IN MY PROG, I HAVE MOVE 1 TO E. DISPLAY A. WHAT WILL BE DISPLAYED AS A RESULT OF THIS? PLEASE EXPLAIN THE ANSWER. THANKS.

7 Answers   Amdocs,

I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?

0 Answers  

can we print comp 3 stmts how ?

3 Answers   Accenture, TCS,

01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to find the value of last index of text-data?

3 Answers   Mind Tree,

01 a pic s9(5) occupies how many bytes ?

9 Answers   Wipro,

What is the output generated by the following code? 01 GRP-I. 05 SUBFLD1 PIC XX VALUE "AB". 05 FILTER PIC X(6) VALUE SPACES. 01 GRP-2 REDEFINED GRP-1. 05 SUB-FLD2 PIC XX. 05 SUB-FLD3 PIC XX. 05 FILTER PIC X(4). IF SUB-FLD1 NOT = SPACES DISPLAY "SUBFLD1" MOVE "ABBCCD" TO GRP-1 IF SUB-FLD3 = SPACES DISPLAY "SPACES" ELSE DISPLAY "SUBFLD3" DISPLAY "END" ELSE DISPLAY "SPACES" DISPLAY "END". (a) SUBFLD1 SUBFLD3 END (b) SPACES END (c) SUBFLD1 END (d) SUBFLD1 SPACES

7 Answers   TCS,

How can i write a comp-3 variable into a sequential file should i declara the field in the file description as comp- 3?

1 Answers  

What do you feel makes a good program?

2 Answers  

What is IMPACT analysis?

2 Answers   IBM,