このステップでは、JSM コマンドの実行時に作業リストに保存されたメッセージを表示するために必要となるフォームを作成します。

  1. iiiFRM01 JSM 表示という名前の新しいフォーム/基本フォームを作成します。iiiは一意の 3 文字です
     
  2. iiiFN01 を呼び出して、作業リスト WL_MSGS を渡し、リストビュー・コントロールに結果を表示するフォームを作成します。  このリストビュー・コントロールには、フィールド JSMSTS と JSMMSG をドラッグして入れる必要があります。コードは以下のようになります。
     
    Function Options(*DIRECT)
    Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(863) Clientheight(301) Componentversion(2) Left(620) Top(190)
    Define_Com Class(#PRIM_LTVW) Name(#ListView1) Columnbuttonheight(27) Componentversion(2) Displayposition(1) Fullrowselect(True) Keyboardpositioning(SortColumn) Left(56) Parent(#COM_OWNER) Showsortarrow(True) Tabposition(1) Top(47) Height(210) Width(753)
    Define_Com Class(#PRIM_LVCL) Name(#LVCL1) Displayposition(1) Parent(#ListView1) Source(#JSMSTS)
    Define_Com Class(#PRIM_LVCL) Name(#LVCL2) Displayposition(2) Parent(#ListView1) Source(#JSMMSG) Widthtype(Remainder)
     
    Def_List Name(#WL_MSGS) Fields(#JSMSTS #JSMMSG) Type(*WORKING) ENTRYS(*max)
     
    Evtroutine Handling(#com_owner.CreateInstance)
     
    Set Com(#com_owner) Caption(*component_desc)
     
    Call Process(*DIRECT) Function(iiiFN01) Pass_Lst(#WL_MSGS)
     
    Selectlist Named(#WL_MSGS)
    Add_Entry To_List(#ListView1)
    Endselect
    Endroutine
     
    End_Com 
     
  3. 自身のフォーム iiiFRM01 を保存してコンパイルします。 
  • No labels