Answer / ram g

we can achieve this through jcl icetool utility..

but in cobol its not that easy but possible...

consider the scenario...

file 1 file2
5 2
4 1
6 9
1 4

considering this flat seq file:
here the files are not sorted in order and need not be..
so we should take first record from file1 and match with
all the four records in file2 it should continue for end of
file and do the same for file2. can use array logic.
sorting logic in cobol wont be useful here..

Answer / ravi

JOB INPUT (INFILE1 KEY (INFIL1-ID) +
INFILE2 KEY (INFIL2-ID))
IF MATCHED
PUT OUTFILE1
ELSE
IF INFILE2
OUT1-REC = INFIL1-REC
PUT OUTFILE2
ELSE
OUT1-REC = INFIL2-REC
PUT OUTFILE2

END-IF
END-IF
.

Answer / raj

plz send program to this ? any one(matching logic)

if one main program ,n -subprograms are then which call you follow ?why reasonuhg

4 Answers   UHG,

---

which one is the best of com and com-3.using of real time ?

7 Answers   Cap Gemini,

---

whn do i get soc7 abend while moving alphanumeric to numeric or while moving numeric to aplhanumeric please reply ASAP?

9 Answers  

---

What is diff betn PS and ESDS file? What is the diffrent compiler options in cobol and there discription? What is retrive nth maximum salary from salary DB2 table. Can we redefine COM-3 variable with varchar variable?

4 Answers  

---

In COBOL CALL-CALLING,if a program A is calling 3 sub- programs, dynamically, then it is said sub-programs will always will always in Initial Mode. My question is : Do we need to code CANCEL or (IS INITIAL) for dynamically called sub-programs or it is the property of Dynamically called pgms so every time sub-pgms are called they will be in initial mode. ***This question is only Dynamic call****, Please reply. Thank you in advance.

4 Answers   Wipro,

---

How do we get current date from system with century in COBOL?

0 Answers   Winsol Solutions,

---

If we use GO BACK instead of STOP RUN in cobol?

1 Answers   Temenos,

---

I have a sequential file of 100 records. How do I load the records into a two dimensional array ?

3 Answers   IBM, Xansa,

---

What is the meaning of 'Eject' verb in cobol?

2 Answers   TCS, Wipro,

---

what if any ,is the syntex error in the following piece of code 01 B PIC A(7) 02 C PIC 9(4) ........ IF(B NUMERIC) ADD 10 TO C a.the condition in the if statement is wrong b.noting is wrong c.because C is initialised.ADD 10 TO C is wrong d.both B and C shoud have same size.

5 Answers   TCS,

---

what are the isolation levels and where we use it in the db2 program

3 Answers   TCS,

---

01 var1 pic x(10) 01 var2 redefines var1 pic 9(10). then in procedure division move 'abcde' to var1 then waht is the value of var1 and var2

9 Answers   HSBC,

---