|目次前ページ次ページ|
─────────────────────────────────────
2.FTPシーケンスの説明 

■<<< 留意点 >>> 

   ※※編集領域の介在
                      -> 凡例などの文字列や浮動小数点の値などは 
                         一旦編集領域にダウンロードしてからその編集領域 
                         を呼び出しシーケンスで指定します。 
         edit領域への値の格納(1->45)(256bytes) 
            <esc>%59;edit sp F<文字列><CR> 
            <esc>%%59;edit <control/a> F<文字列><CR> 
        edit領域の値をホストに転送(1->45)(256bytes) 
            <esc>%65;edit sp F R EDIT 
            <esc>%%65;edit <control/a> F R EDIT 
      --------------------------------------------------
        長いパラメータ領域への値の格納(65536bytes) %%%[30-mar-2003]%%% 
           ※※edit=531,532,533,534 のいづれか 
           ※※edit と記載されたもののみ使用が出来ます 
            <esc>%531;0; sp F<文字列><CR> -> ストリング領域
            <esc>%532;0; sp F<文字列><CR> -> コマンド領域
            <esc>%533;0; sp F<文字列><CR> -> リターン領域
            <esc>%534;0; sp F<文字列><CR> -> エデット領域
            <esc>%531;delim; sp F<文字列><delim> -> ストリング領域
            <esc>%532;delim; sp F<文字列><delim> -> コマンド領域
            <esc>%533;delim; sp F<文字列><delim> -> リターン領域
            <esc>%534;delim; sp F<文字列><delim> -> エデット領域
      --------------------------------------------------
        パラメータ領域の値をホストに転送[新設] 
           ※※edit=1<->45(256bytes) 
           ※※     531,532,533,534(65536bytes)  のいづれか 
            <esc>%580;edit sp F  R Data 
            <esc>%%580;edit <control/a> F R Data 
           ※※データに<CR>やコントロールコードが含まれてはいけません 
        パラメータ領域の値をホストに転送[新設] 
           ※※edit=1<->45(256bytes) 
           ※※     531,532,533,534(65536bytes)  のいづれか 
            <esc>%581;edit;termc; sp F   
                                 U 0:TERM=$C(termc) R Data 
            <esc>%%581;edit;termc; <control/a> F   
                                 U 0:TERM=$C(termc) R Data 
           ※※データに<CR>やコントロールコードが含まれても可能 
           ※※但し、終了文字コードは不可 
           ※※termc=<終了文字コードの10進数>(1以上31迄、0は<CR>) 
      --------------------------------------------------
        パラメータ領域の値を別のパラメータ領域に転送[新設] 
           ※※editfrom=0<->45(256bytes) 
           ※※     531,532,533,534(65536bytes)  のいづれか 
           ※※editto=0<->45(256bytes) 
           ※※     531,532,533,534(65536bytes)  のいづれか 
            <esc>%584;editfrom;editto; sp F   
           ※※送り側のバイト長が受け側より大きい場合は、nullが格納される 
      --------------------------------------------------
     ※※フィールド長の問題 
                       -> フィールド長が65536byteに対応 
                          Cacheの最大文字数は、32767文字  
     ※※デリミタの問題  
                       -> フィールドデータに、$ が含まれていると正しく 
                          データ取得が出来ません。 
                       -> ただし 【パラメータ領域】を介して取得する場合は
                          デリミタの問題は発生しません。 
     ※※ビジュアルコントロールモジュールの応答モード  
                       -> 【応答イベント】が発生しない状態にするか 
                          もしくは【同期イベント】モードに設定して  
                          取得リクエストを送信してイベントを取得
                          するようにしておく必要があります。
     ※※EUCコード変換される場合のレコード長の問題 
                       -> <CR><LF>区切りの長さが32767バイト迄 
                          コード変換されない場合に制限はありません  
     ※※EUC<->SJISコード変換でエラーの場合 
         Rerr2 => エラーが発生した場合238が設定されます。 

■<<< 実装されている仕様について >>> 

 @Account機能を必要とするサーバとの接続は現在サポートしていません。 
 Aサーバの拡張仕様に対応する部分は現在サポートしていません。 
 Bログインメッセージの取得とその応答処理は現在サポートしていません。 
───────────────────────────────────
               2-1
───────────────────────────────────
■FTPシーケンスの詳細
───────────────────────────────────
  ビジュアルコントロールモジュールのエラーメッセージ窓を表示させたくない場合 
  Rerr2 が 0以外の場合に発生します。 
◆ [777]エラー表示メッセード表示/非表示の設定 
※  sw=0 は非表示  
    sw=1 は表示する 
 <esc>%999;777;;sw;;;;;;;; sp M 
※ エラーが発生しても無視したい時非表示に設定 
※ (デフォルト)はエラー表示メッセードボックス表示 
-----------------------------------------
     sw <--  sw=0 は非表示 sw=1 は表示する 
     D ERRMSG^ZVCM999 
---------------------------------------------------------------------
■<<<FTPオブジェクトを作成 >>>
---------------------------------------------------------------------
     FTPオブジェクトを新規作成します。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    ◆複数のサーバと複数のユーザの同時接続が可能です。 
     <esc>%5000;1;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    ◆複数のサーバと複数のユーザの同時接続が可能です。 
     D CREATE^ZVCMFTP 
   【応答メッセージ】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<< FTPサーバとの接続 >>>
---------------------------------------------------------------------
    FTPオブジェクトが未作成ならばオブジェクトの作成もします。 
[1] シーケンス 
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534 の領域を指定する 
    edit領域に、 
   <==  Host $ Port $ User $ Password $ TransferType $ Passive $ EUC $ LoerUpper 
   を設定しておく 
   NULLのフィールドはプロパテイは変更されません 
   TransferType : (0:FALSE 1:TRUE) 
   Passive : (0:FALSE 1:TRUE) 
   EUC : (0:SJIS 1:EUC) 
   LowerUpper : (0:無変換 1:ToLower 2:ToUpper) 
     <esc>%5000;201;ftpid;edit;;; sp M ==> ログインする 
     <esc>%5000;200;ftpid;edit;;; sp M ==> ログインしない(通常使用しない) 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------------
[2] Cache用共通関数 
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534 の領域を指定する 
    editstr 
   <==  Host $ Port $ User $ Password $ TransferType $ Passive $ EUC $ LoerUpper 
   を設定しておく 
   NULLのフィールドはプロパテイは変更されません 
   TransferType : (0:FALSE 1:TRUE) 
   Passive : (0:FALSE 1:TRUE) 
   EUC : (0:SJIS 1:EUC) 
   LowerUpper : (0:無変換 1:ToLower 2:ToUpper) 
     D CONNECT^ZVCMFTP ==> ログインする 
     D CONNECTNOLOGIN^ZVCMFTP==> ログインしない(通常使用しない)  
   【応答メッセージ】 
    Rmain => Connectコマンドの応答メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<FTPクライアント接続を終了>>>
---------------------------------------------------------------------
     ファイル転送が進行中の場合,アプリケーションでは, 
     Quit メソッドを呼び出す前に Abort メソッドを呼び出す必要があります。 
     QUITでエラーの場合はFTPオブジェクトを廃棄してください。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;202;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D QUIT^ZVCMFTP 
   【応答メッセージ】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<継続シグナルを送信します >>>
---------------------------------------------------------------------
     何も動作をしないと900sec等で接続が切断します。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
 <esc>%5000;203;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
 D NOOP^ZVCMFTP 
   【応答メッセージ】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<FTPオブジェクトを廃棄 >>>
---------------------------------------------------------------------
     FTPオブジェクトを廃棄します。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;204;ftpid;;; sp M 
     <esc>%5000;4;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D DESTROY^ZVCMFTP 
   【応答メッセージ】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<FTPサービスの処理を中止 >>>
---------------------------------------------------------------------
     この後、Quitを実行すること。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;205;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D ABORT^ZVCMFTP 
   【応答メッセージ】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ログインする >>>
---------------------------------------------------------------------
     ログインしないで、CONNECTした場合に使用します。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;208;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D LOGIN^ZVCMFTP 
   【応答メッセージ】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<リモートコンピュータシステムのアドレスを設定 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== アドレス文字列(IPアドレス または ホスト名) 
     <esc>%5000;211;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== アドレス文字列(IPアドレス または ホスト名) 
     D HOST^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 変更前の値($は?に変換)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<リモートコンピュータシステムのパスワードを設定 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== パスワード文字列 
     <esc>%5000;212;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== パスワード文字列 
     D PASSWORD^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 変更前の値($は?に変換)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<接続に使われるポート番号を設定 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ポート番号文字列(21) 
     <esc>%5000;213;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ポート番号文字列 
     D PORT^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 変更前の値($は?に変換)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバにログインする際のユーザ名を設定 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ユーザ名文字列 
     <esc>%5000;214;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ユーザ名文字列 
     D USER^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 変更前の値($は?に変換)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ファイル転送の種類を設定 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <== 0:バイナリ 1:ASCII 
     <esc>%5000;251;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <== 0:バイナリ 1:ASCII 
     D TRANSFERTYPE^ZVCMFTP 
   【応答メッセージ】 
    Rselno =>変更前の値(1:ASCII,0:Binary) 
    Rmain => 変更前の値(ASCII,Binary)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<FTPの接続方式を指定 >>>
---------------------------------------------------------------------
 ◆インターネット経由では、Passiveモードに設定します
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:PORT方式 1:PASV方式 
     <esc>%5000;253;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:PORT方式 1:PASV方式 
     D PASSIVE^ZVCMFTP 
   【応答メッセージ】 
    Rselno =>変更前の値(0:PORT方式 1:PASV方式) 
    Rmain => 変更前の値(Passive,Port)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上のファイル名のアルファベットを大文字、小文字、無変換指定 >>>
---------------------------------------------------------------------
 ◆サーバ上のファイル名にのみ適用されます
 ◆FTPオブジェクトのプロパテイ別に管理されます
 ◆FTPオブジェクトのftpid毎に管理されます
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:無変換 1:小文字に変換 2:大文字に変換 
     <esc>%5000;261;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:無変換 1:小文字に変換 2:大文字に変換 
     D UPPERLOWER^ZVCMFTP 
   【応答メッセージ】 
    Rselno =>変更前の値(0:無変換 1:小文字に変換 2:大文字に変換) 
---------------------------------------------------------------------
■<<<ASCII転送の場合はEUC<->SJISコード変換を有効又は無効 >>>
---------------------------------------------------------------------
 ◆FTPオブジェクトのプロパテイ別に管理されます
 ◆FTPオブジェクトのftpid毎に管理されます
 ◆サーバ⇔ローカルコンピュータ間でファイル名とデータ内容に適用されます
   [*]32Kbyteレコード迄可能(1つの<CR><LF>区切りの制限) 
   [*]ASCII/BINARYいずれでも【ファイル名】のEUC<->SJISコード変換有効又は無効 
   [*]ASCII転送の場合はファイルの【データ内容】をEUC<->SJISコード変換有効又は無効 
   [*]【ファイル名のリスト】等でもEUC<->SJISコード変換有効又は無効 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:無効(コード変換無) 1:有効(コード変換有) 
     <esc>%5000;262;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:無効(コード変換無) 1:有効(コード変換有) 
     D EUC^ZVCMFTP 
   【応答メッセージ】 
    Rselno =>変更前の値(0:無効(コード変換無) 1:有効(コード変換有)) 
    Rmain => 変更後の値(Enabled,Disabled)例外が発生した場合メッセージ 
---------------------------------------------------------------------
■<<<ローカルコンピュータのカレントデイレクトリを変更 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     <esc>%5000;401;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     D SETCURDIR1^ZVCMFTP 
   【応答メッセージ】 
---------------------------------------------------------------------
■<<<サーバのカレントデイレクトリを変更 >>>
---------------------------------------------------------------------
   [*] EUC変換、大文字小文字変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     <esc>%5000;403;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     D CHANGEDIR^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバの上の階層のデイレクトリにカレントデイレクトリを変更 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;404;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D CHANGEDIRUP^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> 0:エラー 1:正常に終了 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上にデイレクトリを作成 >>>
---------------------------------------------------------------------
   [*] EUC変換、大文字小文字変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     <esc>%5000;405;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     D MAKEDIR^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上のデイレクトリを削除 >>>
---------------------------------------------------------------------
   [*] EUC変換、大文字小文字変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     <esc>%5000;406;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     D REMOVEDIR^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上のファイルを削除 >>>
---------------------------------------------------------------------
   [*] EUC変換、大文字小文字変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     <esc>%5000;407;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
    D DELETE^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上のファイルの名前を変更 >>>
---------------------------------------------------------------------
   [*] EUC変換、大文字小文字変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- 変更する前のファイル名 
    rect <== 編集領域番を指定する 
    rectstr <-- 変更後のファイル名 
     <esc>%5000;408;ftpid;edit;rect;;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- 変更する前のファイル名 
    rect <== 編集領域番を指定する 
    rectstr <-- 変更後のファイル名 
     D RENAME^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバにサイトコマンドを送信します >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- コマンド文字列 
     <esc>%5000;409;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- コマンド文字列 
     D SITE^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ローカルコンピュータのカレントデイレクトリを保存 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;421;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D SAVEDIR^ZVCMFTP 
   【応答メッセージ】 
---------------------------------------------------------------------
■<<<ローカルコンピュータのカレントデイレクトリを復元 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;422;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D RESTDIR^ZVCMFTP 
   【応答メッセージ】 
    Rselno  --> 0:エラー 1:正常に終了 
---------------------------------------------------------------------
■<<<ピア接続がアクテイブかどうか >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;500;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D CONNECTED^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> 0:アクテイブでない 1:アクテイブ 
    Rmain => (Connected,Closed)例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ローカルコンピュータのカレントデイレクトリを取得 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534の場合のみeditの指す領域にも結果を格納 
     <esc>%5000;501;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534の場合のみeditの指す領域にも結果を格納 
     D GETCURRENTDIR^ZVCMFTP 
   【応答メッセージ】 
    Rmain -> カレントデイレクトリ($は?に変換) 
    editの指す領域 -> カレントデイレクトリ(自分でサーバに転送が必要) 
                        【Rmainのような$の変換無】 
---------------------------------------------------------------------
■<<<FTP STATコマンドの応答を取得 >>>
---------------------------------------------------------------------
   [*] EUC変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;502;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D STATUS^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> 例外が発生した場合のコード
    Rmain -> コマンドの応答メッセージを;をデリミタとして
                引用符が必要な場合は引用符で囲われます。
                32000バイト以下の場合設定される
                例外が発生した場合メッセージ 
---------------------------------------------------------------------
■<<<FTP STATコマンドの応答を取得 >>>
---------------------------------------------------------------------
   [*] EUC変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534の場合のみeditの指す領域に結果を格納 
     <esc>%5000;503;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    editの指す領域 --> 応答メッセージの詳細(自分でサーバに転送が必要) 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534の場合のみeditの指す領域に結果を格納 
      D STATUS2^ZVCMFTP 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    editの指す領域 -> 応答メッセージの詳細 
    editstr ->応答メッセージの詳細(各行のデリミタは;) 
                32762バイト以下の場合設定される
---------------------------------------------------------------------
■<<<サーバの説明を取得 >>>
---------------------------------------------------------------------
   [*] EUC変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;504;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D SYSTEMDESC^ZVCMFTP 
   【応答メッセージ】 
    Rmain -> サーバの説明
                例外が発生した場合メッセージ 
                1024バイト以下の場合設定される
---------------------------------------------------------------------
■<<<サーバ上のファイルのザイスを取得 >>>
---------------------------------------------------------------------
   [*] ファイルはEUC変換に影響されます 
   [*] 転送タイプがASCIIとBinaryでは、返される値が異なります。 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ファイル文字列 
     <esc>%5000;505;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ファイル文字列 
     D SIZE^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> ファイルのザイス(-1:不明)(64ビット数値) 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上のカレントデイレクトリを取得 >>>
---------------------------------------------------------------------
   [*] EUC変換に影響されます 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534の場合のみeditの指す領域に結果を格納 
     <esc>%5000;506;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    editの指す領域 --> カレントデイレクトリ(自分でサーバに転送が必要) 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 531,532,533,534の場合のみeditの指す領域にも結果を格納 
     D RETRIVECURRENTDIR^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> 例外が発生した場合のコード 
    Rmain -> カレントデイレクトリ($ は ? に変換されます) 
                例外が発生した場合メッセージ 
    editの指す領域 -> カレントデイレクトリ(自分でサーバに転送が必要) 
                        【Rmainのような$の変換無】 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ローカルコンピュータのカレントデイレクトリを変更 >>>
---------------------------------------------------------------------
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     <esc>%5000;507;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- デイレクトリ文字列 
     D SETCURDIR2^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> 0:エラー 1:正常に終了 
---------------------------------------------------------------------
■<<<サーバ上のファイルを取得 >>>
---------------------------------------------------------------------
  [*] EUC変換、大文字小文字変換に影響されます 
  <転送時>転送モードがASCIIでかつ 
          コード変換有のときファイル中のデータはSJIS<-EUC 変換される 
          変換される場合ファイル名は128バイト以内であること 
  [*]EUC変換有りの場合32Kbyteレコード迄可能(1つの<CR><LF>区切りの制限) 
  [*]EUC変換有りの場合ASCII/BINARYいずれでも【ファイル名】のEUC<->SJISコード変換 
  [*]EUC変換有りの場合ASCII転送の場合はファイルの【データ内容】をEUC<->SJISコード変換 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- サーバ上のファイル名【EUC変換される場合有】 
    rect <== 編集領域番を指定する 
    rectstr <-- ローカルコンピュータに格納するファイル名
           (nullまたは*ならばeditstrと同じとみなす)
    sw <- (0:上書き可不可 1:ファイルを上書き可能)
     <esc>%5000;551;ftpid;edit;rect;sw;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- サーバ上のファイル名【EUC変換される場合有】 
    rect <== 編集領域番を指定する 
    rectstr <-- ローカルコンピュータに格納するファイル名
           (nullまたは*ならばeditstrと同じとみなす)
    sw <- (0:上書き可不可 1:ファイルを上書き可能)
     D GET^ZVCMFTP 
   【応答メッセージ】 
    Rselno => 例外が発生した場合のコード 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上にファイルをアップロードします >>>
---------------------------------------------------------------------
  [*] EUC変換、大文字小文字変換に影響されます 
  <転送時>転送モードがASCIIでかつ 
          コード変換有のときファイル中のデータはSJIS<->EUC 変換される 
          変換される場合ファイル名は128バイト以内であること 
  [*]EUC変換有りの場合32Kbyteレコード迄可能(1つの<CR><LF>区切りの制限) 
  [*]EUC変換有りの場合ASCII/BINARYいずれでも【ファイル名】のEUC<->SJISコード変換 
  [*]EUC変換有りの場合ASCII転送の場合はファイルの【データ内容】をEUC<->SJISコード変換 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- ローカルコンピュータ上のファイル名 
    rect <== 編集領域番を指定する 
    rectstr <-- サーバに格納するファイル名【EUC変換される場合有】
           (nullまたは*ならばeditstrと同じとみなす)
    sw <- (0:上書き 1:ファイルに追加します) 
     <esc>%5000;553;ftpid;edit;rect;sw;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- ローカルコンピュータ上のファイル名
    rect <== 編集領域番を指定する 
    rectstr <-- サーバに格納するファイル名【EUC変換される場合有】
           (nullまたは*ならばeditstrと同じとみなす)
    sw <- (0:上書き 1:ファイルに追加します) 
     D PUT^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> 例外が発生した場合のコード 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<サーバ上のデイレクトリのリストを取得 >>>
---------------------------------------------------------------------
  [*] EUC変換に影響されます 
  [*] [ファイルの詳細を含める]場合サーバのOS毎に[フォーマット]が異なります 
[1] シーケンス
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit  <== 編集領域番を指定する 
    editstr <-- リスト表示用のファイルマスク。デフォルト値は '' 
         *.* - カレントディレクトリ内の全ファイル 
         * - カレントディレクトリ内の全ディレクトリエントリ 
         *. - 拡張子に関係なくカレントディレクトリ内の全ファイル 
         A??.txt - 「A」で始まる名前が 3 文字の全テキストファイル 
    rect <-- 531,532,533,534 ならばパラメタ領域に格納(FILE;FILE;...) 
            デリミタは; 
            それ以外の場合結果リストは格納されない 
    list <-- 作成済みのストリングリストのvcmのid番号 
          [*] ストリングリストはクリアされてから格納されます 
            0:作成済みのストリングリストに格納されない 
    sw <- (0:ファイル名のみ 1:ファイルの詳細を含める) 
     <esc>%5000;552;ftpid;edit;rect;sw;list;;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
    listの指すストリングリスト --> 結果リスト(長さ制限無し)が格納される 
---------------------------------------------------------------
[2] Cache用共通関数
    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <-- リスト表示用のファイルマスク。デフォルト値は '' 
         *.* - カレントディレクトリ内の全ファイル 
         * - カレントディレクトリ内の全ディレクトリエントリ 
         *. - 拡張子に関係なくカレントディレクトリ内の全ファイル 
         A??.txt - 「A」で始まる名前が 3 文字の全テキストファイル 
    rect <-- 531,532,533,534 ならばパラメタ領域に格納(FILE;FILE;...) 
            デリミタは; 
            それ以外の場合結果リストは格納されない 
    list <-- 作成済みのストリングリストのvcmのid番号 
            0:作成済みのストリングリストに格納されない 
    sw <- (0:ファイル名のみ 1:ファイルの詳細を含める) 
     D LIST^ZVCMFTP 
   【応答メッセージ】 
    Rselno -> ファイル名のリスト文字列とデリミタを加えた合計のバイト数合計
                長さが制限を越えた場合にも正しく設定される 
    Rselcnt -> ファイルの個数
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
    rectstr => 結果リスト【EUC変換される場合有】(32762バイト迄可能) 
    listの指すストリングリスト -> 結果リスト(長さ制限無し)が格納される 
---------------------------------------------------------------------
詳細を含める場合以下のケースもあります。=> 
 ;;ディレクトリ名:total nn;drwxr-r-xr-x 2 sim sim 3495 jan 24 12:15 .; 
---------------------------------------------------------------------
───────────────────────────────────
               2-2 
───────────────────────────────────
■FTPシーケンスの追加分(プロキシ等)
---------------------------------------------------------------------
■<<<プロキシ設定(プロキシタイプ)>>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- プロキシタイプ 
        0:fpcmNone 
        1:fpcmUserSite
        2:fpcmSite
        3:fpcmOpen 
        4:fpcmUserPass
        5:fpcmTransparent 
        6:fpcmUserHostFireWallID 
        7:fpcmNovellBorder 
        8:fpcmHttpProxyWithFtp 
          fpcmCustomProxy は設定できません
     <esc>%5000;451;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- プロキシタイプ 
        0:fpcmNone 
        1:fpcmUserSite
        2:fpcmSite
        3:fpcmOpen 
        4:fpcmUserPass
        5:fpcmTransparent 
        6:fpcmUserHostFireWallID 
        7:fpcmNovellBorder 
        8:fpcmHttpProxyWithFtp 
          fpcmCustomProxy は設定できません
     D PROXYTYPE^ZVCMFTP2 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<プロキシのIPアドレスを設定 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== アドレス文字列(IPアドレス) 
     <esc>%5000;452;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== アドレス文字列(IPアドレス) 
     D PROXYHOST^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<プロキシのパスワードを設定 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== パスワード文字列 
     <esc>%5000;453;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== パスワード文字列 
     D PROXYPASSWORD^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<プロキシのポート番号 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ポート番号文字列(21) 
     <esc>%5000;454;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ポート番号文字列 
     D PROXYPORT^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<プロキシのユーザ名を設定 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ユーザ名文字列 
     <esc>%5000;455;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ユーザ名文字列 
     D PROXYUSERNAME^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<AUTHCmd >>>
---------------------------------------------------------------------
Indicates the mechanism to use when performing authentication 
     when logging into the FTPO server.
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <-  
    0:tAuto TLS support is determined by trying each of the valid AUTHCmd values.
    1:tAuthTLS Implies TLS using a clear data port. 
    2:tAuthSSL Implies SSL using a private data port.
    3:tAuthTLSC  Implies TLS using a clear data port.
    4:tAuthTLSP Implies TLS using a private data port.
     <esc>%5000;703;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <-  
    0:tAuto TLS support is determined by trying each of the valid AUTHCmd values.
    1:tAuthTLS Implies TLS using a clear data port. 
    2:tAuthSSL Implies SSL using a private data port.
    3:tAuthTLSC  Implies TLS using a clear data port.
    4:tAuthTLSP Implies TLS using a private data port.
     D AUTHCMD^ZVCMFTP2 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<AutoLogin >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     <esc>%5000;704;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     D AUTOLOGIN^ZVCMFTP2 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ClientInfo->ClientName >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ClientName文字列 
     <esc>%5000;711;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ClientName文字列 
     D CLIENTNAME^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ClientInfo->ClientVersion >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ClientVersion文字列 
     <esc>%5000;712;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ClientVersion文字列 
     D CLIENTVERSION^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ClientInfo->ClntOutput取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
     <esc>%5000;713;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
     D CLIENTOUTPUT^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => ClntOutput文字列 
             例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ClientInfo->PlatformDescription >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== PlatformDescription文字列 
     <esc>%5000;714;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== PlatformDescription文字列 
     D PLATFORMDESCRIPTION^ZVCMFTP2 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
───────────────────────────────────
               2-3 
───────────────────────────────────
■FTPシーケンス追加分その2
---------------------------------------------------------------------
■<<<CurrentTransferMode取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;721;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D CURRENTTRANSFERMODE^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 0:dmStream 1:dmDeflate 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<DataPort >>>
---------------------------------------------------------------------
 Indicates the port number to use when binding the data channel
     for the FTP client session.
 The default value for the DataPort property is 0 (zero),            
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== DataPort property文字列 
     <esc>%5000;722;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== DataPort property文字列 
     D DATAPORT^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<DataPortMax >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== DataPortMax property文字列 
     <esc>%5000;723;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== DataPortMax property文字列 
     D DATAPORTMAX^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<DataPortMin >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== DataPortMin property文字列 
     <esc>%5000;724;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== DataPortMin property文字列 
     D DATAPORTMIN^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<DataPortProtection取得 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;725;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D DATAPORTPROTECTION^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 1:ftpdpsClear 2:ftpdpsPrivate 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<DirFormat取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;741;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D DIRFORMAT^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => DirFormat文字列 
             例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<DisconnectNotifyPeerを実行 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;742;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D DISCONNECTNOTIFYPEER^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ExternalIP >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ExternalIP文字列 
     <esc>%5000;751;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ExternalIP文字列 
     D EXTERNALIP^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 変更前の値(例外が発生した場合メッセージ) 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
 ■<<<FileDateファイル日付時間文字列を取得 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ファイル文字列 
     <esc>%5000;752;ftpid;edit;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== ファイル文字列 
     D FILEDATE^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => ファイル日付時間文字列(2007/07/30 16:15:08)のように 
             例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<FileStructureを設定  >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <-  
       1:dsFile 
       2:dsRecord 
       3:dsPage 
     <esc>%5000;753;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     D FILESTRUCTURE^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<GetLoginPassword取得 >>>
---------------------------------------------------------------------
The hashed OTP Response using the Password for the FTP client. 
 Constructs the authentication credentials for the FTP session in the Login method. 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;754;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D GETLOGINPASSWORD^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => Password文字列 
             例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<GetLoginPassword取得(その2) >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== APrompt文字列 
     <esc>%5000;755;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== APrompt文字列 
     D GETLOGINPASSWORD2^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => Password文字列 
             例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ReadTimeout >>>
---------------------------------------------------------------------
Number of milliseconds to wait for an FTP protocol response. 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== milliseconds文字列 
     <esc>%5000;761;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== milliseconds文字列 
     D READTIMEOUT^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<ReInitialize >>>
---------------------------------------------------------------------
  [*] 機能が実装されていないサーバでは例外が発生します 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;762;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D REINITIALYZE^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<SetLang設定 >>>
---------------------------------------------------------------------
Requests greeting and textual responses in the spcified language. 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== SetLang文字列 
     <esc>%5000;763;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== SetLang文字列 
     D SETLANG^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<SupportsVerification取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;764;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D SUPPORTSVERIFICATION^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 0:false 1:true 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<TransferModeを設定 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:dmStream 1:dmDeflate 
     <esc>%5000;765;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:dmStream 1:dmDeflate 
     D TRANSFERMODE^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<TransferTimeout >>>
---------------------------------------------------------------------
TransferTimeout is an Integer property that represents the number of milliseconds  
to wait for data packetes when receiving data on the data channel for the FTP client. 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== milliseconds文字列 
     <esc>%5000;766;ftpid;edit;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    edit <== 編集領域番を指定する 
    editstr <== milliseconds文字列 
     D TRANSFERTIMEOUT^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<LangSupported取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;767;ftpid;;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D LANGSUPPORTED^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 結果の文字列(例外が発生した場合メッセージ) 
             デリミタ;で結合された文字列 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UseCCC >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     <esc>%5000;771;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     D USEUCC^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UseExtensionDataPort >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     <esc>%5000;772;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     D USEEXTENSIONDATAPORT^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UseMLIS >>>
---------------------------------------------------------------------
Indicates if the FTP MLST and MLSD commands are used for directory listings. 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     <esc>%5000;773;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <- 0:false 1:true 
     D USEMLIS^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UseTLS >>>
---------------------------------------------------------------------
Indicates Transport-Level Security is used on the connection. 
    [*] 機能が実装されていないサーバでは例外が発生します 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <-  以下の値以外は現在値の取得 

      0:utNoTLSSupport 
      1:utUseImplicitTLS 
      2:utUseRequireTLS 
      3:utUseExplicitTLS 
     <esc>%5000;774;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
    sw <-  以下の値以外は現在値の取得 
      0:utNoTLSSupport 
      1:utUseImplicitTLS 
      2:utUseRequireTLS 
      3:utUseExplicitTLS 
     D USETLS^ZVCMFTP3 
   【応答メッセージ】 
    Rselno => 変更前の値 
    Rmain => 例外が発生した場合メッセージ 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UsingExtDataPort取得 >>>
---------------------------------------------------------------------
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;775;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D USINGEXTDATAPORT^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rselno => 0:false 1:true 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UsingNATFastTrack取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;776;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D USINGNATFASTTRACK^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rselno => 0:false 1:true 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
■<<<UsingSFTP取得 >>>
---------------------------------------------------------------------
  [*] 読み込み専用 
[1] シーケンス

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     <esc>%5000;777;ftpid;;;sw;; sp M 
   【応答メッセージ】がtelnetサーバから送信されて来ます 
---------------------------------------------------------------
[2] Cache用共通関数

    ftpid <== 0 から 127 迄のFTPオブジェクトを識別するID 
     D USINGSFTP^ZVCMFTP3 
   【応答メッセージ】 
    Rmain => 例外が発生した場合メッセージ 
    Rselno => 0:false 1:true 
    Rerr2 => 例外が発生した場合、238 が設定されます。 
---------------------------------------------------------------------
───────────────────────────────────
               2-4 
     |目次前ページ次ページ