CBLDCMCF('SEND△△△△') − 一方送信メッセージの送信（COBOL言語）

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01  一意名1.
    02  データ名A   PIC X(8)  VALUE 'SEND    '.
    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).
    02  データ名I   PIC X(4)  VALUE SPACE.
    02  データ名J   PIC X(4).
    02  データ名K   PIC X(4).
    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 9(9)  COMP VALUE ZERO.
    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 'OUT '.
    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  データ名W  PIC X(n).

●データ名A

一方送信メッセージの送信を示す要求コード「VALUE 'SEND△△△△'」を設定します。

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

空白を設定します。

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

MCFで使用する領域です。

●データ名G

0を設定します。

●データ名H

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

●データ名I

空白を設定します。

●データ名J

一般として送信するか優先として送信するかを設定します。

VALUE 'NORM'

一般の一方送信メッセージとして送信する場合に設定します。

VALUE 'PRIO'

優先の一方送信メッセージとして送信する場合に設定します。

空白

省略されたものとして，「VALUE 'NORM'」（一般の一方送信メッセージとして送信）が設定されます。

●データ名K

出力通番を付けるかどうかを設定します。

VALUE 'SEQ△'

出力通番を付ける場合に設定します。

VALUE 'NSEQ'

出力通番を付けない場合に設定します。

空白

省略されたものとして，「VALUE 'NSEQ'」（出力通番は付けない）が設定されます。

●データ名L，データ名M1，データ名M2，データ名M3

空白を設定します。

●データ名M4，データ名M5

0を設定します。

●データ名M6

空白を設定します。

●データ名M7

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

VALUE '1'

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

VALUE '2'

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

空白

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

●データ名N

MCFで使用する領域です。

●データ名O

一方送信を示す「VALUE 'OUT△'」を設定します。

●データ名P

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

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

空白を設定します。

●データ名T

MCFで使用する領域です。

●データ名U

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

送信するセグメントの長さを設定します。

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

送信するセグメントの長さ＋4を設定します。

●データ名V

送信完了通知イベントを設定します。データ名Vとビットの設定値の関係を次に示します。

AIX，HP-UXの場合

【バッファ形式1のとき】 PIC X(8)

【バッファ形式2のとき】 PIC X(2)

領域の2⁴ビットに1を設定

送信完了通知イベントを通知させます。ただし，送信完了通知イベント処理用のMHPをMCFアプリケーション定義で指定していない場合は無効です。

領域の2⁴ビットに0を設定

送信完了通知イベントを通知させません。

データ名Vとビットの設定値の関係を次に示します。

注

Xの値は次のとおりです。

　バッファ形式1の場合　X=63

　バッファ形式2の場合　X=15

Linux，Windowsの場合

【バッファ形式1のとき】 PIC X(8)

領域の2²⁸ビットに1を設定

送信完了通知イベントを通知させます。ただし，送信完了通知イベント処理用のMHPをMCFアプリケーション定義で指定していない場合は無効です。

領域の2²⁸ビットに0を設定

送信完了通知イベントを通知させません。

【バッファ形式2のとき】 PIC X(2)

領域の2¹²ビットに1を設定

送信完了通知イベントを通知させます。ただし，送信完了通知イベント処理用のMHPをMCFアプリケーション定義で指定していない場合は無効です。

領域の2¹²ビットに0を設定

送信完了通知イベントを通知させません。

●データ名W

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

●データ名B

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