A*  Bookshelves
      A                                      UNIQUE
      A          R BCT01RCD                  TEXT('Bookshelf record format')
      A            BCT01NBR       3S 0       TEXT('Bookshelf number')
      A                                      COLHDG('Bookshelf nbr')
      A            BCT01DES      70A         TEXT('Bookshelf description')
      A                                      COLHDG('Bookshelf descr')
      A                                      CCSID(65535)
      A          K BCT01NBR