ステップ 6. フォーム iiiFRM04 – SOAP を利用して社員を取得する

これは非常に簡単なフォームで、ユーザーは部門コードと課コードを入力して [社員を取得] というボタンをクリックします。

その後、プログラムによって該当する部門と課の社員リストが表示されます。フォームのビジュアル・デザインは以下のようになります。

LANSA エディターの [ファイル] メニューから、作成/基本フォームで、iiiFRM04 – SOAP を使用して社員を取得.を作成します。このフォームは RDMLX対応にします。
以下のコードをコピーして、このフォームに貼り付けます。

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(460) Clientwidth(476) Height(494) Left(610) Top(120) Width(484)
Define Field(#MSGDTA) Type(*CHAR) Length(132)
Override Field(#empno)
Override Field(#surname)
Override Field(#givename)
Override Field(#salary)
Define_Com Class(#DEPTMENT.Visual) Name(#IN_DEPT) Displayposition(1) Height(19) Left(7) Parent(#COM_OWNER) Tabposition(1) Top(21) Usepicklist(False) Width(201)
Define_Com Class(#SECTION.Visual) Name(#IN_SECT) Displayposition(2) Height(19) Left(7) Parent(#COM_OWNER) Tabposition(2) Top(48) Usepicklist(False) Width(185)
Define_Com Class(#PRIM_PHBN) Name(#phbnGetEmployees) Caption('社員を取得') Displayposition(3) Left(240) Parent(#COM_OWNER) Tabposition(3) Top(45) Width(225)
Define_Com Class(#PRIM_LTVW) Name(#empList) Componentversion(2) Displayposition(4) Fullrowselect(True) Height(345) Left(7) Parent(#COM_OWNER) Showsortarrow(True) Tabposition(4) Top(88) Width(461)
Define_Com Class(#PRIM_LVCL) Name(#empList_1) Caption('Code') Captiontype(Caption) Displayposition(1) Parent(#empList) Source(#EMPNO)
Define_Com Class(#PRIM_LVCL) Name(#empList_2) Caption('Surname') Captiontype(Caption) Displayposition(2) Parent(#empList) Source(#SURNAME) Width(24)
Define_Com Class(#PRIM_LVCL) Name(#empList_3) Caption('Given Name') Captiontype(Caption) Displayposition(3) Parent(#empList) Source(#GIVENAME) Width(27)
Define_Com Class(#PRIM_LVCL) Name(#empList_4) Caption('Salary') Captiontype(Caption) Displayposition(4) Parent(#empList) Source(#SALARY)
Define_Com Class(#PRIM_STBR) Name(#STBR_1) Displayposition(5) Height(24) Left(0) Messageposition(1) Parent(#COM_OWNER) Tabposition(5) Tabstop(False) Top(436) Width(476)

Evtroutine Handling(#com_owner.Initialize)
Set Com(#com_owner) Caption(*component_desc)
Endroutine
*
Evtroutine Handling(#phbnGetEmployees.Click)
Endroutine
＊--------------------------------------------------------------------
＊サブルーチン CHECK - 例外の状態になった後
＊ JSM ステータスを確認
＊--------------------------------------------------------------------
Subroutine Name(CHECK) Parms((#jsmxsts *RECEIVED) (#jsmxmsg *RECEIVED))

If (#jsmxsts *NE OK)

＊Close service and send the HTTP response
Use Builtin(JSMX_CLOSE) With_Args(#jsmxhdle1) To_Get(#jsmxsts #jsmxmsg)
#MSGDTA := 'Error Status Code: ' + #JSMXSTS
Message Msgid(DCM9899) Msgf(DC@M01) Msgdta(#MSGDTA)
#MSGDTA := 'Error Message: ' + #JSMXMSG
Message Msgid(DCM9899) Msgf(DC@M01) Msgdta(#MSGDTA)
Endif
Endroutine
End_Com
Integrator スタジオでプロジェクト "iii SOAP チュートリアル" を開きます。EmployeeAgent ソリューション用に生成された RDMLX コードを探し、テキスト・エディターで開きます。SAMPLE_RDMLX_GETEMPLOYEES.TXT. ファイルを参照してください。
以下の間にあるコードをすべてコピーします。

＊The following fields are used by the soap binding map
＊#DEPTMENT
....
次に
＊Close service
USE BUILTIN(JSMX_CLOSE) WITH_ARGS(#JSMXHDLE1) TO_GET(#JSMXSTS #JSMXMSG)
EXECUTE SUBROUTINE(CHECK) WITH_PARMS(#JSMXSTS #JSMXMSG)
上に示されているコードも含め、フォームの #phbnGetEmployees.Click を処理するイベント・ルーチンにコピーします。これで、以前のステップで説明したように、SOAP サービスを呼び出すために必要なロジックの大部分が提供されます。
フォームの部コードおよび課コードに対するフィールド・コンポーネント定義を確認します。それぞれに IN_DEPT、IN_SECT という名前が付いています。演習用 SOAP サービスでは、これらのフィールドを変数 DEPTMENT および SECTION としてマッピングします。設定パラメータが実行される前に、変数 DEPTMENT と SECTION の値を設定する必要があります。コメント行 * set parameter – DEPARTMENTCODE と * set parameter – SECTIONCODE を探して、割り当てステートメントを追加して設定します。コードは以下のようになります。
コメント行 * Open SOAP Service を探します。次の行で自身の SOAP サービス名を使用するように変更します。

＊Open SOAP Service
Change Field(#JSMXCMD) To('OPEN SERVICE(IIIEMPLOYEEAGENT)')
フォームで以下のコードを探します。

コマンド GET FRAGMENT(RESPONSE) SERVICE_EXCHANGE(*FIELD) は、返されたフィールドをプログラム変数にマッピングします。つまり、このループ内で、フォームのリスト・ビューにエントリーを追加できます。完了したコードは以下のようになります。
フォームをコンパイルします。これ以上行うことはありません。次の演習で変更箇所のテストを行います。

Content

Space Tools