CBLEESCD('MSGSKIP ')【XTC限定】

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01 一意名1.
  02 データ名A  PIC X(8) VALUE 'MSGSKIP '.
  02 データ名B  PIC X(5).
  02 FILLER     PIC X(3).
  02 データ名Z  PIC S9(9) COMP VALUE ZERO.
01 一意名2.
  02 データ名C  PIC 9(9) COMP VALUE ZERO.
  02 データ名D  PIC X(4) VALUE '    '.
  02 データ名E  PIC X(1) VALUE 'A'.
  02 データ名F  PIC X(32).

●データ名A

サービスの要求を示す要求コードを「VALUE 'MSGSKIP△'」と設定します。

●データ名Z

0を設定します。

●データ名C

0を設定します。

●データ名D

VALUE '△△△△'を設定します。

●データ名E

次の値を設定します。

VALUE 'A'

入力キューに滞留しているすべてのメッセージを読み出し済みにします。

●データ名F

サービス名を，31バイト以内のアスキー文字列で設定します。文字列の最後には空白を設定してください。この空白は文字列の長さに数えません。

●データ名B

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