(a)　マルチスレッド環境の場合

●PROCEDURE DIVISIONの指定

 
CALL  'CBLDCCLS'  USING  一意名1
 

●DATA DIVISIONの指定

 
01 一意名1.
   02  データ名A   PIC X(8)  VALUE 'DISCNCT '.
   02  データ名B   PIC X(5).
   02  FILLER     PIC X(3).
   02  データ名C   PIC S9(9) COMP VALUE ZERO.
   02  データ名D   PIC 9(9)  COMP.
 

(b)　シングルスレッド環境の場合

●PROCEDURE DIVISIONの指定

 
CALL  'CBLDCCLT'  USING  一意名1
 

●DATA DIVISIONの指定

 
01 一意名1.
   02  データ名A   PIC X(8)  VALUE 'DISCNCT '.
   02  データ名B   PIC X(5).
   02  FILLER     PIC X(3).
   02  データ名C   PIC S9(9) COMP VALUE ZERO.
 

CUP実行プロセス，rapサーバまたはDCCM3の論理端末との間の常設コネクションを解放します。

• データ名A
  常設コネクションの解放を示す要求コードを「VALUE 'DISCNCT△'」と設定します。
  
• データ名C
  0を指定します。
  
• データ名D
  CBLDCCLS('CLTIN ')，またはCBLDCCLS('EXCLTIN ')で受け取ったクライアントIDを指定します。
  

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

ステータスコード	意味
00000	正常終了しました。または，TP1/Client/Wの場合，すでに常設コネクションが切断されています。
02501	データ名に指定した値が間違っています。要求コード（データ名A）が間違っている場合も含みます。
02502	トランザクション内で発行されているか，CBLDCCLS('OPEN ')が発行されていません。
02504	必要なバッファが確保できませんでした。
02506	通信障害が発生しました。または，TP1/Client/Pの場合，すでに常設コネクションが切断されています。
02507	常設コネクション確立時に時間切れ（タイムアウト）が発生しました。
02518	システムエラーが発生しました。
02544	データ名Dに指定したクライアントIDはCBLDCCLS('CLTIN ')，またはCBLDCCLS('EXCLTIN ')で受け取ったクライアントIDと異なっています。

• CBLDCCLS('DISCNCT ')が次のステータスコードでエラーリターンした場合，常設コネクションは解放されません。
  
  • 02501
  • 02502
  • 02504（クライアント側で検知した場合）
  • 02544
• CBLDCCLS('DISCNCT ')が次のステータスコードでエラーリターンしたとき，TP1/Client側で強制的に常設コネクションを解放します。
  
  • 02504（サーバ側で検知した場合）
  • 02506
  • 02507
  • 02518
  このとき，CUP実行プロセスまたはDCCM3の論理端末はTP1/Clientで常設コネクションが解放されたことを検知しないで，CUPからの要求を待ち続けることがあります。要求待ちを避けるため，常設コネクション問い合わせ間隔最大時間（DCCM3論理端末の場合は端末放置監視時間）に適切な値を設定してください。
  
• CBLDCCLS('DISCNCT ')をトランザクション内で発行した場合，トランザクションはコミットされます。