MVSFORUMS.com

[viswanathan]

I had asked to change the usage of SEARCH in the cobol program with SEARCH ALL.

Existing Code:

[dbzTHEdinosauer]

what is AB as in AND AB-INDUSTRY(AB-IDX) = AB?
have you 30000 items?
With what did you initialize the Binary-Seached table before populating from your cursor?
Spaces? should have used High-Values.

and next time use code tags instead of coloring and size,
one of the moderators has edited your post for you.
you are lucky that I even responded; reading your post was a real pain.
It is only because it was such an easy problem.
_________________
Dick Brenholtz
American living in Varel, Germany

[dbzTHEdinosauer]

I imagine that your requirement is based on speeding up the module.
Using ODO would even make the Binary Search more effecient,
as well as rendering the initialization of the table unnecessary.

and of course, the reason that it was easy to determine the problem:
made the same mistake myself, once.
_________________
Dick Brenholtz
American living in Varel, Germany

[viswanathan]

Hi dbzTHEdinosauer,

Thanks for your reply. Hereafter, I will take care of posting the code with corresponding code tags.

I had initialized the binary table with LOW-VALUES. I shall try initializing with HIGH-VALUES and let you know the results.

'AND AB-INDUSTRY(AB-IDX) = AB' - I am not supposed to copy the exact code, so I have just pasted the syntax of what I am trying to achieve. It is to check whether the value 'AB' is present in the binary search table. Also, Binary Search internal table will have around 26500 records.


Thank you so much for the moderator for changing my post in more readable format.

[dbzTHEdinosauer]

read how a binary search is performed.
afterwards you will understand why init with low-values and not high-values is your problem,
and why and ODO would be faster to search.
_________________
Dick Brenholtz
American living in Varel, Germany