ＡＳ／４００では、ソケットをサポートする言語は、Ｃ言語となっています。
Ｃ言語でソケットをサポートする以前(V3.05)は、パスカル言語でのみサポートしてましたが、
ソケットＡＰＩは独自の仕様となってました。
ＯＳ／４００バージョン３.１以降サポートされた、Ｃ−ＳＯＫＣＥＴは、BSD sokcet 互換として実装されました。
内容は、一部の関数のパラメーターの解釈の差異ぐらいで、主な sokcet 関数については、違いを意識することはほとんどないほど
同じです。
BSD UNIX 互換なので当然、Ｃ言語をベースとしての実装です。ＲＰＧなどの従来の言語などの考慮はなされていません。（たぶん）
RPGもその後の ILE-RPG として非常に大きく機能拡張されています。
現在のＩＬＥ−ＲＰＧなら、ソケット関数を利用して通信可能なはずです。
ここでは、システムで提供されている、C-SOCKET関数をILE-RPGから呼び出すのにトライしてみましょう。
（注）もちろん、メーカーのサポート対象外の内容になります。
メーカーサポートなどに問合わせた場合は、当然、Ｃ言語のみ利用可能という答えが帰ってくるでしょう。
だって、マニュアルには、そう書いてあるんだら......それが正しい回答でよね。
|
問題は、Ｃの場合は、ｓｏｃｋｅｔ．ｈというヘッダーファイルに関数のプロトタイプや構造体など
の定義があらかじめなされていますが、ＩＬＥ−ＲＰＧには、ｓｏｃｋｅｔ．ｈに相当するものがありません。
ということは、ｓｏｃｋｅｔ．ｈを見ながら、ＩＬＥ−ＲＰＧ用に定義を作成する必要があります。
今回は取りあえず、Sockst RPGの時に作成した、ＳＯＫＲＰＧＣＡプログラムを元に、
ＩＬＥ−ＲＰＧで作成し直してみました。
この SOKRPGCA は、TCP接続のクライアント側のサンプルプログラムです。
対となるサーバー側のプログラムは、SOKRPGSVR です。
今回は、SOKRPGSVR は、SOKRPGの物をそのまま利用しました。
SOKRPGCAで使用していたソケットプログラム、
SKOPEN,SKCONN,SKSEND,SKREAD,SKCLOS を、それぞれ
SOCKET,CONNET,SEND,RECV,CLOSE に置き換えました。
注）CRTBNDRPGするときは、DFTACTGRP は *NO にして下さい。
まだ、エラー処理とか、他のパターンなど改良の必要はあるものの、取りあえず問題なく動作しました。
今後、さらに時間をかければ、ＩＬＥ−ＲＰＧ用の ＜ＳＯＣＫＥＴ．Ｈ＞ も作成可能でしょう！
そうしておけば、／ＣＯＰＹを使用して、ＩＬＥ-ＲＰＧでもソケットが簡単に利用出来るようになりますね。
|
|