Answer / shobhit

Initialize the index and a variable to 1 before search.

SET IDX VAR-POS TO 1.

SEARCH TABLE VARYING VAR-POS
AT END DISPLAY "Not Found"
WHEN TABLE(IDX) = <SEARCH STRING>
MOVE VAR-POS TO RESULT-VAR
DISPLAY "FOUND AT POSITION" RESULT-VAR
END-SEARCH.

Now the position is available in the variable RESULT-VAR.

wht is packed decimal in cobol

2 Answers  

---

Consider the following code: 77 A PIC 99V99 VALUE 55.35 77 B PIC 99V999 VALUE 32.754 ADD B TO A ON SIZE ERROR DISPLAY "ERROR!!!" What will be the result ? (a) A=88.10, B=32.754 (b) A=87.00 B=32.754 (c) A=87.10 B=32.754 (d) ERROR!!! will be DISPLAYed on the screen.

3 Answers   TCS,

---

COMP-3 field occupy ?

8 Answers  

---

i have variable record in the 5th, i want to sort from 5th filed ? how ?

2 Answers   TCS,

---

How to remove 2 duplicate records and copy only one using job control language?

0 Answers  

---

I have a field with data type X(10). I want to perform arithmetic operation on this field? I tried doing it by moving the value into a numeric field. but it didn't work out. I am getting a S0C7 abend. Pls let me know if there is any way of getting this done?

2 Answers   ADP,

---

in a indexed file what is procedure for read the records from 12 to 18. please give the code example

2 Answers   L&T,

---

I hv ten records in ps file and i hv say some 15 records in vsam file .i hv empno and age in ps file n empno,empname,dept n desig in vsam file. i hv 2 read the ps file n check wid matching empno in vsam file and then insert all fields from ps and vsam into db2 table....plz help in writin the procedure division

1 Answers  

---

Hi, My interviewer ask A calls B and C calls B, a and b are static c and b are dynamic.what happens if they compile and execute at same time.

3 Answers   iGate,

---

What is the difference between Perform para and perform asaection in cobol?

3 Answers   TCS,

---

What are the different open modes available in cobol?

0 Answers  

---

whats the disadvantage of search all over search?

4 Answers   Patni, TCS,

---