The following is a sample of a TBINDX subroutine written in COBOL.
CALL 'TBINDX' USING TABLE-DEFN
TABLE
TAG-TABLE
SEARCH-KEY
ROW-WA.