| *>   eventClass event definitions, Class: classReference. | 
| 78 eventName VALUE eventIdValue. | 
| ... working-storage section. ... copy "component.def". ... screen section. ... 03 myDateField     java-bean    clsid           "com.toedter.calendar.JDateChooser"    line            2    col             2    size            30    lines           1.5    object in       objDateField    event-list      ("propertyChange")    event procedure myDateField-Event | 
|  *>   PROPERTYCHANGE event definitions, Class: java.beans.PropertyChangeEvent.  78 Component-propertyChange value 681533893. | 
| myDateField-Event.     evaluate event-type     when msg-jb-event          evaluate event-data-2          when Component-propertyChange               (Imperative statement)          end-evaluate     end-evaluate     . | 
| ... configuration section. repository.    class iscobol-java-bean             as "com.iscobol.gui.server.CobolGUIJavaBean"    class java-event-object             as "java.util.EventObject" ... working-storage section. ... 77 eventSource is special-names event source object reference iscobol-java-bean. 77 eventObject is special-names event object object reference java-event-object.  ... | 
| ... configuration section. repository.    class iscobol-java-bean             as "com.iscobol.gui.server.CobolGUIJavaBean"    class java-event-object             as "java.util.EventObject"    class property-change-event         as "java.beans.PropertyChangeEvent" ... working-storage section. ... 77 eventSource is special-names event source object reference iscobol-java-bean. 77 eventObject is special-names event object object reference java-event-object.  77 propertyChangeEvent object reference property-change-event.  77 propertyName pic x any length. ... myDateField-Event.     evaluate event-type     when msg-jb-event          evaluate event-data-2          when COMPONENT-PROPERTYCHANGE               set propertyChangeEvent to eventObject as property-change-event               set propertyName to propertyChangeEvent:>getPropertyName               display message "The property " propertyName " has changed."          end-evaluate     end-evaluate     . |