COBOL “Search” and “Search all” learn now how to write in program

As you aware that SEARCH and SEARCH ALL both are COBOL reserved words. You can use these two to search COBOL internal tables or arrays. How to code these two and key differences is a question. This has been asked many times in interviews.

Search vs Search all differences

Search in COBOL
Photo Credit: Srini

SEARCH Syntax in COBOL

SET DIV-IX TO 1.
SEARCH DIVISION-ENTRY
AT END
   MOVE 8 TO ORG-SUB
   WHEN ORD-RECIPIENT = DIVISION-CODE (DIV-IX)
        SET ORG-SUB TO DIV-IX.
   ADD 1 TO DIVISION-COUNT (ORG-SUB).
      COMPUTE DIVISION-AMOUNT (ORG-SUB)
      = DIVISION-AMOUNT (ORG-SUB) + (ORD-ITEM-COUNT * ORD-ITEM-RATE)
END-SEARCH

Search Vs Perform Varying in COBOL

Search in COBOL

  • SEARCH can be used in COBOL program to search an internal table
  • In SEARCH statement, always need to give AT END prior to WHEN
  • We should not give NOT-WHEN or WHEN OTHER in SEARCH. The AT END will take care of this
  • SEARCH does serial search on the table
  • Another available options is : SEARCH internal-table VARYING index-name This you can use if you declared a table with multiple indexes. But the “index-name” will get priority, however order indexes are declared in a table.

PERFORM VARYING in COBOL

PERFORM
VARYING DIV-IX
FROM 1 BY 1
UNTIL ORG-RECIPIENT = DIVISION-CODE (DIV-IX)
OR DIV-IX > 7
CONTINUE
END-PERFORM.
SET ORG-SUB TO DIV-IX.
ADD 1 TO DIVISION-COUNT (ORG-SUB).
COMPUTE DIVISION-AMOUNT (ORG-SUB)
= DIVISION-AMOUNT (ORG-SUB)
+ (ORD-ITEM-COUNT * ORD-ITEM-RATE).

When to use Search

If there are more than ’50’ items in a Table, then, SEARCH is good.

Search all
Photo Credit: Srini

SEARCH ALL in COBOL

  • Table must be either in Ascending or Descending
  • When clause can use only with “=”
  • Always need to give in the order: WHEN test-field (DIV-IX) = receiver-field
  • VARYING clause is not allowed in SEARCH ALL
  • Only “AND” is allowed. The “OR” is NOT allowed
  • If there are fewer item in a table “up to 25”, then, SEARCH ALL is good.
  • SEARCH ALL -does binary search on the table
Advertisements

Author: Srini

Experienced software developer. Skills in Development, Coding, Testing and Debugging. Good Data analytic skills (Data Warehousing and BI). Also skills in Mainframe.