AS/400 FTPサーバー用の出口点プログラムのサンプルです。
FTPサーバーに対するユーザー制御やIPアドレス制御を行ないます。

実用に耐えられると思いますが、プログラムをよく検証して必要ならば加工してご使用下さい。

CLはFTPとのインターフェースを担っています。RPGは実際のユーザー制御やIPアドレス制御を行なっています。
注) CLの中のSH_LIBの初期値をPF及びRPGプログラムを置いたライブラリーに変更して下さい。

下記のコマンドを使用して$FTP_LOGONを出口点登録情報に登録して下さい。
ADDEXITPGM EXITPNT(QIBM_QTMF_SVR_LOGON) FORMAT(TCPL0100) PGMNBR(*LOW) PGM(MyLIB/$FTP_LOGON)

[1998/12/21]
- ver 1.0の公開。