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」も参照してください。