CBLDCMCF('SENDSYNC') − 同期型メッセージの送信（COBOL言語）

PROCEDURE DIVISIONの指定

CALL 'CBLDCMCF' USING 一意名1 一意名2 一意名3

DATA DIVISIONの指定

01  一意名1.
    02  データ名A    PIC X(8)  VALUE 'SENDSYNC'.
    02  データ名B    PIC X(5).
    02  FILLER        PIC X(3).
    02  データ名C    PIC X(4)  VALUE SPACE.
    02  データ名D    PIC X(4)  VALUE SPACE.
    02  データ名E    PIC 9(8).
    02  データ名F    PIC 9(8).
    02  データ名G    PIC 9(9)  COMP VALUE ZERO.
    02  データ名H    PIC X(4)  VALUE 'EMI '.
    02  データ名I    PIC X(4)  VALUE SPACE.
    02  データ名J    PIC X(4)  VALUE SPACE.
    02  データ名K    PIC X(4)  VALUE SPACE.
    02  データ名L    PIC X(8)  VALUE SPACE.
    02  データ名M1   PIC X(4)  VALUE SPACE.
    02  データ名M2   PIC X(8)  VALUE SPACE.
    02  データ名M3   PIC X(4)  VALUE SPACE.
    02  データ名M4   PIC 9(9)  COMP VALUE ZERO.
    02  データ名M5   PIC S9(9)  COMP.
    02  データ名M6   PIC X(1)  VALUE SPACE.
    02  データ名M7   PIC X(1).
    02  データ名N    PIC X(14)  VALUE LOW-VALUE.
01  一意名2.
    02  データ名O    PIC X(4)  VALUE SPACE.
    02  データ名P    PIC X(8).
    02  データ名Q    PIC X(8)  VALUE SPACE.
    02  データ名R    PIC X(8)  VALUE SPACE.
    02  データ名T    PIC X(28)  VALUE LOW-VALUE.
01  一意名3.
    02  データ名U    PIC 9(x)  COMP.
    02  データ名V    PIC X(x).
    02  データ名W1   PIC X(12)  VALUE LOW-VALUE.
    02  データ名W2   PIC X(4).
    02  データ名W3   PIC X(2)  VALUE LOW-VALUE.
    02  データ名W4   PIC X(2).
    02  データ名W5   PIC X(4)  VALUE LOW-VALUE.
    02  データ名W6   PIC X(n).

●データ名A

同期型メッセージの送信を示す要求コードを「VALUE 'SENDSYNC'」と設定します。

●データ名C，データ名D

空白を設定します。

●データ名E，データ名F

MCFで使用する領域です。

●データ名G

0を設定します。

●データ名H

単一セグメントの送信を示す「VALUE 'EMI△'」を設定します。

●データ名I，データ名J，データ名K，データ名L，データ名M1，データ名M2，データ名M3

空白を設定します。

●データ名M4

0を設定します。

●データ名M5

CBLDCMCF('SENDSYNC')を呼び出しから終了するまでの監視時間を設定します。TP1/NET/UDPでは時間監視を行わないため，負の値を設定してください。

●データ名M6

空白を設定します。

●データ名M7

使用するバッファ形式を指定します。

VALUE '1'

バッファ形式1を使用する場合に設定します。

VALUE '2'

バッファ形式2を使用する場合に設定します。

空白

省略されたものとして，VALUE '1'（バッファ形式1）が設定されます。

●データ名N

MCFで使用する領域です。

●データ名O

空白を設定します。

●データ名P

出力先の論理端末名称を設定します。論理端末名称は最大8バイトの長さです。8バイトに満たない場合，論理端末名称の後ろを空白で埋めてください。

●データ名Q，データ名R

空白を設定します。

●データ名T

MCFで使用する領域です。

●データ名U

【バッファ形式1の場合】 PIC 9(9)

送信するセグメントの長さ＋24（制御ヘッダ）を設定します。

【バッファ形式2の場合】 PIC9(4)

送信するセグメントの長さ＋28（制御ヘッダ，データ名U，データ名V）を設定します。

●データ名V

【バッファ形式1の場合】 PICX(8)

【バッファ形式2の場合】 PICX(2)

MCFで使用する領域です。

●データ名W1，W3，W5

0を設定します。

●データ名W2

送信相手のIPアドレスを設定します。

設定方法については，「2.1.3　通信相手のアドレスの指定」を参照してください。

●データ名W4

送信相手のポート番号を設定します。

設定方法については，「2.1.3　通信相手のアドレスの指定」を参照してください。

●データ名W6

送信するセグメントの内容を設定します。一つのセグメントで31976バイトまで送信できます。

●データ名B

ステータスコードが，5けたの数字で返されます。