CBLDCMCF('TLSLE△△△') − 論理端末の状態取得（COBOL言語）

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01  一意名1.
    02  データ名A   PIC X(8)   VALUE 'TLSLE   '.
    02  データ名B   PIC X(5).
    02  FILLER      PIC X(3).
    02  データ名C   PIC X(4)   VALUE SPACE.
    02  データ名D   PIC X(28)  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.
 
01  一意名3.
    02  データ名M   PIC 9(9)   COMP.
    02  一意名4.
        03  データ名N   PIC X(8).
        03  データ名O   PIC X(4)  VALUE LOW-VALUE.
        03  データ名P   PIC X(4).
        03  データ名Q   PIC X(40) VALUE LOW-VALUE.

●データ名A

論理端末の状態取得を示す要求コード「VALUE 'TLSLE△△△'」を設定します。

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

空白を設定します。

●データ名E

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

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

注※

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

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

●データ名F1

状態を取得する論理端末の名称を設定します。論理端末名称は8バイト以内で設定してください。8バイトに満たない名称を設定する場合は，後ろを空白で埋めてください。

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

空白を設定します。

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

0を設定します。

●データ名M

一意名4から一意名nの数（データ名N，データ名O，データ名P，とデータ名Qの組の数）として，1を設定します。

処理終了後は，該当する論理端末の個数が返されます。

●データ名O，データ名Q

MCFで使用する領域です。

●データ名B

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

●データ名M

この命令文の対象となった論理端末の個数が返されます。

●データ名N

要求した論理端末の名称が設定されます。

●データ名P

要求した論理端末の状態として，次の値が設定されます。

'ACT△'

閉塞解除状態

'DCT△'

閉塞状態