送信要求API
該当ファイルIDに対して送信要求を行います。言語環境(LE)で動作するため、LEライブラリ(OS導入時、省略時のライブラリ名:CEE.SCEERUN)が必要です。
同期転送モードの送信要求はサポートしていません。
(1) 呼び出し形式(COBOL)
CALL 'XRRCVAP' USING パラメータエリア
パラメータエリア説明
|
項目 |
属性 |
長さ |
入出力 |
説明 |
|---|---|---|---|---|
|
動作バージョン |
キャラクタ |
6 |
入力 |
パラメータエリアのバージョンを指定します。 以下のいずれかを指定してください。
どちらを指定しても動作は変わりません。 |
|
集信ファイルID |
キャラクタ |
50 |
入力 |
集信依頼するファイルIDを指定します。 |
|
リザーブ |
キャラクタ |
8 |
|
|
|
完了コード |
バイナリ |
2 |
出力 |
実行後、完了コードが設定されます。 |
|
詳細コード |
バイナリ |
2 |
出力 |
実行後、詳細コードが設定されます。 |
(2) 完了コード
|
完了コード |
内容 |
|---|---|
|
0 |
正常に送信要求を実行しました。 |
|
1 |
集配信管理ファイルのオープンに失敗しました。 |
|
2 |
該当ファイルIDの集信管理情報は存在しません。 |
|
3 |
集配信管理情報の取得に失敗しました。 |
|
4 |
集配信管理情報に指定されている転送グループ情報は存在しません。 |
|
5 |
転送グループ情報の取得に失敗しました。 |
|
6 |
詳細ホスト情報の取得に失敗しました。 |
|
7 |
TCPIPとの接続に失敗しました。詳細コードに通信異常のコードが設定されます。「エラーコード・メッセージ」の通信エラーコード一覧を参照してください。 |
|
8 |
相手ホストとの接続に失敗しました。詳細コードに通信異常のコードが設定されます。「エラーコード・メッセージ」の通信エラーコード一覧を参照してください。 |
|
9 |
相手ホストとの通信に失敗しました。詳細コードに接続相手機種の完了コードが設定されます。相手機種の「エラーコード・メッセージ」を参照してください。 |
|
10 |
相手ホストとの要求接続に失敗しました。詳細コードに通信異常のコードが設定されます。「エラーコード・メッセージ」の通信エラーコード一覧を参照してください。 |
|
11 |
接続先製品との接続にて、バージョン不整合が発生しました。サポートバージョンを確認してください。 |
|
12 |
動作バージョンがサポートされていません。 |
|
13 |
通信対象のバージョンとの間で利用できない機能が指定されています。
|
実行するJCLに以下のDDステートメントの記述をしてください。
-
JCL例
//XRFILE DD DSN=HULFT.FILE,DISP=SHR //XRHOST DD DSN=HULFT.HOST,DISP=SHR //XRSYSIN DD DSN=HULFT.PARMLIB(HULPRM),DISP=SHR //IPGET DD DSN=HULFT.HOSTS.LOCAL,DISP=SHR //*SYSTCPD DD DSN=TCPIVP.TCPPARMS(TCPDATA),DISP=SHR
|
DD名 |
項目名 |
説明 |
|---|---|---|
|
XRFILE |
HULFT.FILE |
集配信管理ファイル |
|
XRHOST |
HULFT.HOST |
詳細ホスト情報ファイル |
|
XRSYSIN |
HULFT.PARMLIB(HULPRM) |
システム動作環境設定ファイル |
|
IPGET |
HULFT.HOSTS.LOCAL |
IP管理ファイル |
|
SYSTCPD |
TCPIVP.TCPPARMS(TCPDATA) |
TCPIP.DATAデータセット |
(3) 使用例
COBOLで使用する場合
送信要求API(XRRCVAP)を利用して、送信要求を発行するサンプルプログラムです。
サンプルプログラムは、HULFT JCLライブラリ内のメンバー名「SMPRCVAP」です。
使用するデータ
- 集信管理情報の「ファイルID」
-
: FILEID
*
* HULFT SEND REQUEST API SAMPLE
*
IDENTIFICATION DIVISION.
PROGRAM-ID. SMPRCVAP.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*
* XRRCVAP PARAMETER AREA
*
01 XRRCVAP-PARM.
02 XRRCVAP-VER PIC X(6).
02 XRRCVAP-FILEID PIC X(50).
02 XRRCVAP-RESERVE PIC X(8).
02 XRRCVAP-RTNCD PIC 9(4) COMP.
02 XRRCVAP-ERRCD PIC 9(4) COMP.
*------------------------------------------------*
PROCEDURE DIVISION.
*
* XRRCVAP PARAMETER AREA INITIALIZATION
*
INITIALIZE XRRCVAP-PARM.
*
* ISSUE REQUEST FOR SEND REQUEST
*
MOVE 'V08L04' TO XRRCVAP-VER.
MOVE 'FILEID' TO XRRCVAP-FILEID.
CALL 'XRRCVAP' USING XRRCVAP-PARM.
*
STOP RUN.