4.1.2 形式
PROGRAM-ID. OWNOBST.
LINKAGE SECTION.
01 一意名1.
02 データ名A1 ADDRESS. ユーザSATアドレス
02 データ名A2 PIC 9(18) COMP. ユーザSATサイズ
02 データ名A3 PIC S9(9) COMP OCCURS 4 TIMES. ロット名長
02 データ名A4 PIC X(9) OCCURS 4 TIMES. ロット名
02 データ名A5 PIC S9(9) COMP. バッチデータを格納した表名長
02 データ名A6 PIC X(29) バッチデータを格納した表名
02 FILLER PIC X(3). 予備
02 データ名T1. トランザクション識別名称
03 データ名C PIC S9(9) COMP. プロセスID
03 データ名D PIC 9(9) COMP. 中央処理通番
03 データ名E PIC S9(9) COMP. RM接続状態
03 データ名F PIC S9(9) COMP. RMのID
03 データ名G PIC S9(9) COMP. RM名長
03 データ名H PIC X(36). RM名
03 データ名I PIC S9(9) COMP. xa_open文字列長
03 データ名J PIC X(256). xa_open文字列
03 データ名K PIC S9(9) COMP. XID長
03 データ名L PIC X(256). XID
03 FILLER PIC X(1024). 予備
02 データ名A7 PIC X(1). バッチの形式
02 データ名A8 PIC X(1). 要求種別
02 データ名A9 PIC X(1). OBM状態
02 FILLER PIC X(5). 予備
02 データ名A10 PIC S9(9) COMP. 停止，終了理由コード
02 データ名A11 PIC S9(9) COMP. ユーザが設定した停止，終了理由コード
02 データ名A12 ADDRESS. ヘッダデータアドレス
02 データ名A13 PIC S9(9) COMP. ヘッダデータ長
02 データ名A14 PIC S9(9) COMP. ロット数
02 データ名A15 PIC S9(9) COMP. ユーザが任意に設定ロットID
(ロット名指定の再開始をした場合)
02 データ名A16 PIC S9(9) COMP OCCURS 7 4TIMES. バッチデータの列名長（キー列）
02 データ名A17 PIC S9(9) COMP. バッチデータの列名長（一連通番列）
02 データ名A18 PIC S9(9) COMP. バッチデータの列名長（データ列）
02 データ名A19 PIC X(9) OCCURS 7 TIMES. バッチデータの列名（キー列）
02 データ名A20 PIC X(9). バッチデータの列名（一連通番列）
02 データ名A21 PIC X(9). バッチデータの列名（データ列）
02 FILLER PIC X(7). 予備
02 データ名A22 ADDRESS. ユーザIFAアドレス
02 データ名A23 PIC 9(18) COMP. ユーザIFAサイズ
02 FILLER PIC X(24). 予備
01 一意名2.
02 一意名2-1 OCCURS 1 TO 9999 TIMES DEPENDING ON データ名A14.
03 FILLER ADDRESS OCCURS 4 TIMES. TP1/EEが使用する領域
03 FILLER PIC S9(9) COMP OCCURS 4 TIMES. TP1/EEが使用する領域
03 データ名B2 PIC S9(4) COMP. ロット階層レベル番号
03 データ名B3 PIC X(1). 子ロットスケジュール方法
03 データ名B4 PIC X(1). 同時実行数変更可否
03 データ名B5 PIC S9(9) COMP. 先頭下位ロットエントリ番号
03 データ名B6 PIC S9(9) COMP. 下位ロットエントリ数
03 データ名B7 PIC S9(9) COMP. ロット名長
03 データ名B8 PIC X(9). ロット名
03 FILLER PIC X(3). 予備
03 データ名B9 PIC S9(9) COMP OCCURS 7 TIMES. バッチデータのキー長
03 データ名B10 PIC X(8) OCCURS 7 TIMES. バッチデータのキー
03 データ名B11 PIC S9(9) COMP. 同時実行数の上限
03 データ名B12 PIC S9(9) COMP. ユーザが任意に設定するロットID
03 データ名B13 PIC S9(9) COMP. 一連通番の最大値
03 FILLER PIC X(60). 予備
01 一意名3.
02 データ名C1 PIC S9(4) COMP. OBM開始コマンドのexitコード
02 データ名C2 PIC X(1). 使用するロット情報
02 FILLER PIC X(29). 予備
01 一意名4.
02 一意名4-1 OCCURS 1 TO 9999 TIMES DEPENDING ON データ名A14.
03 データ名B1
: 一意名2のデータ名と同じ
03 FILLER PIC X(54). 予備
01 一意名5. PIC S9(9) COMPVALUE ZERO. リターン値
PROCEDURE DIVISION USING 一意名1 一意名2 一意名3 一意名4
RETURNING 一意名5
:
EXIT PROGRAM.ページの先頭へ
