Enumerators

The CLASS clause is also used to define enumerations. For example, the VtBrushStyle class is defined by the Microsoft Chart Control in the COPY file as follows:

      * Brush Styles
      * VtBrushStyle
           CLASS @VtBrushStyle
               CLSID, B8CC5B99-BD29-11D1-B137-0000F8753F5D
               NAME, "VtBrushStyle"
      * long VtBrushStyleNull
               ENUMERATOR, @VtBrushStyleNull, 0
      * long VtBrushStyleSolid
               ENUMERATOR, @VtBrushStyleSolid, 1
      * long VtBrushStylePattern
               ENUMERATOR, @VtBrushStylePattern, 2
      * long VtBrushStyleHatched
               ENUMERATOR, @VtBrushStyleHatched, 3

Enumerators are used just like level-78 data items.

Note that ActiveX enumerators should always be prepended with an "@" sign in case they clash with COBOL reserved words or ACUCOBOL-GT graphical control property and style names. The "@" character identifies the relationship of the name to ActiveX. The same holds true for ActiveX properties and methods.