01 PUBLISHER-VALUES.
           05         PIC X(20) VALUE '01PRENTICE HALL'.
           05         PIC X(20) VALUE '15ADDISON WESLEY'.
           05         PIC X(20) VALUE '24JOHN WILEY & SONS'.
       01 PUBLISHER-TABLE REDEFINES PUBLISHER-VALUES.
           05 PUBLISHERS OCCURS 3 TIMES.
               10 T-PUBLISHER-NUMBER    PIC 99.
               10 T-PUBLISHER-NAME      PIC X(18).