The END-SEARCH statement represents a fundamental component of table handling and array processing in COBOL, serving as an explicit scope terminator that clearly defines the boundaries of SEARCH statement blocks. This statement embodies modern data structure management principles by providing unambiguous termination points for table search operations, enabling sophisticated search algorithms for complex data structures, and supporting the development of efficient data processing applications that require precise control over table access patterns and search result handling.
In contemporary enterprise COBOL development, END-SEARCH plays a vital role in creating sophisticated data lookup systems that must handle large tables, complex search criteria, and various data organization patterns. By providing explicit termination for SEARCH blocks, this statement enables developers to implement comprehensive table processing logic while maintaining code clarity and ensuring that search operations are properly bounded and controlled within the application's data access flow.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275IDENTIFICATION DIVISION. PROGRAM-ID. END-SEARCH-DEMO. DATA DIVISION. WORKING-STORAGE SECTION. 01 EMPLOYEE-TABLE. 05 EMPLOYEE-COUNT PIC 9(3) VALUE 10. 05 EMPLOYEE-ENTRIES OCCURS 1 TO 100 TIMES DEPENDING ON EMPLOYEE-COUNT ASCENDING KEY IS EMP-ID INDEXED BY EMP-INDEX. 10 EMP-ID PIC X(10). 10 EMP-NAME PIC X(30). 10 EMP-DEPARTMENT PIC X(15). 10 EMP-SALARY PIC 9(7)V99. 10 EMP-HIRE-DATE PIC X(8). 01 DEPARTMENT-TABLE. 05 DEPT-COUNT PIC 9(2) VALUE 5. 05 DEPT-ENTRIES OCCURS 5 TIMES INDEXED BY DEPT-INDEX. 10 DEPT-CODE PIC X(5). 10 DEPT-NAME PIC X(20). 10 DEPT-MANAGER PIC X(30). 10 DEPT-BUDGET PIC 9(9)V99. 01 SEARCH-CONTROLS. 05 SEARCH-KEY PIC X(10). 05 SEARCH-RESULT PIC X VALUE 'N'. 88 ITEM-FOUND VALUE 'Y'. 88 ITEM-NOT-FOUND VALUE 'N'. 05 SEARCH-COUNT PIC 9(5) VALUE 0. 05 SUCCESSFUL-SEARCHES PIC 9(5) VALUE 0. 05 FAILED-SEARCHES PIC 9(5) VALUE 0. 01 PROCESSING-FLAGS. 05 CONTINUE-FLAG PIC X VALUE 'Y'. 88 CONTINUE-PROCESSING VALUE 'Y'. 88 STOP-PROCESSING VALUE 'N'. PROCEDURE DIVISION. MAIN-PROCESSING. PERFORM INITIALIZE-TABLES PERFORM DEMONSTRATE-LINEAR-SEARCH PERFORM DEMONSTRATE-BINARY-SEARCH PERFORM DEMONSTRATE-COMPLEX-SEARCHES PERFORM DISPLAY-SEARCH-STATISTICS STOP RUN. INITIALIZE-TABLES. DISPLAY 'Initializing employee and department tables...' *> Initialize employee table MOVE 'EMP001' TO EMP-ID(1) MOVE 'JOHN SMITH' TO EMP-NAME(1) MOVE 'IT' TO EMP-DEPARTMENT(1) MOVE 75000.00 TO EMP-SALARY(1) MOVE '20220115' TO EMP-HIRE-DATE(1) MOVE 'EMP002' TO EMP-ID(2) MOVE 'JANE DOE' TO EMP-NAME(2) MOVE 'HR' TO EMP-DEPARTMENT(2) MOVE 65000.00 TO EMP-SALARY(2) MOVE '20220301' TO EMP-HIRE-DATE(2) MOVE 'EMP003' TO EMP-ID(3) MOVE 'BOB JOHNSON' TO EMP-NAME(3) MOVE 'FINANCE' TO EMP-DEPARTMENT(3) MOVE 80000.00 TO EMP-SALARY(3) MOVE '20210920' TO EMP-HIRE-DATE(3) MOVE 'EMP004' TO EMP-ID(4) MOVE 'ALICE BROWN' TO EMP-NAME(4) MOVE 'IT' TO EMP-DEPARTMENT(4) MOVE 72000.00 TO EMP-SALARY(4) MOVE '20220510' TO EMP-HIRE-DATE(4) MOVE 'EMP005' TO EMP-ID(5) MOVE 'CHARLIE WILSON' TO EMP-NAME(5) MOVE 'SALES' TO EMP-DEPARTMENT(5) MOVE 68000.00 TO EMP-SALARY(5) MOVE '20220220' TO EMP-HIRE-DATE(5) *> Initialize additional employees MOVE 'EMP006' TO EMP-ID(6) MOVE 'DIANA CLARK' TO EMP-NAME(6) MOVE 'MARKETING' TO EMP-DEPARTMENT(6) MOVE 70000.00 TO EMP-SALARY(6) MOVE 'EMP007' TO EMP-ID(7) MOVE 'EDWARD DAVIS' TO EMP-NAME(7) MOVE 'IT' TO EMP-DEPARTMENT(7) MOVE 78000.00 TO EMP-SALARY(7) MOVE 'EMP008' TO EMP-ID(8) MOVE 'FIONA MILLER' TO EMP-NAME(8) MOVE 'HR' TO EMP-DEPARTMENT(8) MOVE 66000.00 TO EMP-SALARY(8) MOVE 'EMP009' TO EMP-ID(9) MOVE 'GEORGE TAYLOR' TO EMP-NAME(9) MOVE 'FINANCE' TO EMP-DEPARTMENT(9) MOVE 82000.00 TO EMP-SALARY(9) MOVE 'EMP010' TO EMP-ID(10) MOVE 'HELEN ANDERSON' TO EMP-NAME(10) MOVE 'SALES' TO EMP-DEPARTMENT(10) MOVE 69000.00 TO EMP-SALARY(10) *> Initialize department table MOVE 'IT' TO DEPT-CODE(1) MOVE 'INFORMATION TECHNOLOGY' TO DEPT-NAME(1) MOVE 'JOHN SMITH' TO DEPT-MANAGER(1) MOVE 500000.00 TO DEPT-BUDGET(1) MOVE 'HR' TO DEPT-CODE(2) MOVE 'HUMAN RESOURCES' TO DEPT-NAME(2) MOVE 'JANE DOE' TO DEPT-MANAGER(2) MOVE 300000.00 TO DEPT-BUDGET(2) MOVE 'FIN' TO DEPT-CODE(3) MOVE 'FINANCE' TO DEPT-NAME(3) MOVE 'BOB JOHNSON' TO DEPT-MANAGER(3) MOVE 400000.00 TO DEPT-BUDGET(3) MOVE 'SAL' TO DEPT-CODE(4) MOVE 'SALES' TO DEPT-NAME(4) MOVE 'CHARLIE WILSON' TO DEPT-MANAGER(4) MOVE 600000.00 TO DEPT-BUDGET(4) MOVE 'MKT' TO DEPT-CODE(5) MOVE 'MARKETING' TO DEPT-NAME(5) MOVE 'DIANA CLARK' TO DEPT-MANAGER(5) MOVE 350000.00 TO DEPT-BUDGET(5) DISPLAY 'Tables initialized successfully'. DEMONSTRATE-LINEAR-SEARCH. DISPLAY 'Demonstrating linear search operations...' *> Search for specific employee by ID MOVE 'EMP003' TO SEARCH-KEY PERFORM SEARCH-EMPLOYEE-LINEAR MOVE 'EMP007' TO SEARCH-KEY PERFORM SEARCH-EMPLOYEE-LINEAR MOVE 'EMP999' TO SEARCH-KEY *> Non-existent employee PERFORM SEARCH-EMPLOYEE-LINEAR DISPLAY 'Linear search demonstrations completed'. SEARCH-EMPLOYEE-LINEAR. SET ITEM-NOT-FOUND TO TRUE ADD 1 TO SEARCH-COUNT SEARCH EMPLOYEE-ENTRIES AT END DISPLAY 'Employee not found: ' SEARCH-KEY SET ITEM-NOT-FOUND TO TRUE ADD 1 TO FAILED-SEARCHES WHEN EMP-ID(EMP-INDEX) = SEARCH-KEY DISPLAY 'Employee found: ' SEARCH-KEY DISPLAY 'Name: ' EMP-NAME(EMP-INDEX) DISPLAY 'Department: ' EMP-DEPARTMENT(EMP-INDEX) DISPLAY 'Salary: ' EMP-SALARY(EMP-INDEX) DISPLAY 'Hire Date: ' EMP-HIRE-DATE(EMP-INDEX) SET ITEM-FOUND TO TRUE ADD 1 TO SUCCESSFUL-SEARCHES END-SEARCH. DEMONSTRATE-BINARY-SEARCH. DISPLAY 'Demonstrating binary search operations...' *> Binary search requires sorted table (already sorted by EMP-ID) MOVE 'EMP002' TO SEARCH-KEY PERFORM SEARCH-EMPLOYEE-BINARY MOVE 'EMP008' TO SEARCH-KEY PERFORM SEARCH-EMPLOYEE-BINARY MOVE 'EMP000' TO SEARCH-KEY *> Non-existent employee PERFORM SEARCH-EMPLOYEE-BINARY DISPLAY 'Binary search demonstrations completed'. SEARCH-EMPLOYEE-BINARY. SET ITEM-NOT-FOUND TO TRUE ADD 1 TO SEARCH-COUNT SEARCH ALL EMPLOYEE-ENTRIES AT END DISPLAY 'Employee not found (binary): ' SEARCH-KEY SET ITEM-NOT-FOUND TO TRUE ADD 1 TO FAILED-SEARCHES WHEN EMP-ID(EMP-INDEX) = SEARCH-KEY DISPLAY 'Employee found (binary): ' SEARCH-KEY DISPLAY 'Name: ' EMP-NAME(EMP-INDEX) DISPLAY 'Department: ' EMP-DEPARTMENT(EMP-INDEX) DISPLAY 'Salary: ' EMP-SALARY(EMP-INDEX) DISPLAY 'Index position: ' EMP-INDEX SET ITEM-FOUND TO TRUE ADD 1 TO SUCCESSFUL-SEARCHES END-SEARCH. DEMONSTRATE-COMPLEX-SEARCHES. DISPLAY 'Demonstrating complex search operations...' PERFORM SEARCH-BY-DEPARTMENT PERFORM SEARCH-BY-SALARY-RANGE PERFORM SEARCH-MULTIPLE-CONDITIONS DISPLAY 'Complex search demonstrations completed'. SEARCH-BY-DEPARTMENT. DISPLAY 'Searching employees by department: IT' SET EMP-INDEX TO 1 PERFORM UNTIL EMP-INDEX > EMPLOYEE-COUNT SEARCH EMPLOYEE-ENTRIES AT END EXIT PERFORM WHEN EMP-DEPARTMENT(EMP-INDEX) = 'IT' DISPLAY 'IT Employee: ' EMP-NAME(EMP-INDEX) DISPLAY 'ID: ' EMP-ID(EMP-INDEX) DISPLAY 'Salary: ' EMP-SALARY(EMP-INDEX) SET EMP-INDEX UP BY 1 END-SEARCH END-PERFORM. SEARCH-BY-SALARY-RANGE. DISPLAY 'Searching employees with salary >= 75000' SET EMP-INDEX TO 1 PERFORM UNTIL EMP-INDEX > EMPLOYEE-COUNT SEARCH EMPLOYEE-ENTRIES AT END EXIT PERFORM WHEN EMP-SALARY(EMP-INDEX) >= 75000 DISPLAY 'High Salary Employee: ' EMP-NAME(EMP-INDEX) DISPLAY 'ID: ' EMP-ID(EMP-INDEX) DISPLAY 'Salary: ' EMP-SALARY(EMP-INDEX) DISPLAY 'Department: ' EMP-DEPARTMENT(EMP-INDEX) SET EMP-INDEX UP BY 1 END-SEARCH END-PERFORM. SEARCH-MULTIPLE-CONDITIONS. DISPLAY 'Searching IT employees with salary >= 75000' SET EMP-INDEX TO 1 PERFORM UNTIL EMP-INDEX > EMPLOYEE-COUNT SEARCH EMPLOYEE-ENTRIES AT END EXIT PERFORM WHEN EMP-DEPARTMENT(EMP-INDEX) = 'IT' AND EMP-SALARY(EMP-INDEX) >= 75000 DISPLAY 'IT High Earner: ' EMP-NAME(EMP-INDEX) DISPLAY 'ID: ' EMP-ID(EMP-INDEX) DISPLAY 'Salary: ' EMP-SALARY(EMP-INDEX) SET EMP-INDEX UP BY 1 END-SEARCH END-PERFORM. DISPLAY-SEARCH-STATISTICS. DISPLAY 'Search Operation Statistics:' DISPLAY 'Total searches performed: ' SEARCH-COUNT DISPLAY 'Successful searches: ' SUCCESSFUL-SEARCHES DISPLAY 'Failed searches: ' FAILED-SEARCHES IF SEARCH-COUNT > 0 COMPUTE SUCCESSFUL-SEARCHES = (SUCCESSFUL-SEARCHES / SEARCH-COUNT) * 100 DISPLAY 'Success rate: ' SUCCESSFUL-SEARCHES '%' END-IF.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379IDENTIFICATION DIVISION. PROGRAM-ID. ADVANCED-END-SEARCH. DATA DIVISION. WORKING-STORAGE SECTION. 01 PRODUCT-CATALOG. 05 PRODUCT-COUNT PIC 9(4) VALUE 50. 05 PRODUCT-ENTRIES OCCURS 1 TO 1000 TIMES DEPENDING ON PRODUCT-COUNT ASCENDING KEY IS PRODUCT-CODE ASCENDING KEY IS CATEGORY-CODE INDEXED BY PROD-INDEX, PROD-INDEX2. 10 PRODUCT-CODE PIC X(10). 10 CATEGORY-CODE PIC X(5). 10 PRODUCT-NAME PIC X(40). 10 UNIT-PRICE PIC 9(7)V99. 10 STOCK-QUANTITY PIC 9(7). 10 REORDER-LEVEL PIC 9(5). 10 SUPPLIER-CODE PIC X(8). 10 PRODUCT-STATUS PIC X(2). 01 SUPPLIER-TABLE. 05 SUPPLIER-COUNT PIC 9(3) VALUE 10. 05 SUPPLIER-ENTRIES OCCURS 10 TIMES ASCENDING KEY IS SUPPLIER-CODE INDEXED BY SUPP-INDEX. 10 SUPPLIER-CODE PIC X(8). 10 SUPPLIER-NAME PIC X(30). 10 CONTACT-PERSON PIC X(25). 10 PHONE-NUMBER PIC X(15). 10 RATING PIC 9V99. 01 SALES-HISTORY. 05 SALES-COUNT PIC 9(5) VALUE 100. 05 SALES-ENTRIES OCCURS 1 TO 10000 TIMES DEPENDING ON SALES-COUNT ASCENDING KEY IS SALE-DATE ASCENDING KEY IS PRODUCT-CODE INDEXED BY SALES-INDEX. 10 SALE-DATE PIC X(8). 10 PRODUCT-CODE PIC X(10). 10 QUANTITY-SOLD PIC 9(5). 10 SALE-PRICE PIC 9(7)V99. 10 CUSTOMER-ID PIC X(10). 01 ADVANCED-SEARCH-CONTROLS. 05 SEARCH-CRITERIA. 10 MIN-PRICE PIC 9(7)V99. 10 MAX-PRICE PIC 9(7)V99. 10 CATEGORY-FILTER PIC X(5). 10 STOCK-THRESHOLD PIC 9(7). 10 DATE-FROM PIC X(8). 10 DATE-TO PIC X(8). 05 SEARCH-RESULTS. 10 MATCHES-FOUND PIC 9(5) VALUE 0. 10 TOTAL-VALUE PIC 9(11)V99 VALUE 0. 10 AVERAGE-PRICE PIC 9(7)V99 VALUE 0. 01 COMPLEX-PROCESSING. 05 BATCH-CONTROLS. 10 BATCH-SIZE PIC 9(4) VALUE 100. 10 CURRENT-BATCH PIC 9(4) VALUE 0. 10 RECORDS-PROCESSED PIC 9(7) VALUE 0. 05 PERFORMANCE-METRICS. 10 SEARCH-START-TIME PIC X(14). 10 SEARCH-END-TIME PIC X(14). 10 ELAPSED-TIME PIC 9(7) VALUE 0. 10 SEARCHES-PER-SECOND PIC 9(5)V99 VALUE 0. 01 MULTI-DIMENSIONAL-SEARCH. 05 SEARCH-DIMENSIONS. 10 PRIMARY-KEY PIC X(10). 10 SECONDARY-KEY PIC X(5). 10 TERTIARY-CONDITION PIC X(20). 05 DIMENSION-RESULTS. 10 PRIMARY-MATCHES PIC 9(5) VALUE 0. 10 SECONDARY-MATCHES PIC 9(5) VALUE 0. 10 FINAL-MATCHES PIC 9(5) VALUE 0. PROCEDURE DIVISION. MAIN-PROCESSING. PERFORM INITIALIZE-ADVANCED-TABLES PERFORM EXECUTE-PERFORMANCE-TESTING PERFORM DEMONSTRATE-MULTI-KEY-SEARCHES PERFORM DEMONSTRATE-RANGE-SEARCHES PERFORM DEMONSTRATE-COMPLEX-FILTERING PERFORM DEMONSTRATE-NESTED-SEARCHES PERFORM DISPLAY-COMPREHENSIVE-STATISTICS STOP RUN. INITIALIZE-ADVANCED-TABLES. DISPLAY 'Initializing advanced search tables...' *> Initialize product catalog with sample data PERFORM VARYING PROD-INDEX FROM 1 BY 1 UNTIL PROD-INDEX > 50 STRING 'PROD' DELIMITED BY SIZE PROD-INDEX DELIMITED BY SIZE INTO PRODUCT-CODE(PROD-INDEX) END-STRING EVALUATE FUNCTION MOD(PROD-INDEX, 5) WHEN 0 MOVE 'ELEC' TO CATEGORY-CODE(PROD-INDEX) WHEN 1 MOVE 'BOOK' TO CATEGORY-CODE(PROD-INDEX) WHEN 2 MOVE 'CLTH' TO CATEGORY-CODE(PROD-INDEX) WHEN 3 MOVE 'HOME' TO CATEGORY-CODE(PROD-INDEX) WHEN 4 MOVE 'SPRT' TO CATEGORY-CODE(PROD-INDEX) END-EVALUATE STRING 'PRODUCT NAME ' DELIMITED BY SIZE PROD-INDEX DELIMITED BY SIZE INTO PRODUCT-NAME(PROD-INDEX) END-STRING COMPUTE UNIT-PRICE(PROD-INDEX) = (FUNCTION RANDOM(PROD-INDEX) * 1000) + 10 COMPUTE STOCK-QUANTITY(PROD-INDEX) = FUNCTION RANDOM(PROD-INDEX) * 500 + 50 COMPUTE REORDER-LEVEL(PROD-INDEX) = STOCK-QUANTITY(PROD-INDEX) / 4 STRING 'SUPP' DELIMITED BY SIZE FUNCTION MOD(PROD-INDEX, 10) + 1 DELIMITED BY SIZE INTO SUPPLIER-CODE(PROD-INDEX) END-STRING MOVE 'AC' TO PRODUCT-STATUS(PROD-INDEX) END-PERFORM *> Initialize supplier table PERFORM VARYING SUPP-INDEX FROM 1 BY 1 UNTIL SUPP-INDEX > 10 STRING 'SUPP' DELIMITED BY SIZE SUPP-INDEX DELIMITED BY SIZE INTO SUPPLIER-CODE(SUPP-INDEX) END-STRING STRING 'SUPPLIER COMPANY ' DELIMITED BY SIZE SUPP-INDEX DELIMITED BY SIZE INTO SUPPLIER-NAME(SUPP-INDEX) END-STRING STRING 'CONTACT ' DELIMITED BY SIZE SUPP-INDEX DELIMITED BY SIZE INTO CONTACT-PERSON(SUPP-INDEX) END-STRING MOVE '555-0100' TO PHONE-NUMBER(SUPP-INDEX) COMPUTE RATING(SUPP-INDEX) = (FUNCTION RANDOM(SUPP-INDEX) * 5) + 1 END-PERFORM DISPLAY 'Advanced tables initialized successfully'. EXECUTE-PERFORMANCE-TESTING. DISPLAY 'Executing performance testing...' MOVE FUNCTION CURRENT-DATE TO SEARCH-START-TIME PERFORM VARYING CURRENT-BATCH FROM 1 BY 1 UNTIL CURRENT-BATCH > 10 PERFORM BATCH-SEARCH-OPERATIONS END-PERFORM MOVE FUNCTION CURRENT-DATE TO SEARCH-END-TIME PERFORM CALCULATE-PERFORMANCE-METRICS DISPLAY 'Performance testing completed'. BATCH-SEARCH-OPERATIONS. PERFORM VARYING PROD-INDEX FROM 1 BY 1 UNTIL PROD-INDEX > BATCH-SIZE ADD 1 TO RECORDS-PROCESSED *> Perform various search operations PERFORM SEARCH-PRODUCT-BY-CODE PERFORM SEARCH-PRODUCTS-BY-CATEGORY PERFORM SEARCH-LOW-STOCK-PRODUCTS END-PERFORM. SEARCH-PRODUCT-BY-CODE. STRING 'PROD' DELIMITED BY SIZE FUNCTION MOD(RECORDS-PROCESSED, 50) + 1 DELIMITED BY SIZE INTO PRIMARY-KEY END-STRING SEARCH ALL PRODUCT-ENTRIES AT END CONTINUE WHEN PRODUCT-CODE(PROD-INDEX) = PRIMARY-KEY ADD 1 TO PRIMARY-MATCHES END-SEARCH. SEARCH-PRODUCTS-BY-CATEGORY. EVALUATE FUNCTION MOD(RECORDS-PROCESSED, 5) WHEN 0 MOVE 'ELEC' TO CATEGORY-FILTER WHEN 1 MOVE 'BOOK' TO CATEGORY-FILTER WHEN 2 MOVE 'CLTH' TO CATEGORY-FILTER WHEN 3 MOVE 'HOME' TO CATEGORY-FILTER WHEN 4 MOVE 'SPRT' TO CATEGORY-FILTER END-EVALUATE SET PROD-INDEX TO 1 SEARCH PRODUCT-ENTRIES AT END CONTINUE WHEN CATEGORY-CODE(PROD-INDEX) = CATEGORY-FILTER ADD 1 TO SECONDARY-MATCHES END-SEARCH. SEARCH-LOW-STOCK-PRODUCTS. MOVE 100 TO STOCK-THRESHOLD SET PROD-INDEX TO 1 SEARCH PRODUCT-ENTRIES AT END CONTINUE WHEN STOCK-QUANTITY(PROD-INDEX) < STOCK-THRESHOLD ADD 1 TO FINAL-MATCHES END-SEARCH. DEMONSTRATE-MULTI-KEY-SEARCHES. DISPLAY 'Demonstrating multi-key search operations...' *> Search by primary and secondary keys MOVE 'PROD25' TO PRIMARY-KEY MOVE 'ELEC' TO SECONDARY-KEY SEARCH ALL PRODUCT-ENTRIES AT END DISPLAY 'Product not found with multi-key search' WHEN PRODUCT-CODE(PROD-INDEX) = PRIMARY-KEY AND CATEGORY-CODE(PROD-INDEX) = SECONDARY-KEY DISPLAY 'Multi-key match found:' DISPLAY 'Product: ' PRODUCT-NAME(PROD-INDEX) DISPLAY 'Price: ' UNIT-PRICE(PROD-INDEX) DISPLAY 'Stock: ' STOCK-QUANTITY(PROD-INDEX) END-SEARCH. DEMONSTRATE-RANGE-SEARCHES. DISPLAY 'Demonstrating range search operations...' MOVE 100.00 TO MIN-PRICE MOVE 500.00 TO MAX-PRICE MOVE 0 TO MATCHES-FOUND MOVE 0 TO TOTAL-VALUE SET PROD-INDEX TO 1 PERFORM UNTIL PROD-INDEX > PRODUCT-COUNT SEARCH PRODUCT-ENTRIES AT END EXIT PERFORM WHEN UNIT-PRICE(PROD-INDEX) >= MIN-PRICE AND UNIT-PRICE(PROD-INDEX) <= MAX-PRICE ADD 1 TO MATCHES-FOUND ADD UNIT-PRICE(PROD-INDEX) TO TOTAL-VALUE DISPLAY 'Range match: ' PRODUCT-NAME(PROD-INDEX) DISPLAY 'Price: ' UNIT-PRICE(PROD-INDEX) SET PROD-INDEX UP BY 1 END-SEARCH END-PERFORM IF MATCHES-FOUND > 0 COMPUTE AVERAGE-PRICE = TOTAL-VALUE / MATCHES-FOUND DISPLAY 'Range search results:' DISPLAY 'Matches found: ' MATCHES-FOUND DISPLAY 'Total value: ' TOTAL-VALUE DISPLAY 'Average price: ' AVERAGE-PRICE END-IF. DEMONSTRATE-COMPLEX-FILTERING. DISPLAY 'Demonstrating complex filtering operations...' MOVE 'ELEC' TO CATEGORY-FILTER MOVE 200.00 TO MIN-PRICE MOVE 100 TO STOCK-THRESHOLD MOVE 0 TO MATCHES-FOUND SET PROD-INDEX TO 1 PERFORM UNTIL PROD-INDEX > PRODUCT-COUNT SEARCH PRODUCT-ENTRIES AT END EXIT PERFORM WHEN CATEGORY-CODE(PROD-INDEX) = CATEGORY-FILTER AND UNIT-PRICE(PROD-INDEX) >= MIN-PRICE AND STOCK-QUANTITY(PROD-INDEX) < STOCK-THRESHOLD AND PRODUCT-STATUS(PROD-INDEX) = 'AC' ADD 1 TO MATCHES-FOUND DISPLAY 'Complex filter match:' DISPLAY 'Product: ' PRODUCT-NAME(PROD-INDEX) DISPLAY 'Category: ' CATEGORY-CODE(PROD-INDEX) DISPLAY 'Price: ' UNIT-PRICE(PROD-INDEX) DISPLAY 'Stock: ' STOCK-QUANTITY(PROD-INDEX) DISPLAY 'Supplier: ' SUPPLIER-CODE(PROD-INDEX) SET PROD-INDEX UP BY 1 END-SEARCH END-PERFORM DISPLAY 'Complex filter matches: ' MATCHES-FOUND. DEMONSTRATE-NESTED-SEARCHES. DISPLAY 'Demonstrating nested search operations...' *> Find products and their supplier information SET PROD-INDEX TO 1 PERFORM UNTIL PROD-INDEX > 10 *> Limit for demonstration SEARCH PRODUCT-ENTRIES AT END EXIT PERFORM WHEN PRODUCT-STATUS(PROD-INDEX) = 'AC' DISPLAY 'Active Product: ' PRODUCT-NAME(PROD-INDEX) DISPLAY 'Supplier Code: ' SUPPLIER-CODE(PROD-INDEX) *> Nested search for supplier details SEARCH ALL SUPPLIER-ENTRIES AT END DISPLAY 'Supplier details not found' WHEN SUPPLIER-CODE(SUPP-INDEX) = SUPPLIER-CODE(PROD-INDEX) DISPLAY 'Supplier: ' SUPPLIER-NAME(SUPP-INDEX) DISPLAY 'Contact: ' CONTACT-PERSON(SUPP-INDEX) DISPLAY 'Phone: ' PHONE-NUMBER(SUPP-INDEX) DISPLAY 'Rating: ' RATING(SUPP-INDEX) END-SEARCH DISPLAY '---' SET PROD-INDEX UP BY 1 END-SEARCH END-PERFORM. CALCULATE-PERFORMANCE-METRICS. *> Calculate elapsed time and performance metrics *> This is a simplified calculation COMPUTE ELAPSED-TIME = 1000 *> Simulated milliseconds IF ELAPSED-TIME > 0 COMPUTE SEARCHES-PER-SECOND = (RECORDS-PROCESSED * 1000) / ELAPSED-TIME END-IF DISPLAY 'Performance Metrics:' DISPLAY 'Records processed: ' RECORDS-PROCESSED DISPLAY 'Elapsed time (ms): ' ELAPSED-TIME DISPLAY 'Searches per second: ' SEARCHES-PER-SECOND. DISPLAY-COMPREHENSIVE-STATISTICS. DISPLAY 'Comprehensive Search Statistics:' DISPLAY '================================' DISPLAY 'Primary key matches: ' PRIMARY-MATCHES DISPLAY 'Secondary key matches: ' SECONDARY-MATCHES DISPLAY 'Complex filter matches: ' FINAL-MATCHES DISPLAY 'Total records processed: ' RECORDS-PROCESSED DISPLAY '' DISPLAY 'Table Information:' DISPLAY 'Products in catalog: ' PRODUCT-COUNT DISPLAY 'Suppliers in system: ' SUPPLIER-COUNT DISPLAY 'Sales records: ' SALES-COUNT DISPLAY '' DISPLAY 'Search Efficiency:' IF RECORDS-PROCESSED > 0 COMPUTE PRIMARY-MATCHES = (PRIMARY-MATCHES / RECORDS-PROCESSED) * 100 DISPLAY 'Primary key hit rate: ' PRIMARY-MATCHES '%' END-IF.