IDENTIFICATION DIVISION.
       PROGRAM-ID. SEARCHVB.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  TREE-TABLE.
	   05  FILLER  PIC X(8)  VALUE "02OAK   ".
	   05  FILLER  PIC X(8)  VALUE "04MAPLE ".
	   05  FILLER  PIC X(8)  VALUE "07PINE  ".
	   05  FILLER  PIC X(8)  VALUE "10APPLE ".
	   05  FILLER  PIC X(8)  VALUE "12SPRUCE".
       01  RDF-TREE-TABLE REDEFINES TREE-TABLE.
	   05  ELEMZ   OCCURS 5 TIMES
		       INDEXED BY TREE-INDX.
	       10  TREE-NO	 PIC 99.
	       10  TREE-NAME	 PIC X(6).
       01  INPUT-FIELDS.
	   05  INPUT-TREE	 PIC 99.
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM B-100-PROCESS.
           STOP RUN.
       B-100-PROCESS.
	   DISPLAY "ENTER TREE NUMBER"
	   ACCEPT INPUT-TREE.
           PERFORM B-200-LOOP
	       UNTIL INPUT-TREE = 99.
       B-200-LOOP.
	   SET TREE-INDX TO 1.
	   SEARCH ELEMZ
		AT END
		    DISPLAY "NO MATCH"
		WHEN TREE-NO(TREE-INDX) = INPUT-TREE
		    DISPLAY TREE-NAME(TREE-INDX).
	   DISPLAY "ENTER TREE NUMBER - ENTER 99 TO QUIT".
	   ACCEPT INPUT-TREE.