Calling TBINDX from COBOL

The following is a sample of a TBINDX subroutine written in COBOL.

CALL 'TBINDX' USING        TABLE-DEFN
                           TABLE
                           TAG-TABLE
                           SEARCH-KEY
                           ROW-WA.