7.2.3 サンプルのトランザクション・プログラム

次のOracle Tuxedo Mainframe Adapter for SNAトランザクション対応テスト・プログラムが、ATMIプラットフォーム向けインストールのサブディレクトリTMA/sna/simpappにインストールされています:

• simpims.cは、シンプルなATMIクライアントであり、2つのIMSサーバー・プログラムを起動するために使用されます。これは入力として文字列データとサービス名を取ります。これはサービスを起動し、入力の文字列データを渡します。
• IMPIMSSV.cblは、シンプルなIMSエコー・サーバーです。これはIMSメッセージ・キューからのデータを読み取り、同じデータをレスポンスとして書き込みます。暗黙的SNAの例として使用されることを目的としています。
• EXPIMSSV.cは、明示的CPI-C呼出しを使用したIMSサーバー・トランザクションです。これは同期レベル2での使用を目的として作成されています。このプログラムではIBMのサンプル・データベース、IVPDB2を使用しています。入力文字列に基づいてデータベースのレコードが表示、追加および削除されます。サンプルの入力文字列がソース内に記載されています。
• BEAWTOR.asmは、アセンブラのサブルーチンであり、EXPIMSSV.cによりメッセージをMVSコンソール・ログに書き込むために使用されます。