CBLDCMCF('TDCTCN△△') − コネクションの解放（COBOL言語）

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01  一意名1.
    02  データ名A   PIC X(8)   VALUE 'TDCTCN  '.
    02  データ名B   PIC X(5).
    02  FILLER      PIC X(3).
    02  データ名C   PIC X(4).
    02  データ名D1  PIC X(1).
    02  データ名D2  PIC X(1)   VALUE SPACE.
    02  データ名D3  PIC X(26)  VALUE SPACE.
    02  データ名E   PIC 9(9)   COMP.
    02  データ名F1  PIC X(8).
    02  データ名F2  PIC X(56)  VALUE SPACE.
    02  データ名G   PIC X(8)   VALUE SPACE.
    02  データ名H   PIC X(8)   VALUE SPACE.
    02  データ名I   PIC X(144) VALUE SPACE.
    02  データ名J   PIC X(184) VALUE SPACE.
    02  データ名K   PIC 9(9)   COMP VALUE ZERO.
 
01  一意名2.
    02  データ名L   PIC 9(9)   COMP VALUE ZERO.

●データ名A

コネクション解放を示す要求コード「VALUE 'TDCTCN△△'」を設定します。

●データ名C

解放するコネクションの指定方法を設定します。

'LE△△'

解放するコネクションを論理端末名称で指定するときに設定します。

'CN△△'

解放するコネクションをコネクションIDで指定するときに設定します。

空白

省略されたものとして，'LE△△'（論理端末名称指定）が仮定されます。

●データ名D1

コネクションを強制的に解放するかどうかを設定します。

'1'

コネクションを強制的に解放します。

コネクション定義（mcftalccn -f）のcnreleaseオペランドにrstを指定している場合，RSTパケットを送信してコネクションを強制解放します。

コネクション定義（mcftalccn -f）のcnreleaseオペランドを省略，またはfinを指定している場合，1を指定しても無効となり，FINパケットを送信してコネクションを正常に解放します。

'0'

FINパケットを送信してコネクションを正常に解放します。

空白

省略されたものとして，'0'（正常解放）が仮定されます。

●データ名D2，データ名D3

空白を設定します。

●データ名E

処理対象のコネクションを持つMCF通信サービスのMCF通信プロセス識別子^※を設定します。設定できる範囲は0〜239です。

論理端末名称を使用してコネクションの解放を要求する場合は，無効となります。

0を指定すると，該当するコネクションIDが属するMCF通信サービスを検索します。MCF通信サービスが多い構成やUAPからこの命令文を多数発行する場合は，MCF通信プロセス識別子の指定をお勧めします。

注※

MCF環境定義（mcftenv -s）で指定するMCF通信プロセス識別子は16進数と見なしてください。

例えば，MCF通信プロセス識別子が10の場合，16を設定してください。

●データ名F1

解放するコネクションの論理端末名称，またはコネクションIDを設定します。論理端末名称，またはコネクションIDは8バイト以内で設定してください。8バイトに満たない名称を設定する場合は，後ろを空白で埋めてください。

●データ名F2，データ名G，データ名H，データ名I，データ名J

空白を設定します。

●データ名K，データ名L

0を設定します。

●データ名B

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