1.3.8 リモートプロシジャコール(CBLEERPC)
(1) CBLEERPC('GETBIZID')
- 名称
-
当該トランザクションの業務IDの参照
- 形式
-
PROCEDURE DIVISIONの指定
CALL 'CBLEERPC' USING 一意名1 一意名2 DATA DIVISIONの指定 01 一意名1. 02 データ名A PIC X(8) VALUE 'SETBIZID'. 02 データ名B PIC X(5). 02 FILLER PIC X(3). 02 データ名Z PIC S9(9) COMP VALUE ZERO. 01 一意名2. 02 データ名C PIC X(17). 02 FILLER PIC X(3). 02 データ名D PIC S9(9) COMP.
- 機能
-
現在のトランザクションの業務ID(オリジナル業務IDまたはカレント業務ID)を参照します。
CBLEERPC(‘SETBIZID’)関数を発行している場合は,CBLEERPC(‘SETBIZID’)関数で設定した業務IDを返します。
UAPで値を設定するデータ領域
- データ名A
-
当該トランザクションの業務ID参照を示す要求コードを「VALUE 'GETBIZID'」と設定します。
- データ名Z
-
取得する業務IDの種別を指定します。
0:引き継ぎ用の業務IDを取得します。ユーザ処理によって業務IDの引き継ぎを行う場合は,本オプションで取得した業務IDを使用してください。引き継ぎ用の業務IDとは,現在の業務IDに通番とノードIDを更新したものです。
1:自トランザクションの業務IDを取得します。
カレント業務IDを取得したい場合は,上記のどれかの値に「32」を加算することで取得できます。
TP1/EEから値が返されるデータ領域
- データ名B
-
ステータスコードが,5桁の数字で返されます。
- データ名C
-
当該トランザクションの業務IDが返されます。
- データ名D
-
当該トランザクションの業務ID設定方法が返されます。
1:新規に業務IDを割り当てました。
2:既存の業務IDを引き継ぎました。
3:ユーザ指示によって既存の業務IDを引き継ぎました。
- ステータスコード
-
ステータスコード
意味
00000
正常に終了しました。
00001
TP1/EEの環境下にありません。
00004
UOCから発行しているため,本機能は使用できません。
00005
オフラインバッチプロセスから発行しているため,本機能は使用できません。
00301
データ名に設定した値が間違っています。
要求コード(データ名A)が間違っている場合も含みます。
00338
発行条件が不正です。
TP1/FSPの環境下にありません。
(2) CBLEERPC('SETBIZID')
- 名称
-
当該トランザクションの業務IDの設定
- 形式
-
PROCEDURE DIVISIONの指定
CALL 'CBLEERPC' USING 一意名1 DATA DIVISIONの指定 01 一意名1. 02 データ名A PIC X(8) VALUE 'SETBIZID'. 02 データ名B PIC X(5). 02 FILLER PIC X(3). 02 データ名Z PIC S9(9) COMP VALUE ZERO. 01 一意名2. 02 データ名C PIC X(17).
- 機能
-
現在のトランザクションの業務ID(オリジナル業務IDまたはカレント業務ID)を設定します。
本関数によるオリジナル業務IDの設定は同一トランザクション上で2回以上発行できません。オリジナル業務IDを変更すると,同時にカレント業務IDも変更されます。
カレント業務IDを設定する場合は同一トランザクション上で2回以上発行することができます。
UAPで値を設定するデータ領域
- データ名A
-
当該トランザクションの業務ID設定を示す要求コードを「VALUE 'SETBIZID'」と設定します。
- データ名C
-
当該トランザクションの業務IDを設定します。
- データ名Z
-
設定する業務IDの種別を指定します。
0:オリジナル業務IDとカレント業務IDを設定します。
32:カレント業務IDだけを設定します。
TP1/EEから値が返されるデータ領域
- データ名B
-
ステータスコードが,5桁の数字で返されます。
ステータスコード
意味
00000
正常に終了しました。
00001
TP1/EEの環境下にありません。
00004
UOCから発行しているため,本機能は使用できません。
00005
オフラインバッチプロセスから発行しているため,本機能は使用できません。
00301
データ名に設定した値が間違っています。
要求コード(データ名A)が間違っている場合も含みます。
00338
発行条件が不正です。
TP1/FSPの環境下にありません。
00342
オリジナル業務IDを変更するCBLEERPC('SETBIZID')を同一トランザクション上で2回以上発行しました。
- 注意事項
-
-
設定した業務IDが正しいかどうかのチェックは行わないため,不正な値を指定した場合,業務IDによるトランザクションの紐づけができなくなります。
-