Hitachi

OpenTP1 Version 7 分散トランザクション処理機能 OpenTP1 プログラム作成リファレンス COBOL言語編


CBLDCMCF('APINFO ')

〈このページの構成〉

名称

アプリケーション情報通知

形式

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01  一意名1.
    02  データ名A  PIC X(8) VALUE 'APINFO  '.
    02  データ名B  PIC X(5).
    02  FILLER    PIC X(3).
    02  データ名C  PIC X(4).
    02  データ名D  PIC X(4) VALUE SPACE.
    02  データ名E  PIC X(2).
    02  データ名F  PIC X(2) VALUE SPACE.
    02  データ名G  PIC X(8).
    02  データ名H  PIC X(28) VALUE LOW-VALUE.
01  一意名2.
    02  データ名I  PIC X(4) VALUE SPACE.
    02  データ名J  PIC X(8).
    02  データ名K  PIC X(2).
    02  データ名L  PIC X(2) VALUE SPACE.
    02  データ名M  PIC X(4).
    02  データ名M1 PIC X(1).
    02  データ名M2 PIC X(3) VALUE SPACE.
    02  データ名N  PIC X(31).
    02  データ名N1 PIC X(4).
    02  データ名N2 PIC X(4).
    02  データ名N3 PIC X(1) VALUE SPACE.
    02  データ名O  PIC X(31).
    02  データ名P  PIC X(4).
    02  データ名Q  PIC X(5) VALUE SPACE.
    02  データ名R  PIC 9(9)  COMP.
    02  データ名S  PIC 9(9)  COMP.
    02  データ名T  PIC 9(9)  COMP.
    02  データ名U  PIC X(4).
    02  データ名V  PIC X(1).
    02  データ名W  PIC X(79) VALUE LOW-VALUE.

機能

MHPからアプリケーションに関するさまざまな情報を取得できます。

通知の対象となるアプリケーションは,CBLDCMCF('APINFO ')を呼び出したMHP自身のアプリケーションか,ほかのMHPのアプリケーションです。

CBLDCMCF('APINFO ')が正常終了した場合だけ,アプリケーション情報は有効となります。

UAPで値を設定するデータ領域

●データ名A

アプリケーション情報通知を示す要求コードを「VALUE 'APINFO△△'」と設定します。

●データ名C

参照するアプリケーションによって,次のどちらかを設定します。

'SELF'

CBLDCMCF('APINFO ')を呼び出したMHPに関するアプリケーション情報を取得する場合に設定します。

'OTHE'

アプリケーション定義が登録されているMCF通信サービスのプロセス識別子とアプリケーション名によって,特定のアプリケーションに関するアプリケーション情報を取得する場合に設定します。

●データ名D

空白を設定します。

●データ名E

プロセス識別子を設定します。

  • データ名Cに'SELF'を設定した場合

    空白を設定します。

  • データ名Cに'OTHE'を設定した場合

    参照するアプリケーションの定義が登録されているMCF通信プロセス識別子,またはアプリケーション起動プロセス識別子を設定します。

●データ名F

空白を設定します。

●データ名G

アプリケーション名を設定します。

  • データ名Cに'SELF'を設定した場合

    空白を設定します。

  • データ名Cに'OTHE'を設定した場合

    参照したいアプリケーション名を設定します。アプリケーション名は8バイト以内で設定してください。8バイトに満たない名称を設定する場合は,後ろを空白で埋めてください。

    ただし,エラーイベント名(ERREVT1,ERREVT2,ERREVT3,ERREVT4)を設定した場合,データ名M1には,アプリケーション定義の省略時解釈値である非応答型('N')が設定されます。

●データ名H

「LOW-VALUE」を設定します。

●データ名I,データ名L,データ名M2,データ名N3,データ名Q

空白を設定します。

●データ名W

「LOW-VALUE」を設定します。

OpenTP1から値が返されるデータ領域

●データ名B

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

●データ名J

通知対象のアプリケーション名が設定されます。

●データ名K

通知対象のアプリケーションが登録されているMCF通信サービスのプロセス識別子が設定されます。

●データ名M

アプリケーションの閉塞,閉塞解除の状態が設定されます。

'INDA' … 入力閉塞状態

'SCDA' … スケジュール閉塞状態

'DACT' … 入力・スケジュール閉塞状態

'ACT△' … 閉塞解除状態

●データ名M1

アプリケーションの型が設定されます(MCFアプリケーション定義 mcfaalcapの-nオプションのtypeオペランドの型が設定されます)。

'A' … 応答型

'N' … 非応答型

'C' … 継続問い合わせ型

ただし,データ名Cに'OTHE'を設定し,データ名Gにエラーイベント名(ERREVT1,ERREVT2,ERREVT3,ERREVT4)を設定した場合は,実際の型が通知されません。アプリケーション定義の省略時解釈値である非応答型('N')が設定されます。

●データ名N

アプリケーションに対応したサービスグループ名が設定されます。

●データ名N1

サービスグループの閉塞,閉塞解除の状態が設定されます。

'INDA' … 入力閉塞状態

'SCDA' … スケジュール閉塞状態

'DACT' … 入力・スケジュール閉塞状態

'ACT△' … 閉塞解除状態

●データ名N2

サービスグループの保留,保留解除の状態が設定されます。

'INHO' … 入力保留状態

'SCHO' … スケジュール保留状態

'HOLD' … 入力・スケジュール保留状態

'RLSS' … 保留解除状態

●データ名O

アプリケーションに対応したサービス名が設定されます。

●データ名P

サービスの閉塞,閉塞解除の状態がで設定されます。

'INDA' … 入力閉塞状態

'SCDA' … スケジュール閉塞状態

'DACT' … 入力・スケジュール閉塞状態

'ACT△' … 閉塞解除状態

●データ名R

非トランザクションMHPの限界経過時間が秒単位で設定されます。

ただし,データ名Uが'TRN△'の場合は,0が設定されます(MCFアプリケーション定義 mcfaalcapの-vオプションのntmetimオペランドの値が設定されます。ただし,MCFアプリケーションを省略した場合は,MCFマネジャ定義 mcfmuapの-uオプションのntmetimオペランドの値が設定されます)。

●データ名S

継続問い合わせ応答用一時記憶データ格納用領域サイズが設定されます。

ただし,データ名M1が'C'以外の場合は,0が設定されます(MCFアプリケーション定義 mcfaalcapの-nオプションのtempsizeオペランドの値が設定されます)。

●データ名T

入力メッセージ最大格納数が設定されます(MCFアプリケーション定義 mcfaalcapの-nオプションのmsgcntオペランドの値が設定されます)。

●データ名U

アプリケーションのトランザクション属性が設定されます(MCFアプリケーション定義 mcfaalcapの-nオプションのtrnmodeオペランドの値が設定されます)。

'TRN△' … トランザクションとして管理します。

'NTRN' … トランザクションとして管理しません。

●データ名V

受信メッセージの割り当て先が設定されます(MCFアプリケーション定義 mcfaalcapの-gオプションのquekindオペランドの値が設定されます)。

'D' … ディスクキューに割り当てる場合。

'M' … メモリキューに割り当てる場合。

ステータスコード

ステータスコード

意味

00000

正常に終了しました。

72000

MHPサービス以外から呼び出されました。

72001

データ名Gに設定した値が間違っています。

データ名Gとデータ名Eの組み合わせが間違っています。

72016

データ名Cに設定した値が間違っています。

データ名Eに設定した値が間違っています。

データ名Hに設定した値が間違っています。

データ名Wに設定した値が間違っています。

72028

データ名Aに設定した値が間違っています。

上記以外

プログラムの破壊などによる,予期しないエラーが発生しました。

注意事項

ERREVT1,ERREVT2,ERREVT3,ERREVT4は,同時に複数起動した場合,同名のエラーイベントであっても異なるアプリケーションの型を持つことがあります。したがって,CBLDCMCF('APINFO ')を呼び出したMHP以外のエラーイベント(ERREVT1,ERREVT2,ERREVT3,ERREVT4)に対する型の通知は行いません。この場合,アプリケーション定義の省略時解釈値である「非応答型」を通知します。