ソケット通信はＴＣＰＩＰの通信プログラムのインターフェースですが、ＡＳ／４００では
Ｖ３１０より、Ｃソケットをサポートしています。それ以前は、Ｐａｓｃａｌでソケット通信
をサポートしていました。
ＲＰＧでは、ＩＬＥ／ＯＰＭともに残念ながらサポートしていません。
今後のサポートもおそらくはないでしょう。
だからといって、ＲＰＧでソケット通信を行うのをあきらめる必要はありません。
ソケット関数ごとにＰＧＭを作成し、ＲＰＧからＣＡＬＬするようにすれば、ＲＰＧでも
（というよりは言語をとあず）ソケット通信が可能になります。
実際、ＳＮＡのＣＰＩ−Ｃでは、ＣＡＬＬ形式でＲＰＧでのＡＰＰＣ通信をサポート
しています。
これと同じ仕組みを使ってＴＣＰＩＰでも、ＣＡＬＬ形式でソケット通信を実装すればよいのです。
以下実際のプログラムを通してその方法について解説します。
まず、ＲＰＧから呼び出して利用するＣのプログラム開発の基本的な指針を以下のように定義します。
- ＲＰＧ＜−＞Ｃ間のパラメーター渡しは、最少限度に絞る。
呼び出しのオーバーヘッドを最少にするのと、コーディングをシンプルにする目的のため
ソケット関数の呼び出しパラメータには、可能なかぎり固定値を設定する。
- 呼び出されるプログラムは、単機能のＰＧＭとし、呼び出す実際のソケット関数が複数機能をもつ場合は、
別プログラムとして実装する。
基本的には、ソケット関数とＣプログラムは１対１に対応して実装するが、もし、利用するソケット関数が
複数機能をもちパラメーターで指示するタイプの物である場合は、用途に合わせて、別プログラムとして実装する。
これは、パラメーターの設定ミスを避けるのと、呼び出しを単純化する目的である。
- ＲＰＧ＜−＞Ｃ間のパラメータの型は、特別な場合を除き、char（文字型）とする。
型の違いによるコンバージョン作業を省略するため、ＲＰＧ側のインターフェースは、常に文字型とし、必要な
型変換は、呼びたされるＣのプログラム内で処理するものとする。
- 戻り値は、使用できないので、戻り値に相当する引数を用意する。
RPGのCALLは、戻り値を受け取ることができないので、必要な場合は、それに相当するパラメーターを用意する
このような方針で、まずソケット通信に最低限必要な下記のソケット関数について、Ｃのプログラムを用意しましょう
| ソケット関数 | Ｃのプログラム名 | 説 明 |
| socket() | SKOPEN | ソケットの作成 |
| bind() | SKBIND | ソケットのバインド |
| listen() | SKLISN | ソケットのリッスン |
| accept() | SKACPT | ソケットのアクセプト |
| connect() | SKCONN | ソケットのコネクト |
| close() | SKCLOS | ソケットのクローズ |
| send() | SKSEND | データの送信 |
| read() | SKRECV | データの受信 |
| gethostbyname() | SKGETH | ホスト名からＩＰ検索 |
上記のＰＧＭはSocket RPGとして、一つのパッケージにまとめました。
それでは実際に、これらのプログラムを利用して、
ＲＰＧによるソケット通信のプログラムを作成してみましょう
作成するサンプルのＲＰＧは、以下の様なプログラムとします。
| サーバーＲＰＧ |
クライアントＲＰＧ |
１．ソケットのオープン
SKOPENプログラムによりソケットをオープンします。SKOPENでは、setsocketオプションで、
TCP_NODELAY,SO_REUSEADDRをセットしています。
|
１．ソケットのオープン
SKOPENプログラムによりソケットをオープンします。SKOPENでは、setsocketオプションで、
TCP_NODELAY,SO_REUSEADDRをセットしています。
|
２．バインド
SKBINDプログラムによりソケットにＩＰアドレス／ポート番号を割り当てます。
SKBINDでは、明示的なＩＰ割り当ての代わりにＡＮＹとしてどのインターフェースからの
接続要求についても受けとれります。
|
なし |
３．リッスン
SKLISNプログラムにより、クライアントからの接続要求を待ちます。
|
なし |
| なし |
４．コネクト
SKCONNプログラムにより、サーバーに接続を行います。ＩＰアドレスは、
構内ループバックアドレス（１２７．０．０．１）を指定しているので、サーバーと同じマシン上で
クライアントも実行すると仮定しています。
|
５．アクセプト
SKACPTプログラムにより、クライアントからの接続要求を受け入れます。
この際に、新しいソケットディスクリプターがシステムにより与えられます。これ以降の通信は
ここで割り当てられた新しいディスクリプターを使用します。
|
なし |
６．クローズ
SKCLOSプログラムにより、最初に作成したlisten用のソケットディスクリプターをクローズします。
通常のｔｃｐｉｐサーバーは、接続要求を受けたあとの処理は、子プロセスを作成し、個別の通信はその子プロセスに
ませるようにするのが一般的です。
しかし、ＲＰＧでは、子プロセスやスレッド処理をサポートしないため、ここでは、別のプログラムが新たに
そのポートでlisten出来るように、ソケットをクローズしています。
|
なし |
７．データ受信
SKRECVプログラムにより、クライアントから送信された文字列を受信し、画面表示します。
|
７．データ送信
SKSENDプログラムにより、画面から入力された文字列を送信します。
|
８．データ送信
SKSENDプログラムにより、７．でクライアントから受信した文字列をそのまま送信します。
（エコー処理）
|
８．データ受信
SKRECVプログラムにより、サーバーから送信された文字列を受信し、画面表示します。
（エコー処理）
|
９．ソケットクローズ
文字列［EXIT]が送られてきた場合は、SKCLOSプログラムにより、ソケットのクローズを行います。
|
９．ソケットクローズ
画面からＦ３が押されるか、サーバープログラムが終了した場合は、SKCLOSプログラムにより、ソケットのクローズを行います。
|