[ 
|../../index.htm#lansa/l4wusr06_0035.htm]
現在地:
7.4 トレース使用例
以下のフォーム例では、 RDML コード内でトレース・メソッドを使用する方法が示されています。ここでは、7.2 トレース・ハンドラー例 で提供された例で定義されたトレース・ハンドラーが使用されています。トレースを行うには、LANSA システム・フォルダ内に TracingOn.txt ファイルが作成されていて、正しく出力されることを確認します。
Function Options(*DIRECT) Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('Doubleclick an item to test the tracing') Clientheight(322) Clientwidth(626) Height(358) Left(213) Top(160) Width(642) Define_Com Class(#PRIM_LTVW) Name(#List) Componentversion(2) Displayposition(1) Fullrowselect(True) Height(249) Keyboardpositioning(SortColumn) Left(0) Parent(#COM_OWNER) Showsortarrow(True) Tabposition(1) Top(0) Width(625) Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Displayposition(1) Parent(#List) Source(#EMPNO) Define_Com Class(#PRIM_LVCL) Name(#LVCL_4) Displayposition(2) Parent(#List) Source(#GIVENAME) Width(36) Define_Com Class(#PRIM_LVCL) Name(#LVCL_5) Displayposition(3) Parent(#List) Source(#SURNAME) Width(41) Define_Com Class(#PRIM_RDBN) Name(#TraceMessageData) Buttonchecked(True) Caption('Use TraceMessageData') Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(254) Width(153) Define_Com Class(#PRIM_RDBN) Name(#TraceMessageText) Caption('Use TraceMessageText') Displayposition(3) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(286) Width(153) Define_Com Class(#Tracing) Name(#TraceHandler) Evtroutine Handling(#com_owner.CreateInstance) Set Com(#com_owner) Caption(*component_desc) Clr_List Named(#List) Select Fields(#List) From_File(Pslmst) Add_Entry To_List(#List) Endselect Endroutine Evtroutine Handling(#List.DoubleClick) If (#TraceMessageData.ButtonChecked) #sys_appln.TraceMessageData( "Employee &1 Name &2 &3" #Empno #Givename #Surname ) Else #sys_appln.TraceMessageText( #Empno #Givename #Surname ) Endif Endroutine End_Com
[ |../../index.htm#lansa/l4wusr06_0035.htm]