      *>----------------------------------------------------------------
      *> This is a specialization of the association class which maps
      *> pic x(4) comp-5 items to object references.
      *>
      *>#See class "associtn".
      *>#See class "comp5".
      *>
      *> Copyright (C) 1991-1999 Micro Focus International Ltd.
      *>
      *>----------------------------------------------------------------
      $set mfoo
       class-id. CobolComp5Association data is protected
               inherits from Association with data.


        object section.
        class-control.
           association is class "associtn"
           CobolCOMP5Association is class "compasoc"
           CobolCOMP5 is class "comp5"
           .
       class-object.
       object-storage section.

      *>----------------------------------------------------------------
      *> PRIVATE. initialize class data
      *>----------------------------------------------------------------
       method-id. "initializeclass".
       procedure division.
           invoke super "initializeclass"
           set keytemplate to CobolCOMP5
           set datatemplate to null
           move objectReferenceSize to keysize
                                       datasize
                                       storagerequirements
           add 4 to storagerequirements
           exit method.
       end method "initializeclass".

       end class-object.

       Object.
       object-storage section.

       end object.
       end class CobolCOMP5Association.
