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.

hi friends,can any one post the ibm mainframe inteqview questions for 1year exp candidate,for itc infotech interview?. have any body attended for this in the past?...

1 Answers   ITC Infotech,

---

When search all is used in cobol program without sorted input data?

6 Answers   CGI, Principal Finance,

---

I encountered an error when I move spaces to a numeric field?What should I do to move spaces on that field?help please.

9 Answers  

---

How to print 10 to 1 if the input have only 10 digit number?

0 Answers  

---

if a=b how the flow will complete??? perform test through test-exit. perform activa through activa-exit. test. if a=b then next sentence else move a to c. test-exit. exit. activa. -- -- activa-exit. exit.

1 Answers   IBM,

---

which is better comp or comp-3 in terms of memory utilization?

6 Answers  

---

I want ALL jcl ERROR cods

1 Answers  

---

what is the advantage of using redefines instead of delaring the variables ?

5 Answers   HCL,

---

What is file status 92?

3 Answers  

---

What type of Call you would use if you don;t want the control back to the calling program?

8 Answers   TCS,

---

How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?

0 Answers  

---

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  

---