7.32.2 DEFINE_EVTの使用例

このコマンドは、以下のように、フォームでADRESSCHANGEDというイベントを定義します。
define_evt name(ADDRESSCHANGED) help('This event tells that the #ADDRESS1 field on this form has changed.')  
フォームには、SIGNALコマンドも含まれていて、フォーム上の#ADDRESS1フィールドの内容が変更されると、このイベントがトリガーされます。
EVTROUTINE HANDLING(#address1.changed)    signal event(ADDRESSCHANGED) ENDROUTINE   
この方法では、これらのコマンドが指定されているフォームは、#ADDRESSフィールドの内容が変更されているオーナー・フォームと対話することができます。オーナー・フォームは、以下のように、イベント・ルーチンによってこのイベントに応えることができます。
EVTROUTINE HANDLING(#FormB.ADDRESSCHANGED)    execute RfrshDtls ENDROUTINE   
「7.33.2 DEFINE_EVTで使用するDEFINE_MAP 」も参照してください。