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