Interested to Buy Any Domain ? << Click Here >> for more details...
We are using the searching a table which is indexed, once
the key is found, how can we get the occurance at which the
key was found.
- 1 Answers
- 4492 Views
- I also Faced
- E-Mail Answers
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.
| Is This Answer Correct ? | 5 Yes | 0 No |
How do you differentiate between cobol and cobol-ii?
If a file has 1000 records.. if i have to replace the first and last characters of the file with another character. how it can be done....
can we read in input the file with a variable length ? please , how ..could you help me ?
There is a production file which has millions of records in it.The program that uses it ends up with an SOC7 abend.It is sure that the abend is due to some invalid data in the file.Is there any way to debugg the SOC7 abend with out giving displays? I need the record which is cause for the abend.
What is Alternate Index ? How is it different from regular index ?
I have a variable account-number declared as comp-3, s9(10) comp-3 in a file. How do i find a particular account number say 123456 in that file?
What are the two search techniques ?
which of the following can be used as a check protection symbol a.Z b.S c.* d.+
I hav vari declaration like..... 77 a pic s9(9).99. 77 b pic s9(9).99 comp. 77 c pic s9(9).99 comp-3. if i use MOVE 123456789.99 to a,b,c what happen every one working fine ?
what is record label is empty or standard in file description of data division?
can you declare redefine in level 01?
Size of a column has been changed in DB2 table (Suppose it was of 5 characters and later changed to 4 characters) and forgot to change the DCLGEN in COBOL program, what will happen during the execution of code? If the program Abends then what will be the error? If it doesn't abend then hpw the error can be catched?
COBOL 
