demo1

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.

   01 WS-DB-LIST-TABLE.
      05 WS-DB-LIST-RECORD OCCURS 3 TIMES 
            ASCENDING KEY IS DB-LIST-NAME INDEXED BY I.
         10 DB-LIST-NAME PIC X(10).

   01 WS-ENV-LIST-TABLE.
      05 WS-ENV-LIST-RECORD OCCURS 5 TIMES 
           ASCENDING KEY IS ENV-LIST-NAME INDEXED BY J.
         10 ENV-LIST-NAME PIC X(15).

   01 WS-ENV-LIST-NAME PIC X(10).  

PROCEDURE DIVISION.
   A-PARA.
         
   MOVE 'AKILAN    KAYAL     SELVA     ' TO WS-DB-LIST-TABLE.
   MOVE 'BHAVANI_DB1    BHAVANI_DB2    SELVA_DB1      KAYAL_DB1      '
          TO WS-ENV-LIST-TABLE.
   PERFORM B-PARA VARYING J FROM 1 BY 1 UNTIL J > 5.
   STOP RUN.
   
   B-PARA.
   UNSTRING ENV-LIST-NAME(J) DELIMITED BY "_" INTO WS-ENV-LIST-NAME.
   
   SEARCH ALL WS-DB-LIST-RECORD
          AT END DISPLAY "DB NAME NOT FOUND ====> " ENV-LIST-NAME(J)
   WHEN DB-LIST-NAME(I) = WS-ENV-LIST-NAME
         CONTINUE
   END-SEARCH.