File-to-Db2/luw (udb)コンバータ

この章では、ソース・プラットフォーム(z/OS)からDb2/luw (udb)表(Linux、UNIX、Windowsとしてのluw。旧名称はudbです)へのファイルの移行に使用されるOracle Tuxedo Application Rehosting Workbench (Tuxedo ART Workbench) File-to-Db2/luw (udb)コンバータと、生成される移行ツールについて説明します。変換は、Oracle Tuxedo Application Rehosting Workbenchの他のツールによって変換または生成された他のコンポーネントと関連して行われます。

この章には次のトピックが含まれます:

•	「File-to-Db2/luw (udb)コンバータの概要」

•	入力コンポーネントの説明

•

出力ファイルの説明

•

詳細処理

「File-to-Db2/luw (udb)コンバータの概要」

目的

この項の目的は、次のようなTuxedo ART Workbench File-to-Db2/luw (udb)コンバータ・ツールのすべての機能を正確に説明することです。

•	移行されるファイルのインベントリ。

•	各ファイルに関する、ターゲット・プラットフォームにおけるDb2/luw (udb)表の詳細な説明。

•	File-to-Db2/luw (udb)コンバータで使用する様々なコマンドの説明。

•	ソース・プラットフォームでのデータ・アンロード・オプションの説明。

•	ターゲット・プラットフォームでのデータ・ロード・オプションの説明。

構造

•	「File-to-Db2/luw (udb)コンバータの概要」

•	「構成ファイルの説明」を含む「入力コンポーネントの説明」。

•	「生成されたオブジェクト」を含む「出力ファイルの説明」。

•	「コマンド行構文」を含む「詳細処理」。

•	メッセージについては、「ファイル・コンバータ・メッセージ」を参照してください。

関連項目

データの変換は、COBOLプログラムの変換と密接に関連しています。次の項目を参照してください。

•	COBOLコンバータ

この項は、共通するデータ変換の使用方法を説明します。

•	ファイル・コンバータ: はじめに

ファイル編成の処理

z/OSソース・プラットフォームからターゲット・プラットフォームにファイルを移行するとき、VSAMが関係する場合は、ファイルを維持するかデータをDb2/luw (udb)表に移行するかをまず確認します。

ターゲット・プラットフォームでのDb2/luw (udb)表への移行

KSDS、RRDSおよびESDS VSAMファイルは、Db2/luw (udb)表に移行できます。

このためには、まず移行するすべてのVSAMファイルのリストを作成し、次にDb2/luw (udb)表に変換する必要があるファイルを識別します。たとえば、後でOracleで使用される永続ファイルやレコード・レベルでのロックが必要なファイルです。

Oracle Tuxedo Application Rehosting Workbenchの構成名

構成名は、変換される一連のファイルに関連します。それぞれのファイルのセットは自由に組み合せることができます。たとえば、各構成はアプリケーションに関連させることも、Tuxedo ART Workbenchに必要な一連のファイルに関連させることもできます。ファイルのセットには、両方のファイルまたはDb2/luw (udb)表ターゲットを含めることができます。

Db2/luw (udb)表になるVSAMファイル

特別な移行ルールの適用

•	各表の名前は、table name句を使用してmapper-<configuration name>.reファイルに規定されます。

•	ファイルのコピー記述に含まれる各基本フィールドの名前が、Db2/luw (udb)表の列になります。ハイフン(-)はアンダースコア(_)文字に置き換えられます。

•	シーケンシャルVSAMファイル(VSAM ESDS)の場合: Tuxedo ART Workbenchによって技術列*_SEQ_NUM NUMERICが追加されます。

この列は、表に新しい行が追加されるたびに増分されます。表の主キーになります。

•	相対VSAMファイル(VSAM RRDS)の場合: Tuxedo ART Workbenchによって技術列*_RELATIVE_NUMが追加されます。

列のサイズはデータマップのパラメータ・ファイルで提供される情報から推測され、この列が表の主キーになります。

この列は次のようになります。

•	表への順次書込みが行われると増加し、相対キーはゼロです。

•	相対キーを含むのは相対キーが0でないときです。

•	索引付きVSAMファイル(VSAM KSDS)の場合: 重複キーが許可されないかぎり、Tuxedo ART Workbenchによって技術列は追加されません。VSAMファイルの主キーが表の主キーになります。

Picture句に適用されるルール

データをVSAMファイルからDb2/luw (udb)表へ移行するときに、次のルールがCOBOL Picture句に適用されます。

 

表8-1 Picture句のリエンジニアリング

COBOL Picture	Oracleの形式
PIC 9(length) PIC S9(length) PIC 9(length) COMP-3 PIC S9(length) COMP-3	NUMERIC(length)
PIC 9(prec,scale) PIC S9(prec,scale) PIC 9(prec,scale) COMP-3 PIC S9(prec,scale) COMP-3	NUMERIC(prec+scale, scale)
PIC S9(length) BINARY PIC S9(length) COMP PIC S9(length) COMP-4	NUMERIC(real_binary_length) サンプル: PIC S9(4) BINARYはNUMERIC(5)として移行されます
COMP-1	REAL
COMP-2	DOUBLE
PIC X(…)	長さ<= 255の場合はCHAR 長さ> 255および<= 4000の場合はVARCHAR パラメータfile:char_limit_until_varcharがdb-param.cfgファイルで設定されている場合は、前述のルールよりも優先されます。

環境変数

データを移行するプロセスを開始する前に、次の2つの環境変数を設定する必要があります。

•	export TMPPROJECT=/$HOME/tmp

プロセスによって生成される一時オブジェクトを格納する場所を指定します。

•	export PARAM=/$HOME/param

プロセスで必要な構成ファイルが格納される場所を指定します。

入力コンポーネントの説明

ファイルの場所

file.shの場所

file.shツールは次のディレクトリにあります。

$REFINEDIR/convert-data/

db-param.cfgファイルの場所

db-param.cfg構成ファイルは、次の変数に指定されたディレクトリに配置されます。

$PARAM

構成ファイルの説明

ここでは、z/OSファイルのDb2/luw (udb)表への移行を制御するために使用できるファイルとそのパラメータを示します。

db-param.cfg

このファイルは、次の$PARAMディレクトリで指定されるディレクトリに作成されます。

$PARAM/db-param.cfg

リスト8-1 db-param.cfgテンプレート

#

# This configuration file is used by FILE & RDBMS converter

# Lines beginning by "#" are ignored

# write information in lower case

#

# common parameters for FILE and RDBMS

#

# source information is written into system descriptor file (DBMS=, DBMS-VERSION=)

target_rdbms_name:<target_rdbms_name>

target_rdbms_version:<target_rdbms_version>

target_os:<target_os>

# optional parameter

target_cobol:<target_cobol>

hexa-map-file:<hexa-map-file>

#

# specific parameters for FILE to RDBMS conversion

file:char_limit_until_varchar:<char_limit>

 

 

パラメータと構文

 

表8-2 db-param.cfgのパラメータ

パラメータ	説明	値
一般的なパラメータ
<target_rdbms_name>	ターゲットRDBMSの名前	udb
<target_rdbms_version>	ターゲットRDBMSのバージョン	9
<target_os>	ターゲット・オペレーティング・システムの名前	unixまたはlinux
オプションのパラメータ
<target_cobol>	COBOL言語の名前 デフォルト値はMicro Focus COBOLではcobol_mfです。 このCOBOL言語の選択は、アクセス機能の生成に影響します。	cobol_mf cobol_it
<hexa-map-file>	EBCDIC (z/OSのコード・セット)とASCII (Linux/UNIXのコード・セット) 16進数値間のマッピング表ファイルを指定します。hexa-map-fileを指定しない場合は、警告がロギングされます。
file-to-oracle変換固有のパラメータ
<char_limit>	• フィールド・サイズが255以上の場合、COBOL英数字フィールドはDb2/luw (udb)にCHARとして移行されます。 • フィールド・サイズが255を超える場合はVARCHARとして移行されます(パラメータfile:char_limit_until_varcharが使用される場合以外)。 このパラメータは、フィールドがDb2/luw (udb) VARCHARデータ型に変換される前の、COBOLの英数字(PIC X)フィールドの最大長を指定します。 パラメータにfile:char_limit_until_varchar:29が含まれるとします この場合、29文字を超えるフィールドはVARCHARになり、30文字より少ないフィールドはCHARフィールドになります。

生成されるコンポーネントを変更するファイル

生成されたコンポーネントはプロジェクト固有のスクリプトを使用して変更できます。これらのスクリプト(sed、awk、perlなど)は次の場所に配置する必要があります。

$PARAM/file/file-modif-source.sh

このファイルが存在する場合、生成プロセスの最後に自動的に実行されます。これは、引数として<configuration name>を使用して呼び出されます。

file-template-db2luw.txt

このファイルは、Tuxedo ART Workbenchのインストール時に所定の場所に配置され、様々な移行ツールの生成を実行するテンプレートが含まれます。このファイルの場所は次のとおりです。

$REFINEDIR/convert-data/default/file/file-templates-db2luw.txt

リスト8-2 file-template-db2luw.txt

% Unloading all File ********************

% All SAM file were transfered using FTP/Binary

% VSAM unloaded step:

#VAR:TEMPLATES#/unloading/jcl-unload-MVS-REPRO.pgm

#VAR:TEMPLATES#/unloading/jcl-unload-GDG-MVS-REPRO.pgm

%

% To create a specific template, copy this template into :

% -- #VAR:PARAM#/file/specific-templates/unloading/jcl-unload-customer.pgm

%

% Loading **********************************************

#VAR:TEMPLATES#/loading/file-reload-files-txt.pgm

% Loading File to File ***************************

#VAR:TEMPLATES#/loading/unix-file/reload-files-ksh.pgm

#VAR:TEMPLATES#/loading/unix-file/reload-GDG-files-ksh.pgm

#VAR:TEMPLATES#/loading/unix-file/reload-mono-rec.pgm

% Loading File to Oracle *************************

#VAR:TEMPLATES#/loading/unix-db2luw/load-tables-ksh-db2luw.pgm

#VAR:TEMPLATES#/loading/unix-db2luw/rel-mono-rec-db2luw.pgm

#VAR:TEMPLATES#/dml/unix-db2luw/clean-tables-ksh-db2luw.pgm

#VAR:TEMPLATES#/dml/unix-db2luw/drop-tables-ksh-db2luw.pgm

#VAR:TEMPLATES#/dml/unix-db2luw/create-tables-ksh-db2luw.pgm

#VAR:TEMPLATES#/dml/unix-db2luw/ifempty-tables-ksh-db2luw.pgm

#VAR:TEMPLATES#/dml/unix-db2luw/ifexist-tables-ksh-db2luw.pgm

%

% Generate Logical & Relational Module *****************

#VAR:TEMPLATES#/dml/module/open-multi-assign-free.pgm

#VAR:TEMPLATES#/dml/module/unix-db2luw/open-mono-rec-idx-db2luw.pgm

#VAR:TEMPLATES#/dml/module/unix-db2luw/open-mono-rec-seq-db2luw.pgm

#VAR:TEMPLATES#/dml/module/unix-db2luw/open-mono-rec-rel-db2luw.pgm

%

% and utilities ****************************************

#VAR:TEMPLATES#/dml/module/decharge-mono-rec.pgm

#VAR:TEMPLATES#/dml/module/recharge-table.pgm

#VAR:TEMPLATES#/dml/module/close-all-files.pgm

#VAR:TEMPLATES#/dml/module/init-all-files.pgm

%

% configuration file for translation and runtime *******

#VAR:TEMPLATES#/dml/generate-config-wb-translator-jcl.pgm

#VAR:TEMPLATES#/dml/generate-rdb-txt.pgm

%

% included file to include into modified-components

#VAR:TEMPLATES#/dml/include-modified-components.pgm

%

% ***************************************

% MANDATORY

% : used just after the generation

#VAR:TEMPLATES#/dml/generate-post-process.pgm

% : used when using -i arguments

#VAR:DEFAULT#/file-move-assignation-db2luw.pgm

%

 

注意:	このファイルには、File-to-FileおよびFile-to-Db2/luw (udb)の両方の移行パラメータが含まれます。

必要な場合には、別のバージョンのfile-template-db2luw.txtファイルを$PARAM/fileディレクトリに配置できます。代替ファイルの使用は、file.shの実行中にメッセージによって示されます。

リスト8-3 代替テンプレート・ファイルによる実行ログ

##########################################################################

Control of templates

OK: Use Templates list file from current project:

File name is /home2/wkb9/param/file/file-templates-db2luw.txt

##########################################################################

 

file-move-assignation-db2luw.pgm

このファイルはTuxedo ART Workbenchのインストール時に配置され、様々なインストール・ディレクトリに生成されたコンポーネントの転送を制御します。このファイルは、file.sh -iを使用してfile.shが起動されたときに、インストール・フェーズでコピーする各コンポーネントの場所を指定します。

このファイルの場所は次のとおりです。

$REFINEDIR/convert-data/default/file/file-move-assignation-db2luw.pgm

このファイルは、ファイル先頭にある指示に従って変更できます。

リスト8-4 file_move_assignation.txtの変更指示

[…]

*@ (c) Metaware:file-move-assignation.pgm. $Revision: 1.2 $

*release_format=2.4

*

* format is:

* <typ>:<source_directory>:<file_name>:<target_directory>

*

* typ:

* O: optional copy: if the <file_name> is missing, it is ignored

* M: Mandatory copy: abort if <file_name> is missing.

* E: Execution: execute the mandatory script <file_name>.

* Parameters for script to be executed are:

* basedir: directory of REFINEDIR/convert-data

* targetoutputdir: value of "-i <targetdir>"

* schema: schema name

* target_dir: value written as 4th parameter in this file.

* d: use this tag to display the word which follows

*

* source_directory:

* T: generated components written in <targetdir>/Templates/<schema>

* O: components written in <targetdir>/outputs/<schema>

* S: SQL requests (DDL) generated into <targetdir>/SQL/<schema> directory

* F: fixed components present in REFINEDIR

* s: used with -s arguments: indicates the target directory for DML utilities

* (in REFINEDIR/modified-components/) which manipulate all schemas.

*

* file_name: (except for typ:d)

* name of the file in <source_directory>

*

* target_directory: (except for typ:d, given at 4th argument for typ:E)

* name of the target directory

* If the 1st character is "/", component is copied using static directory

* and not in <td> directory

* If the 1st character is "!", target directory contains both directory and

* target file name.

*

[…]

 

注意:	このファイルには、File-to-FileおよびFile-to-Db2/LUWの両方の移行パラメータが含まれます。

データマップ・ファイル

これは、システムの物理ファイルに関する情報を追加または変更するためにTuxedo ART Workbenchファイル・コンバータによって使用される構成ファイルです。

「ファイル・コンバータ: はじめに」の「データマップ・ファイル」を参照してください。

マッパー・ファイル

これは、移行する各ファイルを関連付けるためにTuxedo ART Workbench File-to-Db2/luw (udb)コンバータによって使用される構成ファイルです。

「ファイル・コンバータ: はじめに」の「マッパー・ファイル」を参照してください。

注意:	マッパー・ファイルでは、converted句をRDBMS表ターゲットに使用する必要があります。

 

表8-3 File-to-Db2/luw (udb)コンバータで使用するマッパー・ファイル固有のパラメータ

パラメータ	値
file <physical filename>	ZOS物理ファイル名。データマップ・ファイルで使用される名前です。
converted	ファイルがDb2/luw (udb)表に変換されることを指定します(converted句とtransferred句を組み合せることができます)
transferred	ファイルがロードおよび再ロードされることを指定します(converted句と組み合せることができます)。
include “<path/COPY name>”	移行するファイルの記述コピーのアクセス・パスと名前。
map record <record name> defined in <“path/COPY name”>	• record name: コピー記述におけるレベル01のフィールド名に対応します。 • path/COPY name: 移行するファイルの記述コピーのアクセス・パスと名前に対応します。 注意: map recordパラメータとsource recordパラメータでは、同じrecord nameとdescriptive copyを使用する必要があります。これらは前方互換性の確保のために使用されます。
source record <record names> defined in <"path/COPY name">	• record name: 移行するファイルのコピー記述におけるレベル01のフィールド名に対応します。 • path/COPY name: 移行するファイルの記述コピーのアクセス・パスと名前に対応します。 注意: map recordパラメータとsource recordパラメータでは、同じrecord nameとdescriptive copyを使用する必要があります。これらは前方互換性の確保のために使用されます。
Logical name <logical file name>	論理ファイル名はユーザーが選択し、最大8文字です。この名前は、Tuxedo ART Workbenchの様々なツールにより作成されるオブジェクト(COBOL、JCL)に名前を付けるために使用されます。
Converter name <program name>	論理ファイル名と同じ名前および用途。
table name	Db2/luw (udb)の表名。
attributes <attribute clause>	オプションの句です。2つの属性を使用できます。 • LOGICAL_MODULE_IN_ADDITION • LOGICAL_MODULE_ONLY これらのアクションは次の表に示します。

表8-4 マッパー・ファイルの属性

attributes <attribute clause>	役割
Attribute clause absent	この場合は、次のアクセス機能が生成されます。 • RM_<logical file name> • UL_<logical file name> • DL_<logical file name> また、Kornシェル・ユーティリティも生成されます。 「アクセス機能およびユーティリティ・プログラム」を参照してください。
LOGICAL_MODULE_IN_ADDITION	この場合は、次のアクセス機能が生成されます。 • ASG_<logical file name> • RM_<logical file name> • UL_<logical file name> • DL_<logical file name> また、Kornシェル・ユーティリティも生成されます。 「アクセス機能およびユーティリティ・プログラム」を参照してください。
LOGICAL_MODULE_ONLY	この場合は、ASG_<logical file name>アクセス機能のみが生成されます。

リスト8-5 マッパー・ファイルの例

ufas mapper STFILEUDB

file PJ01AAA.SS.VSAM.CUSTOMER converted transferred

table name CUSTOMER

include "COPY/ODCSF0B.cpy"

map record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

source record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

logical name ODCSF0B

converter name ODCSF0B

attributes LOGICAL_MODULE_IN_ADDITION

 

この例では、マッパー・ファイルの名前はSTFILEUDBです。このファイルで処理するのは、変換オプションを使用してDb2/luw (udb)表に移行されるPJ01AAA.SS.VSAM.CUSTOMERという名前の1ファイルのみです。このファイルを記述するために使用されるODCSF0B.cpyコピー・ファイルは、ソース・コピー・ファイルの1つです。

マッピング戦略の句

[ field <field_name>

[ use detail table ]

[ use opaque field <field name> ]

[ table name <target table name> ]

[ mapped type <target data type> ]

[ discard field <field name> ]

[ discard subfields <field name> ]

[ discrimination rule ] ]

戦略マッピング句の構文およびパラメータ

OCCURS句およびREDEFINES句については、識別ルールを使用した次の3つのリエンジニアリングの可能性が提案されます。

•	サブ表の作成(詳細表を使用)

•	再定義: 各記述は1つのサブ表に関連付けられます(1つの記述に対して1つのサブ表)。

•	繰返し: データが対応する元の表を参照する1つの技術列を含む1つのサブ表が作成されます。

•	opaqueフィールドの作成(opaqueフィールドを使用)

•	再定義: すべての記述がCHAR型またはVARCHAR型のopaqueフィールドに格納されます。

•	繰返し: すべての要素がCHAR型またはVARCHAR型のopaqueフィールドに格納されます。

•	記述の拡張(デフォルト)

•	再定義: コピー・ファイルで記述されたすべてのフィールドが、Db2/luw (udb)表の列として作成されます。

•	繰返し: 再定義領域のフィールドの各要素が、Db2/luw (udb)表の列として作成されます。1つの列がOCCURS句の各要素に対応します。

 

表8-5 マッピング戦略

戦略	説明
table name < table name >	詳細表を使用のマッピングで、サブ表の名前を指定します。
mapped type <target data type>	デフォルトで選択される列タイプを変更できます。CHARまたはVARCHARの2つの可能性が提案されます。
discard field	役立たない再定義フィールドを削除できます。
discard subfields	フィールドの記述が複数レベルである場合、このオプションを使用すると上位レベルのみ保持できます。

マッピング戦略の例

サブフィールド廃棄の例

…

05 NIV1.

10 NIV2A PIC 99.

10 NIV2B PIC 999.

…

レベルNIV1のサブフィールドを廃棄すると、Tuxedo ART Workbench File-to-Db2/luw (udb)コンバータではフィールドNIV1 PIC 9(5)のみが処理されます。サブフィールドを廃棄しないと、NIV1フィールドは無視され、2つのフィールドNIV2AとNIV2Bが処理されます。

デフォルト・オプションのREDEFINESの例

このREDEFINESの例には特定のオプションは含まれません。

リスト8-6 ファイルPJ01AAA.SS.VSAM.CUSTOMERの記述コピー

01 VS-ODCSF0-RECORD.

05 VS-CUSTIDENT PIC 9(006).

05 VS-CUSTLNAME PIC X(030).

05 VS-CUSTFNAME PIC X(020).

05 VS-CUSTADDRS PIC X(030).

05 VS-CUSTCITY PIC X(020).

05 VS-CUSTSTATE PIC X(002).

05 VS-CUSTBDATE PIC 9(008).

05 VS-CUSTBDATE-G REDEFINES VS-CUSTBDATE.

10 VS-CUSTBDATE-CC PIC 9(002).

10 VS-CUSTBDATE-YY PIC 9(002).

10 VS-CUSTBDATE-MM PIC 9(002).

10 VS-CUSTBDATE-DD PIC 9(002).

05 VS-CUSTEMAIL PIC X(040).

05 VS-CUSTPHONE PIC 9(010).

05 VS-FILLER PIC X(100).

 

マッパー・ファイルは次のように実装されます。

リスト8-7 ファイルPJ01AAA.SS.VSAM.CUSTOMERのマッパー・ファイル

ufas mapper STFILEUDB

file PJ01AAA.SS.VSAM.CUSTOMER converted transferred

table name CUSTOMER

include "COPY/ODCSF0B.cpy"

map record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

source record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

logical name ODCSF0B

converter name ODCSF0B

attributes LOGICAL_MODULE_IN_ADDITION

field VS-CUSTBDATE

rule if VS-CUSTSTATE = "02" then VS-CUSTBDATE

else VS-CUSTBDATE-G

 

表が次のように生成されます(REDEFINESのすべての単一フィールドが処理されます)。

リスト8-8 ファイルPJ01AAA.SS.VSAM.CUSTOMERの表生成

DROP TABLE CUSTOMER ;

COMMIT ;

CREATE TABLE CUSTOMER (

VS_CUSTIDENT NUMERIC (6) NOT NULL,

VS_CUSTLNAME VARCHAR (30),

VS_CUSTFNAME CHAR (20),

VS_CUSTADDRS VARCHAR (30),

VS_CUSTCITY CHAR (20),

VS_CUSTSTATE CHAR (2),

VS_CUSTBDATE NUMERIC (8),

VS_CUSTBDATE_CC NUMERIC (2),

VS_CUSTBDATE_YY NUMERIC (2),

VS_CUSTBDATE_MM NUMERIC (2),

VS_CUSTBDATE_DD NUMERIC (2),

VS_CUSTEMAIL VARCHAR (40),

VS_CUSTPHONE NUMERIC (10),

VS_FILLER VARCHAR (100),

CONSTRAINT PKCUSTOMER PRIMARY KEY (

VS_CUSTIDENT)) ;

COMMIT ;

 

OPAQUE FIELDオプションのREDEFINESの例

リスト8-9 ファイルPJ01AAA.SS.VSAM.CUSTOMERの記述コピー

01 VS-ODCSF0-RECORD.

05 VS-CUSTIDENT PIC 9(006).

05 VS-CUSTLNAME PIC X(030).

05 VS-CUSTFNAME PIC X(020).

05 VS-CUSTADDRS PIC X(030).

05 VS-CUSTCITY PIC X(020).

05 VS-CUSTSTATE PIC X(002).

05 VS-CUSTBDATE PIC 9(008).

05 VS-CUSTBDATE-G REDEFINES VS-CUSTBDATE.

10 VS-CUSTBDATE-CC PIC 9(002).

10 VS-CUSTBDATE-YY PIC 9(002).

10 VS-CUSTBDATE-MM PIC 9(002).

10 VS-CUSTBDATE-DD PIC 9(002).

05 VS-CUSTEMAIL PIC X(040).

05 VS-CUSTPHONE PIC 9(010).

05 VS-FILLER PIC X(100).

 

マッパー・ファイルは次のように実装されます。

リスト8-10 ファイルPJ01AAA.SS.VSAM.CUSTOMERのマッパー・ファイル

ufas mapper STFILEUDB

file PJ01AAA.SS.VSAM.CUSTOMER converted transferred

table name CUSTOMER

include "COPY/ODCSF0B.cpy"

map record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

source record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

logical name ODCSF0B

converter name ODCSF0B

attributes LOGICAL_MODULE_IN_ADDITION

field VS-CUSTBDATE

use opaque field

rule if VS-CUSTSTATE = "02" then VS-CUSTBDATE

else VS-CUSTBDATE-G

 

表が次のように生成されます(VS_CUSTBDATEフィールドのみが維持されます)。

リスト8-11 ファイルPJ01AAA.SS.VSAM.CUSTOMERの表生成

DROP TABLE CUSTOMER ;

COMMIT ;

CREATE TABLE CUSTOMER (

VS_CUSTIDENT NUMERIC (6) NOT NULL,

VS_CUSTLNAME VARCHAR (30),

VS_CUSTFNAME CHAR (20),

VS_CUSTADDRS VARCHAR (30),

VS_CUSTCITY CHAR (20),

VS_CUSTSTATE CHAR (2),

VS_CUSTBDATE CHAR (8)

FOR BIT DATA,

VS_CUSTEMAIL VARCHAR (40),

VS_CUSTPHONE NUMERIC (10),

VS_FILLER VARCHAR (100),

CONSTRAINT PKCUSTOMER PRIMARY KEY (

VS_CUSTIDENT)) ;

COMMIT ;

 

DETAIL TABLEオプションのREDEFINESの例

リスト8-12 ファイルPJ01AAA.SS.VSAM.CUSTOMERの記述コピー

01 VS-ODCSF0-RECORD.

05 VS-CUSTIDENT PIC 9(006).

05 VS-CUSTLNAME PIC X(030).

05 VS-CUSTFNAME PIC X(020).

05 VS-CUSTADDRS PIC X(030).

05 VS-CUSTCITY PIC X(020).

05 VS-CUSTSTATE PIC X(002).

05 VS-CUSTBDATE PIC 9(008).

05 VS-CUSTBDATE-G REDEFINES VS-CUSTBDATE.

10 VS-CUSTBDATE-CC PIC 9(002).

10 VS-CUSTBDATE-YY PIC 9(002).

10 VS-CUSTBDATE-MM PIC 9(002).

10 VS-CUSTBDATE-DD PIC 9(002).

05 VS-CUSTEMAIL PIC X(040).

05 VS-CUSTPHONE PIC 9(010).

05 VS-FILLER PIC X(100).

 

マッパー・ファイルは次のように実装されます。

リスト8-13 ファイルPJ01AAA.SS.VSAM.CUSTOMERのマッパー・ファイル

ufas mapper STFILEUDB

file PJ01AAA.SS.VSAM.CUSTOMER converted transferred

table name CUSTOMER

include "COPY/ODCSF0B.cpy"

map record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

source record VS-ODCSF0-RECORD defined in "COPY/ODCSF0B.cpy"

logical name ODCSF0B

converter name ODCSF0B

attributes LOGICAL_MODULE_IN_ADDITION

field VS-CUSTBDATE

use detail table

rule if VS-CUSTSTATE = "02" then VS-CUSTBDATE

else VS-CUSTBDATE-G

 

表が次のように生成されます(親表はREDEFINESに含まれないフィールドを使用して生成され、2つの子表はREDEFINES記述ごとに1つずつ生成されます)。

リスト8-14 ファイルPJ01AAA.SS.VSAM.CUSTOMERの表生成

DROP TABLE CUSTOMER ;

COMMIT ;

CREATE TABLE CUSTOMER (

VS_CUSTIDENT NUMERIC (6) NOT NULL,

VS_CUSTLNAME VARCHAR (30),

VS_CUSTFNAME CHAR (20),

VS_CUSTADDRS VARCHAR (30),

VS_CUSTCITY CHAR (20),

VS_CUSTSTATE CHAR (2),

VS_CUSTEMAIL VARCHAR (40),

VS_CUSTPHONE NUMERIC (10),

VS_FILLER VARCHAR (100),

CONSTRAINT PKCUSTOMER PRIMARY KEY (

VS_CUSTIDENT)) ;

COMMIT ;

DROP TABLE VS_CUSTBDATE ;

COMMIT ;

CREATE TABLE VS_CUSTBDATE (

VS_CUSTBDATE_CUSTIDENT NUMERIC (6) NOT NULL,

VS_CUSTBDATE NUMERIC (8),

CONSTRAINT PKVS_CUSTBDATE PRIMARY KEY (

VS_CUSTBDATE_CUSTIDENT)) ;

COMMIT ;

ALTER TABLE VS_CUSTBDATE

FOREIGN KEY FKVS_CUSTBDATECUSTOMER (

VS_CUSTBDATE_CUSTIDENT)

REFERENCES CUSTOMER

ON DELETE CASCADE;

COMMIT ;

DROP TABLE VS_CUSTBDATE_G ;

COMMIT ;

CREATE TABLE VS_CUSTBDATE_G (

VS_CUSTBDATE_G_CUSTIDENT NUMERIC (6) NOT NULL,

VS_CUSTBDATE_CC NUMERIC (2),

VS_CUSTBDATE_YY NUMERIC (2),

VS_CUSTBDATE_MM NUMERIC (2),

VS_CUSTBDATE_DD NUMERIC (2),

CONSTRAINT PKVS_CUSTBDATE_G PRIMARY KEY (

VS_CUSTBDATE_G_CUSTIDENT)) ;

COMMIT ;

ALTER TABLE VS_CUSTBDATE_G

FOREIGN KEY FKVS_CUSTBDATE_GCUSTOMER (

VS_CUSTBDATE_G_CUSTIDENT)

REFERENCES CUSTOMER

ON DELETE CASCADE;

COMMIT ;

 

識別ルール

識別ルールを再定義フィールドに対して設定する必要があります。これにより、REDEFINESの記述のどちらをいつ使用するかを判別するためのコードが指定されます。

[field <field_name>]

[…]

rule if <condition> then Field_Name_x

[elseif <condition> then field_Name_y]

[else Field_Name_z]

識別ルールの構文およびパラメータ

 

表8-6 識別ルール

構文	説明
Field_Name_{X,Y,Z}	これは、対応する条件が検証されたときに使用されるフィールドです。このフィールドは再定義フィールドの一方です。
条件	フィールド名、演算子およびCOBOL定数で構成される条件式です。 • 論理演算子: not、and、or • 比較演算子: = <> < > • 特殊な演算子: is numeric、is all SPACE • 使用可能なCOBOL定数: spaces、zeros、high-value、low-value 注意: これらの条件はカッコで囲んで指定できます。

識別ルールの例

次の例では、フィールドDPODP-DMDCHQ、DPONO-PRDTIVおよびDP5CP-VALZONNUMが再定義されています。

リスト8-15 識別ルールのCOBOL記述

01 ZART1.

05 DPODP PIC X(20).

05 DPODP-RDCRPHY PIC 9.

05 DPODP-DMDCHQ PIC X(6).

05 DPODP-REMCHQ REDEFINES DPODP-DMDCHQ.

10 DPODP-REMCHQ1 PIC 999.

10 DPODP-REMCHQ2 PIC 999.

05 DPODP-VIREXT REDEFINES DPODP-DMDCHQ.

10 DPODP-VIREXT1 PIC S9(11) COMP-3.

05 DPONO-NPDT PIC X(5).

05 DPONO-PRDTIV PIC 9(8)V99.

05 DPONO-PRDPS REDEFINES DPONO-PRDTIV PIC X(10).

05 DP5CP-VALZONNUM PIC 9(6).

05 DP5CP-VALZON REDEFINES DP5CP-VALZONNUM PIC X(6).

 

次の識別ルールが適用されます。

リスト8-16 識別ルール

field DPODP-DMDCHQ

rule if DPODP-RDCRPHY = 1 then DPODP-DMDCHQ

elseif DPODP-RDCRPHY = 2 then DPODP-REMCHQ

elseif DPODP-RDCRPHY = 3 then DPODP-VIREXT

else DPODP-DMDCHQ,

field DPONO-PRDTIV

rule if DPONO-NPDT (1:2) = "01" then DPONO-PRDTIV

elseif DPONO-NPDT (1:2) = "02" then DPONO-PRDPS,

field DP5CP-VALZONNUM

rule if DPODP-RDCRPHY is numeric then DP5CP-VALZONNUM

else DP5CP-VALZON

 

最初のルールは、数値フィールドDPODP-RDCRPHYの値をテストします。

2番目のルールは、英数字フィールドDPONO-NPDTの最初の2文字をテストします。値01および02のみが許可されます。

3番目のルールは、フィールドDPODP-RDCRPHYが数値かどうかをテストします。

COBOL記述

Tuxedo ART Workbench File-to-Db2/luw (udb)コンバータには、各表に関連付けられている記述が必要です。このため、最初の手順でCOBOLコピーの記述を作成します。

COBOL記述ファイルを準備したら、mapper-<configuration name>.reファイルに記述したコピー・ファイルを$PARAM/file/recs-sourceディレクトリに置く必要があります。

ソース・プラットフォームのCOBOLコピーブックを使用してファイルを記述する場合(「COBOL記述」を参照)、コピーブックの場所が直接使用されます。

出力ファイルの説明

ファイルの場所

一時ファイルの場所

Tuxedo ART Workbench File-to-Db2/luw (udb)コンバータによって生成される一時オブジェクトは、次の場所に格納されます。

$TMPPROJECT

$TMPPROJECT/Template/<configuration name>

$TMPPROJECT/outputs/<configuration name>

注意:	$$TMPPROJECT変数は$HOME/tmpに設定されます

ログ・ファイルの場所

実行ログ・ファイルは次の場所に格納されます。

•	オプション-gによって生成されるログ

$TMPPROJECT/outputs mapper-log-<configuration name>

生成されるファイルの場所

-i $HOME/trfオプションで生成されるアンロード・コンポーネントおよびロード・コンポーネントは、次の場所に配置されます。

 

表8-7 コンポーネントの場所

場所	内容
$HOME/trf/unload/file/<configuration name>	アンロードする各表で使用されるJCLは、各<configuration name>に対して生成されます。 これらのJCLの名前は次のとおりです。 <file name>.jclunload
$HOME/trf/reload/file/<configuration name>	ファイルからDb2/luw (udb)への移行では、プログラムとKSHの名前は次のとおりです。 RELTABLE-<target file name>.sqb loadtable-<target file name>.ksh
$HOME/trf/SQL/file/<configuration name> (ファイルをDb2/luw表に移行する場合)	Db2/luw (udb)オブジェクトを作成するために使用されるSQLスクリプトの各<configuration name>の場所。
$HOME/trf/config/tux	表に移行されるファイルについてOracle Tuxedo Application Runtime CICSで使用される構成ファイルの場所。
$HOME/trf/DML	コンポーネントのリストは、マッパー・ファイルで初期化されたオプションのattributes句に依存します。 「マッピング戦略の句の構文およびパラメータ」を参照してください

注意:	<target table name>は、ターゲット・プラットフォームでのファイル名です。このファイル名はマッパー・ファイルで指定されます。

生成されたオブジェクト

次の項では、z/OSファイルの移行中に生成されるオブジェクトと、それらのオブジェクトが配置されるディレクトリを示します。

アンロード用JCL

ファイルのアンロードに使用されるJCLは、file.shコマンドの-gオプションを使用して生成されます。その後、(-iオプションを使用して)次の場所にインストールされます。

$HOME/trf/unload/file/<configuration name>

各JCLには、2つのステップが含まれ、z/OS IDCAMS REPROユーティリティを使用して1つのファイルをアンロードします。JCLのリターン・コードは正常終了では0または4です。

 

ステップ1	DEL	IDCAMSでのファイルのDELETE(ログおよびデータ・ファイルの削除)
ステップ2	UNLOAD	指定されたファイルのIDCAMS REPRO

JCLの名前は<file name>.jclunloadです

注意:	.jclunload拡張子は、z/OSで実行する場合には削除する必要があります。

生成されるJCLは、特定のサイトの制約に合せるために次のような調整が必要になることがあります。

•	JOBカード: <cardjob_parameter_id>、

•	入力ファイルと出力ファイルのアクセス・パス: <data>。

リスト8-17 アンロード用JCLの例

//<crdjob> <cardjob_parameter_1>,'FIL QSAM',

// <cardjob_parameter_2>

// <cardjob_parameter_3>

// <cardjob_parameter_4>

//*@ (C) Metaware:jcl-unload-MVS-REPRO.pgm. $Revision: 1.6 $

//********************************************************

//* UNLOAD THE FILE:

//* <datain>.QSAM.CUSTOMER

//* INTO <data>.AV.QSAM

//* LENGTH=266

//******************************************************

//*------------------------------------------*

//* DELETE DATA AND LOG FILES

//*------------------------------------------*

//DEL EXEC PGM=IDCAMS

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SYSIN DD *

DELETE <data>.AV.QSAM.LOG

DELETE <data>.AV.QSAM

SET MAXCC=0

//*------------------------------------------*

//* LAUNCH REPRO UTILITY

//*------------------------------------------*

//COPYFILE EXEC PGM=IDCAMS

//SYSPRINT DD SPACE=(CYL,(150,150),RLSE),

// DISP=(NEW,CATLG),

// UNIT=SYSDA,

// DSN=<data>.AV.QSAM.LOG

//SYSOUT DD SYSOUT=*

//INDD DD DISP=SHR,

DSN=METAW00.QSAM.CUSTOMER

//OUTD DD SPACE=(CYL,(150,150),RLSE),

// DISP=(NEW,CATLG),

// UNIT=SYSDA,

// DCB=(LRECL=266,RECFM=FB),

// DSN=<data>.AV.QSAM

//SYSIN DD *

REPRO INFILE(INDD) OUTFILE(OUTD)

/*

 

COBOLトランスコード・プログラム

z/OSファイルのDb2/luw (udb)表への移行

COBOLトランスコード・プログラムは、file.shコマンドの-gオプションを使用して生成されます。その後、(-iオプションを使用して)次の場所にインストールされます。

$HOME/trf/reload/file/<configuration name>/src

プログラムの名前はRELTABLE-<logical file name>.sqbです

プログラムは、「コンパイラ・オプション」で説明するターゲットのCOBOLコンパイル・オプションおよびdb2プリコンパイラ・オプションを使用してコンパイルする必要があります。

これらのプログラムのコンパイルには、プロジェクトのために調整されたCONVERTMW.cpyコピー・ファイルの存在が必要です。このファイルについては、「コードセットの変換」で説明しています。

これらのファイルは、入力されるファイルを読み取り、SQL INSERT動詞を使用してDb2/luw (udb)表に直接ロードします。

リスト8-18 FILE CONTROLセクション - トランスコード・プログラム用

SELECT MW-ENTREE

ASSIGN TO "ENTREE"

ORGANIZATION IS RECORD SEQUENTIAL

ACCESS IS SEQUENTIAL

FILE STATUS IS IO-STATUS.

 

技術列のあるDb2/luw (udb)表の場合、SEQUENCEオブジェクトが作成されます。

CREATE SEQUENCE <table_name>_<type>_SEQ START WITH <num_rows>

次のように1000レコードずつコミットされます。

IF MW-NB-INSERT >= 1000

CALL "do_commit"

注意:	do_commitモジュールはOracle Tuxedo Application Runtime Batchの一部です。

レコード・カウントが出力ファイルに書き込まれ、処理の終了時に次のように表示されます。

DISPLAY "RELOADING TERMINATED OK".

DISPLAY "Nb rows reloaded: " D-NB-RECS.

DISPLAY " ".

DISPLAY "NUMERIC MOVED WHEN USING CHAR FORMAT : "

DISPLAY " NUMERIC-BCD : " MW-COUNT-NUMERIC-BCD-USE-X.

DISPLAY " NUMERIC-DISP: " MW-COUNT-NUMERIC-DISP-USE-X.

表示される最後の2行は、COBOL記述が入力ファイルの内容と一致していないフィールドへのデータの移動を示します(非数値データを含むパック数値フィールドと非数値データを含む数値DISPLAYフィールド)。このようなケースが出現すると、各エラーが表示されます。

注意:	Intelハードウェアを使用するターゲット・プラットフォームに移行するときは、メッセージPROCESSOR UNIT IS INTELがトランスコードの開始時に出力されます。

再ロード用Kornシェル・スクリプト

再ロード用Kornシェル・スクリプトは、file.shコマンドの-gオプションを使用して生成されます。その後、(-iオプションを使用して)次の場所にインストールされます。

$HOME/trf/reload/file/<configuration name>

z/OSファイルのDb2/luw (udb)表への移行用の再ロードKornシェル・スクリプト

スクリプトの名前はloadtable-<logical file name>.kshです

これらには、DDL作成フェーズ、トランスコード(またはロード)フェーズおよびチェック・フェーズが含まれます。これらの異なるフェーズは別々に開始できます。

スクリプトを実行すると、実行ログが$MT_LOG/<logical file name>.logに生成されます

次の変数が各スクリプトで最初に設定されます。

リスト8-19 表の再ロード用スクリプトの変数

f="@ (c) Metaware:load-tables-ksh-db2luw.pgm. $Revision: 1.2.2.1 $null"

echo "reloading ODCSF0B into DB2 UNIX"

export DD_ENTREE=${DD_ENTREE:-${DATA_SOURCE}/ODCSF0B}

logfile=$MT_LOG/ODCSF0B.log

reportfile=${MT_LOG}/ODCSF0B.rpt

ddlfile=${DDL}/STFILEORA/ODCSF0B.sql

[…]

 

ファイル名を変更するには、スクリプトを呼び出す前にDD_ENTREEおよびDD_SORTIE変数を設定します。

スクリプトの3つの実行フェーズでは様々なメッセージが生成されます。これらのメッセージの説明は、「Oracle Tuxedo Application Rehosting Workbenchのメッセージ」にあります。

正常終了すると、リターン・コード0が戻されます。

Oracle DB2 DDLの作成フェーズ

Db2/luw (udb)オブジェクトは、${DDL}/STFILEUDB/ODCSF0B.sqlを使用してdb2コマンドの下に作成されます

db2 -ec -tvf ${ddlfile} >>$logfile 2>&1

正常終了では次のメッセージが表示されます。

echo "表が作成されました"

注意:	ログ・ファイルに、DROP文に関するエラーが含まれる場合があります。これらのエラーは、スクリプトによって無視されます。

トランスコード・フェーズおよびロード・フェーズ

これらの手順では、処理されるファイルに関連付けられたCOBOLトランスコード・プログラムの実行を開始します。

runb RELTABLE-ODCSF0B >> $logfile 2>&1

"runb"はOracle Tuxedo Application Runtime Batchの一部です。詳細は、『Oracle Tuxedo Application Runtime for Batchリファレンス・ガイド』を参照してください。

正常終了では次のメッセージが表示されます。

echo "ファイル${DD_ENTREE}が正常にトランスコードされ、DB2/LUWに再ロードされました"

チェック・フェーズ

この手順では、再ロードの後で、再ロードされたDb2/luw (udb)表に、ターゲット・プラットフォーム上のZOSから転送されたレコードと同数のレコードが含まれることを確認します。レコード数が異なる場合は、エラー・メッセージが生成されます。レコード数が等しい場合は、次のメッセージが生成されます。

"Number of rows written in output file is equal to number calculated using the log file: OK"

ターゲットDDL

Db2/luw (udb) DDLは、file.shコマンドの-gオプションを使用して生成されます。その後、(-iオプションを使用して)次の場所にインストールされます。

$HOME/trf/SQL/file/<schema name>

名前は<target file name>.sqlです

使用される形式は次のとおりです。

DROP TABLE <target_table_name>;

COMMIT;

CREATE TABLE <target_table_name> (

<target_column_name> <column_data_type> <attribute>[, …]

CONSTRAINT <constraint_name> PRIMARY KEY (<target_column_name>)

CONSTRAINT <fk_constraint_name> FOREIGN KEY (<target_column_name>)]

);

説明:

<target_table_name>:

Db2/luw (udb)の表名

<target_column_name>:

Db2/luw (udb)の列名

<column_data_type>:

Db2/luw (udb)のデータ型(CHAR、VARCHARまたはNUMERIC)

<attribute>:

主キーの場合はNOT NULLです。

<constraint_name>:

主キーの制約名(PK_<UDB table name>

<fk_constraint_name>:

外部キーの制約名(FK_<UDB table name>_<parent_table_name>)>

リスト8-20 DDL生成のためのsqlの例

DROP TABLE CUSTOMER ;

COMMIT ;

CREATE TABLE CUSTOMER (

VS_CUSTIDENT NUMERIC (6) NOT NULL,

VS_CUSTLNAME VARCHAR (30),

VS_CUSTFNAME CHAR (20),

VS_CUSTADDRS VARCHAR (30),

VS_CUSTCITY CHAR (20),

VS_CUSTSTATE CHAR (2),

VS_CUSTBDATE NUMERIC (8),

VS_CUSTEMAIL VARCHAR (40),

VS_CUSTPHONE NUMERIC (10),

VS_FILLER VARCHAR (100),

CONSTRAINT PKCUSTOMER PRIMARY KEY (

VS_CUSTIDENT)) ;

COMMIT ;

 

アクセス機能およびユーティリティ・プログラム

アクセス機能

これらのアクセス機能は、file.shの-gオプションを使用して生成され、-iおよび-sオプションを使用して$HOME/trf/DMLにインストールされます。

 

表8-8 アクセス機能

アクセス機能	役割
RM_<logical file name>.sqb	指定された論理ファイル名を置換するDb2/luw (udb)表へのリレーショナル・アクセス・モジュール。
DL_<logical file name>.cbl	指定された論理ファイルのモジュールをダウンロードします(Oracle Tuxedo Application Runtime Batchで使用される機能)。
UL_<logical file name>.cbl	指定された論理ファイルのモジュールをアップロードします(Oracle Tuxedo Application Runtime Batchで使用される機能)。
ASG_<logical file name>.cbl	複数の割当てがある場合に生成されるオプションのモジュール。「マッパー・ファイルの属性」を参照してください
getfileinfo.cbl	このプログラムは、入力引数として指定されたassign-nameに関連付けられた<logical file name>.rdbが存在するかどうかをチェックします。この機能は、ASG_<logical file name>.cblによって呼び出されます。
init_all_files.cbl	すべてのinit_all_files_<configuration name>.cblを呼び出します(Oracle Tuxedo Application Runtime Batchで使用される機能)。
init_all_files_<configuration name>.cbl	トランザクションを初期化します。リストされた構成名に対してリレーショナル・モジュールおよびASG_<logical file name>モジュールで使用されるすべての変数が初期化されます(Oracle Tuxedo Application Runtime Batchで使用される機能)。
dml_locking.cbl	このプログラムは、すべての構成ファイルのロックを管理します(Oracle Tuxedo Application Runtime Batchで使用される機能)。
close_all_files_<configuration name>.cbl	トランザクションを閉じます。このプログラムは、リストされた構成の表で開かれたすべてのカーソルを閉じ、論理アクセサASG_<logical file name>で開かれたすべてのファイルのロックを解除します(Oracle Tuxedo Application Runtime Batchで使用される機能)。
close_all_files.cbl	すべてのclose_all_files_<configuration name>.cblを呼び出します(Oracle Tuxedo Application Runtime Batchで使用される機能)。

アクセス機能の呼出し引数

RM_<logical file name>.sqbアクセス機能およびASG_<logical file name>.cblアクセス機能では、次の変数が使用されます

 

表8-9 アクセス呼出しに実装される変数

変数	説明および由来
機能コード	実行する操作のタイプを指定します(たとえば、OPEN、WRITEなど)。コードはMWFITECHコピー・ファイルのFILE-CODE-F変数を使用して渡されます。
ファイル・オープン・モード	ファイルは様々なモードで開くことができます(INPUT、OUTPUT、I O、EXTEND)。モードはMWFITECHコピー・ファイルのFILE-OPEN-MODE変数を使用して渡されます。
IO-STATUS	IO-STATUS変数は各ファイルにリンクされ、直前のリレーショナル・モジュール操作の実行ステータスを提供します。
送信または受信するレコード	送信するレコードには、書込み操作のためのアクセス機能またはキーによるアクセスが用意されています。受信するレコードには、読取りアクセス機能があります。これらは、LINKAGE SECTIONに記述されます。
使用する二次キーの名前	二次キーを含む索引付きファイル用。この編成のファイルについてのみ、START操作で使用する二次キーを指定するために別の変数が必要です。 二次キーの名前はMWFITECHコピー・ファイルのFILE-ALT-KEY-NAME変数を使用して渡されます。 二次キーを含まないファイルではこの引数は必要ありません。
相対キー	相対ファイルでは、相対キーの値は、アクセス・モジュールとの間でMWFITECHコピー・ファイルのFILE-REL-KEY変数を使用して渡されます。

リスト8-21 LINKAGE SECTIONの構造

LINKAGE SECTION.

01 IO-STATUS PIC XX.

COPY MWFITECH.

* *COBOL Record Description

01 VS-ODCSF0-RECORD.

06 X-VS-CUSTIDENT.

07 VS-CUSTIDENT PIC 9(006).

06 VS-CUSTLNAME PIC X(030).

06 VS-CUSTFNAME PIC X(020).

06 VS-CUSTADDRS PIC X(030).

06 VS-CUSTCITY PIC X(020).

06 VS-CUSTSTATE PIC X(002).

06 X-VS-CUSTBDATE.

07 VS-CUSTBDATE PIC 9(008).

06 VS-CUSTBDATE-G REDEFINES VS-CUSTBDATE.

11 X-VS-CUSTBDATE-CC.

12 VS-CUSTBDATE-CC PIC 9(002).

11 X-VS-CUSTBDATE-YY.

12 VS-CUSTBDATE-YY PIC 9(002).

11 X-VS-CUSTBDATE-MM.

12 VS-CUSTBDATE-MM PIC 9(002).

11 X-VS-CUSTBDATE-DD.

12 VS-CUSTBDATE-DD PIC 9(002).

06 VS-CUSTEMAIL PIC X(040).

06 X-VS-CUSTPHONE.

07 VS-CUSTPHONE PIC 9(010).

06 VS-FILLER PIC X(100).

PROCEDURE DIVISION USING IO-STATUS

MW-FILE-TECH

VS-ODCSF0-RECORD.

 

使用される呼出し引数

OPEN

すべてのOPEN操作で、FILE-CODE-F変数はキーワードOPENを含む必要があります。

FILE-OPEN-MODE変数は、次のように実行するOPENのタイプを含む必要があります。

 

表8-10 呼出し引数のファイル・オープン・モード

ソース	ターゲット
OPEN INPUT filename1	INPUT => FILE-OPEN-MODE
OPEN OUTPUT filename1	OUTPUT => FILE-OPEN-MODE
OPEN I-O filename1	I-O => FILE-OPEN-MODE
OPEN EXTEND filename1	EXTEND => FILE-OPEN-MODE

CLOSE

CLOSE操作では、FILE-CODE-F変数はキーワードCLOSEを含む必要があります。

CLOSE-LOCK

CLOSE LOCK操作では、FILE-CODE-F変数はキーワードCLOSE-LOCKを含む必要があります。

DELETE

ファイル・アクセス・モードに応じて、DELETE操作の対象は、現在のレコードか、ファイル・キーまたはRBA値によって指定されるレコードになります。

対応する機能コードは次のように指定されます。

 

表8-11 呼出し引数の削除モード

アクセス	ソース	ターゲット
順次	DELETE filename1	DELETE-CUR => FILE-CODE-F
ランダムまたは動的	DELETE filename1	DELETE-KEY => FILE-CODE-F

READ

機能コードは、ファイル・アクセス・モードと必要な読取りタイプ(順次読取り、主キーの読取り、二次キーの読取りまたはRBA値の読取り)によって異なります。

 

表8-12 引数によって異なる読取り操作の値

アクセス	ソース	ターゲット
順次	READ filename1 [NEXT]	READ-NEXT => FILE-CODE-F
ランダム	READ filename1	READ-KEY => FILE-CODE-F
動的	READ filename1 NEXT	READ-NEXT => FILE-CODE-F
	READ filename1	READ-KEY => FILE-CODE-F
	READ filename1 PREVIOUS	READ-PREV => FILE-CODE-F
DataName1がkeyAltKey1に対応する変数の場合	READ filename1 KEY DataName1	READ-ALT-KEY => FILE-CODE-F "AltKey1" => FILE-ALT-KEY-NAME
DataName1が相対キーを表す場合	READ filename1 KEY DataName1	READ-REL-KEY => FILE-CODE-F "RelKeyVar" => FILE-REL-KEY
Oracle Tuxedo Application Runtime CICSによって使用されるロック	READ filename1 UPDATE	READ-UPDATE => FILE-CODE-F

注意:	INTO句が検出されると、指定されたフィールドの値を設定するために、呼出しの後でMOVE操作が追加されます。

REWRITE

機能コードは、ファイル・アクセス・モードと必要な読取りタイプ(順次読取り、主キーの読取り、二次キーの読取りまたはRBA値の読取り)によって異なります。

 

表8-13 引数によって異なる再書込み操作の値

アクセス	ソース	ターゲット
順次	REWRITE RecName1	REWRITE-CUR => FILE-CODE-F
ランダムまたは動的	REWRITE RecName1	REWRITE-KEY => FILE-CODE-F

注意:	FROM句が検出されると、指定されたフィールドの値を設定するために、呼出しの前にMOVE操作が追加されます。

START

相対ファイル、索引付きファイル、またはファイルの二次キーの有無にかかわらず、機能コードはSTARTの厳密なタイプによって異なります。

 

表8-14 引数によって異なる再書込み操作の値

発生状況	ソース	ターゲット
	START file1	START-EQUAL => FILE-CODE-F
DataName1がfile1の相対キーまたは主キーを表す場合	START file1 KEY {EQUAL| = |EQUALS} DataName1	START-EQUAL => FILE-CODE-F
	START file1 KEY {EXCEEDS| > |GREATER} DataName1	START-SUP => FILE-CODE-F
	START file1 KEY {NOT LESS |GREATER OR EQUAL | NOT < | >= } DataName1	START-SUPEQ => FILE-CODE-F
	START file1 KEY {< |LESS} DataName1	START-INF => FILE-CODE-F
	START file1 KEY {NOT GREATER |LESS OR EQUAL | NOT > | <= } DataName1	START-INFEQ => FILE-CODE-F
	START file1 KEY {EQUAL| = |EQUALS} DataName1 GENERIC	START-GENEQ => FILE-CODE-F
DataName1がAltKey1キーに対応する変数の場合	START file1 KEY {EQUAL| = |EQUALS} DataName1	AltKey1 => FILE-ALT-KEY-NAME START-ALT-EQUAL => FILE-CODE-F
	START file1 KEY {EXCEEDS| > |GREATER} DataName1	AltKey1 => FILE-ALT-KEY-NAME START-ALT-SUP => FILE-CODE-F
	START file1 KEY {NOT LESS |GREATER OR EQUAL | NOT < | >= } DataName1	AltKey1 => FILE-ALT-KEY-NAME START-ALT-SUPEQ => FILE-CODE-F
	START file1 KEY {< |LESS} DataName1	AltKey1 => FILE-ALT-KEY-NAME START-ALT-INF => FILE-CODE-F
	START file1 KEY {NOT GREATER |LESS OR EQUAL | NOT > | <= } DataName1	AltKey1 => FILE-ALT-KEY-NAME START-ALT-INFEQ => FILE-CODE-F

WRITE

機能コードは、ファイル・アクセス・モードと必要な読取りタイプ(順次読取り、主キーの読取りまたは二次キーの読取り)によって異なります。

 

表8-15 引数によって異なる書込み操作の値

アクセス	ソース	ターゲット
順次	WRITE RecName1	WRITE-SEQ => FILE-CODE-F
ランダムまたは動的	WRITE RecName1	WRITE-KEY => FILE-CODE-F

注意:	FROM句が検出されると、指定されたフィールドの値を設定するために、呼出しの前にMOVE操作が追加されます。

実装されるコピー・ファイル

特定のアクセス機能によって次のコピー・ファイルが使用されます。これらは、Tuxedo ART Workbenchをインストールするときに< installation platform>/fixed-copy/ディレクトリに配置する必要があります。

•	MW-PARAM-TRACE-VAR.cpy

•	MW-PARAM-TRACE.cpy

•	MW-PARAM-GETFILEINFO-VAR.cpy

•	MW-PARAM-GETFILEINFO.cpy

•	MW-PARAM-ERROR-VAR.cpy

•	MW-PARAM-ERROR.cpy

•	MW-PARAM-DML-LOCKING.cpy

•	MWFITECH.cpy

•	ERROR-SQLCODE-DB2LUW.cpy

Kornシェル・ユーティリティ

これらのKSHスクリプトは、file.shの-gオプションを使用して生成され、-iオプションを使用して$HOME/trf/SQL/file/<configuration name>にインストールされます。必要なときにOracle Tuxedo Application Runtime Batchによって使用されます。

 

表8-16 Kornシェル・ユーティリティ

Kornシェル・スクリプト名	役割
cleantable-<logical file name>.ksh	このファイルに関連付けられているすべての表を消去(CLEAN)するスクリプト・ファイル。
createtable-<logical file name>.ksh	このファイルに関連付けられているすべての表、制約および索引を作成(CREATE)するスクリプト・ファイル。
droptable-<logical file name>.ksh	このファイルに関連付けられているすべての表を削除(DROP)するスクリプト・ファイル。
ifemptytable-<logical file name>.ksh	すべての表が空かどうかをチェックするスクリプト・ファイル。
ifexisttable-<logical file name>.ksh	すべての表が存在するかどうかをチェックするスクリプト・ファイル。

Oracle Tuxedo Application Runtime for CICSの構成ファイル

VSAMファイルがDb2/luw (udb)表に移行されると、desc.vsamファイルとenvfile_tuxファイルが$HOME/trf/config/tux/ディレクトリに生成されます。これらはOracle Tuxedo Application Runtime CICSによって使用されます。

COBOLおよびJCL変換ガイド・ファイル

これらのファイルが生成されるのは、file.shコマンドで-sオプションを使用するときです。

このファイルは、オブジェクト名を変更するためにTuxedo ART Workbench COBOLコンバータおよびJCLコンバータによって使用されます。

 

表8-17 変換ファイル名

File-in-table-<configuration name>	Tuxedo ART Workbench JCLコンバータによって使用されます。
File-in-table.txt	Tuxedo ART Workbench JCLコンバータによって使用されます。
Conv-ctrl.txt	Tuxedo ART Workbench COBOLコンバータによって使用されます。
Conv-ctrl-<configuration name>	Tuxedo ART Workbench COBOLコンバータによって使用されます。

.rdbファイル

これらのファイルは、VSAMファイルがDb2/luw (udb)表に変換されたときに作成されます。Oracle Tuxedo Application Runtime Batchは、これらのファイルを使用して、ソース・プラットフォームのz/OSファイルとターゲット・プラットフォームの対応するDb2/luw (udb)表間の技術的な違いを解消します。

ファイルは$HOME/trf/dataに生成されます

名前は<source platform physical file name>.rdbです

ファイルには次の項で説明する2つの行が含まれます。

パラメータと構文

${DATA}/<source platform physical file name> <max> <org> <form> UL_<logical file name> <asgn_in> DL_<logical file name> <asgn_out> RM_<logical file name> <target table name> ${DDL}/<configuration name/cleantable-<target table name>.ksh ${DDL}/<configuration name>/droptable-<target table name>.ksh ${DDL}/<configuration name>/createtable-<target table name>.ksh ${DDL}/<configuration name>/ifemptytable-<target table name>.ksh ${DDL}/<configuration name>/ifexisttable-<target table name>.ksh

IDX_KEY <column name> <n m>

REL_KEY - <m>

 

表8-18 .rdbファイルのパラメータ

パラメータ	説明
1行目:
<source platform physical file name>	物理ファイル名
<max>	最大レコード・サイズ(COBOL記述)
<org>	ファイル編成: • IDX: 索引付き(代替キーなし) • IDX_ALT: 索引付き(代替キー) • SEQ: シーケンシャル • REL: 相対
<form>	レコード形式: • FIX: 固定ファイル • VAR: 最小サイズの<min>可変ファイル。<min>がない場合、最小サイズは1になります。
UL_<logical file name>	Oracle Tuxedo Application Runtime Batchで使用されるアップロード用コンポーネントの名前。
<asgn_in>	アップロード用コンポーネントで使用される割当てファイル名。
DL_<logical file name>	Runtimeで使用されるダウンロード用コンポーネントの名前。
<asgn_out>	ダウンロード用コンポーネントで使用される割当てファイル名。
RM_<logical file name>	リレーショナル・モジュール名。
<target table name>	最初の表の名前(マスター表名または複数レコードでは最初の表の名前)。
${DDL}/<configuration name/cleantable-<target table name>.ksh	このファイルに関連付けられているすべての表を消去(CLEAN)するスクリプト・ファイルの名前。
${DDL}/<configuration name/droptable-<target table name>.ksh	このファイルに関連付けられているすべての表を削除(DROP)するスクリプト・ファイルの名前。
${DDL}/<configuration name>/createtable-<target table name>.ksh	このファイルに関連付けられているすべての表とそのオブジェクト(制約および索引)を作成(CREATE)するスクリプト・ファイルの名前。
${DDL}/<configuration name>/ifemptytable-<target table name>.ksh	すべての表が空かどうかをチェックするスクリプト・ファイルの名前。
${DDL}/<configuration name>/ifexisttable-<target table name>.ksh	すべての表が存在するかどうかをチェックするスクリプト・ファイルの名前。
2行目(索引付きファイルおよび代替キーのある索引付きファイルのみ):
IDX_KEY	定数。
<VS-column name>	索引付きキー名(COBOL記述で指定されているグループ・ゾーン名または基本フィールド名)。
<n m>	• n: 索引キーのオフセット(COBOL記述)。 • m: 索引キーの長さ(COBOL記述)。
2行目(相対ファイル):
REL_KEY	定数。
-	定数。
<m>	• m: 相対キーの長さ(COBOL記述)。

.rdbファイルの例

次の例は、索引付きVSAMファイルをDb2/luw (udb)表に移行するときに生成されます。ソース・プラットフォームでのVSAMファイルの名前はPJ01AAA.SS.VSAM.CUSTOMERです。

リスト8-22 索引付きVSAMの.rdbの例

${DATA}/PJ01AAA.SS.VSAM.CUSTOMER 266 IDX FIX UL_ODCSF0B ENTREE DL_ODCSF0B SORTIE RM_ODCSF0B CUSTOMER ${DDL}/STFILEORA/cleantable-ODCSF0B.ksh ${DDL}/STFILEORA/droptable-ODCSF0B.ksh ${DDL}/STFILEORA/createtable-ODCSF0B.ksh ${DDL}/STFILEORA/ifemptytable-ODCSF0B.ksh ${DDL}/STFILEORA/ifexisttable-ODCSF0B.ksh

IDX_KEY VS-CUSTIDENT 1 6

 

実行レポート

file.shでは、選択したオプションに応じて様々な実行レポートが作成されます。次の例では次のコマンドが使用されます。

file.sh -gmi $HOME/trf STFILEUDB

 

リスト8-23 File.shでオプション-gを使用したとき(ステップ1)に生成されるメッセージ

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

##########################################################################

構成STFILEUDBの制御

##############################

Control of templates

OK: Use Default Templates list file

File name is /Qarefine/release/M3_L3_6/convert-data/default/file/file-templates-db2luw.txt

##############################

Control of Mapper

##############################

COMPONENTS GENERATION

CMD : /Qarefine/release/M3_L3_6/scripts/launch file-converter -s /home2/wkb4/param/system.desc -mf /home2/wkb4/tmp/mapper-STFILEUDB.re.tmp -dmf /home2/wkb4/param/file/Datamap-STFILEUDB.re -td /home2/wkb4/tmp -tmps /home2/wkb4/tmp/file-templates-STFILEUDB.tmp -target-sgbd udb9 -target-os unix -varchar2 29 -print-ddl -print-dml -abort

MetaWorld starter

Loading lib: /Qarefine/release/M3_L3_6/Linux64/lib64/localext.so

(funcall LOAD-THE-SYS-AND-APPLY-DMAP-AND-MAPPER)

FILE-0092: *File-Converter*: We are in BATCH mode

FILE-0087: * Comand line arguments: begining of analyze

FILE-0088: * recognized argument -s value: /home2/wkb4/param/system.desc

FILE-0088: * recognized argument -mf value: /home2/wkb4/tmp/mapper-STFILEUDB.re.tmp

FILE-0088: * recognized argument -dmf value: /home2/wkb4/param/file/Datamap-STFILEUDB.re

FILE-0088: * recognized argument -td value: /home2/wkb4/tmp

FILE-0088: * recognized argument -tmps value: /home2/wkb4/tmp/file-templates-STFILEUDB.tmp

FILE-0088: * recognized argument -target-sgbd value: udb9

FILE-0088: * recognized argument -target-os value: unix

FILE-0088: * recognized argument -varchar2 value: 29

FILE-0089: * recognized argument -print-ddl

FILE-0089: * recognized argument -print-dml

FILE-0089: * recognized argument -abort

FILE-0091: * End of Analyze

FILE-0094: * Parsing mapper file /home2/wkb4/tmp/mapper-STFILEUDB.re.tmp ...

FILE-0095: * Parsing data-map file /home2/wkb4/param/file/Datamap-STFILEUDB.re ...

FILE-0096: * Parsing system description file /home2/wkb4/param/system.desc ...

Warning! OS clause is absent, assuming OS is IBM

Current OS is IBM-MF

Loading /home2/wkb4/source/symtab-STFILEUDB.pob at 14:49:41... done at 14:49:41

Build-Symtab-DL1 #1<a SYMTAB-DL1>

... Postanalyze-System-RPL...

sym=#2<a SYMTAB>

PostAnalyze-Common #2<a SYMTAB>

0 classes

0 classes

0 classes

0 classes

1 classes

13 classes

Loading /home2/wkb4/source/BATCH/pob/RSSABB01.cbl.shrec...

Loading /home2/wkb4/source/COPY/pob/ODCSF0.cpy.cdm...

Loading /home2/wkb4/source/COPY/pob/ODCSF0B.cpy.cdm...

Loading /home2/wkb4/source/COPY/pob/ODCSFU.cpy.cdm...

FILE-0001: * Point 1 !!

FILE-0002: * Point 2 !!

FILE-0010: * Parsing file /home2/wkb4/source/COPY/ODCSF0.cpy ...

*Parsed 22 lines*

FILE-0010: * Parsing file /home2/wkb4/source/COPY/MW_SYSOUT.cpy ...

*Parsed 8 lines*

FILE-0010: * Parsing file /home2/wkb4/source/COPY/ODCSFU.cpy ...

*Parsed 24 lines*

FILE-0010: * Parsing file /home2/wkb4/source/COPY/ODCSF0B.cpy ...

*Parsed 22 lines*

FILE-0003: * Point 3 !!

FILE-0004: * Point 4 !!

FILE-0005: * Point 5 !!

FILE-0052: * loading pob file /Qarefine/release/M3_L3_6/convert-data/templates/file/unloading/jcl-unload-MVS-REPRO.pgm.pob

FILE-0085: * Expanding /Qarefine/release/M3_L3_6/convert-data/templates/file/unloading/jcl-unload-MVS-REPRO.pgm ...

FILE-0054: * Writing ODCSF0B.jclunload

[...]

FILE-0052: * loading pob file /Qarefine/release/M3_L3_6/convert-data/templates/file/dml/generate-post-process.pgm.pob

FILE-0085: * Expanding /Qarefine/release/M3_L3_6/convert-data/templates/file/dml/generate-post-process.pgm ...

FILE-0054: * Writing post-process-file.sh

FILE-0053: * Parsing template file /Qarefine/release/M3_L3_6/convert-data/default/file/file-move-assignation-db2luw.pgm

FILE-0085: * Expanding /Qarefine/release/M3_L3_6/convert-data/default/file/file-move-assignation-db2luw.pgm ...

FILE-0054: * Writing file-move-assignation.lst

Rest in peace, Refine...

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

Generated components are in /home2/wkb4/tmp/Template/STFILEUDB

(Optionaly in /home2/wkb4/tmp/SQL/STFILEUDB)

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

 

リスト8-24 file.shでオプション-mを使用したとき(ステップ2)に生成されるメッセージ

 

##########################################################################

FORMATTING COBOL LINES

##########################################################################

CHANGE ATTRIBUTE TO KSH or SH scripts

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

Components are modified into /home2/wkb4/tmp directory

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

##########################################################################

UDBINSTALL COMPONENTS INTO SPECIFIC DIRECTORY USING file-move-assignation.lst

===================================================

==_PJ01AAA.SS.VSAM.CUSTOMER_==

Copied <Templates>:ODCSF0B.jclunload to <td>/unload/file/STFILEUDB/ODCSF0B.jclunload

Copied <Templates>:loadtable-ODCSF0B.ksh to <td>/reload/file/STFILEUDB/loadtable-ODCSF0B.ksh

Copied <Templates>:RELTABLE-ODCSF0B.sqb to <td>/reload/file/STFILEUDB/RELTABLE-ODCSF0B.sqb

Copied <Templates>:ASG_ODCSF0B.cbl to <td>/DML/ASG_ODCSF0B.cbl

Copied <Templates>:RM_ODCSF0B.sqb to <td>/DML/RM_ODCSF0B.sqb

Copied <Templates>:DL_ODCSF0B.cbl to <td>/DML/DL_ODCSF0B.cbl

Copied <Templates>:UL_ODCSF0B.cbl to <td>/DML/UL_ODCSF0B.cbl

Copied <Templates>:PJ01AAA.SS.VSAM.CUSTOMER.rdb to <td>/data/PJ01AAA.SS.VSAM.CUSTOMER.rdb

Copied <SQL>:ODCSF0B.sql to <td>/SQL/file/STFILEUDB/ODCSF0B.sql

Copied <Templates>:cleantable-ODCSF0B.ksh to <td>/SQL/file/STFILEUDB/cleantable-ODCSF0B.ksh

Copied <Templates>:droptable-ODCSF0B.ksh to <td>/SQL/file/STFILEUDB/droptable-ODCSF0B.ksh

Copied <Templates>:createtable-ODCSF0B.ksh to <td>/SQL/file/STFILEUDB/createtable-ODCSF0B.ksh

Copied <Templates>:ifemptytable-ODCSF0B.ksh to <td>/SQL/file/STFILEUDB/ifemptytable-ODCSF0B.ksh

Copied <Templates>:ifexisttable-ODCSF0B.ksh to <td>/SQL/file/STFILEUDB/ifexisttable-ODCSF0B.ksh

===================================================

==_PJ01AAA.SS.QSAM.CUSTOMER.REPORT_==

Copied <Templates>:MW-SYSOUT.jclunload to <td>/unload/file/STFILEUDB/MW-SYSOUT.jclunload

Copied <Templates>:loadfile-MW-SYSOUT.ksh to <td>/reload/file/STFILEUDB/loadfile-MW-SYSOUT.ksh

Copied <Templates>:RELFILE-MW-SYSOUT.cbl to <td>/reload/file/STFILEUDB/RELFILE-MW-SYSOUT.cbl

===================================================

==_PJ01AAA.SS.QSAM.CUSTOMER.UPDATE_==

Copied <Templates>:ODCSFU.jclunload to <td>/unload/file/STFILEUDB/ODCSFU.jclunload

Copied <Templates>:loadfile-ODCSFU.ksh to <td>/reload/file/STFILEUDB/loadfile-ODCSFU.ksh

Copied <Templates>:RELFILE-ODCSFU.cbl to <td>/reload/file/STFILEUDB/RELFILE-ODCSFU.cbl

===================================================

==_PJ01AAA.SS.QSAM.CUSTOMER_==

Copied <Templates>:ODCSF0Q.jclunload to <td>/unload/file/STFILEUDB/ODCSF0Q.jclunload

Copied <Templates>:loadfile-ODCSF0Q.ksh to <td>/reload/file/STFILEUDB/loadfile-ODCSF0Q.ksh

Copied <Templates>:RELFILE-ODCSF0Q.cbl to <td>/reload/file/STFILEUDB/RELFILE-ODCSF0Q.cbl

===================================================

Copied <Templates>:close_all_files_STFILEUDB.cbl to <td>/DML/close_all_files_STFILEUDB.cbl

Copied <Templates>:init_all_files_STFILEUDB.cbl to <td>/DML/init_all_files_STFILEUDB.cbl

Copied <Templates>:reload-files.txt to <td>/reload/file/STFILEUDB/reload-files.txt

Copied <fixed-components>:getfileinfo.cbl to <td>/DML/getfileinfo.cbl

Copied <fixed-components>:CreateReportFromMVS.sh to <td>/reload/bin/CreateReportFromMVS.sh

===================================================

Dynamic_configuration

Copied <Templates>:File-in-table-STFILEUDB to /home2/wkb4/param/dynamic-config/File-in-table-STFILEUDB

Copied <Templates>:../../Conv-ctrl-STFILEUDB to /home2/wkb4/param/dynamic-config/Conv-ctrl-STFILEUDB===================================================

post-process

executed <Templates>:post-process-file.sh

/home2/wkb4/param/dynamic-config/Conv-ctrl-STFILEUDB treated

=====

Number of copied files: 30

Number of executed scripts: 1

Number of ignored files: 0

##########################################################################

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

Components are copied into /home2/wkb4/trf directory

*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-

 

 

 

詳細処理

この項は、File-to-Db2/luw (udb)コンバータで使用されるコマンド行構文と、処理手順のサマリーについて説明します。

ソース・プラットフォームとターゲット・プラットフォームで次の処理に関するプロセスが必要です。

•	環境の構成とコンポーネントのインストール

•

データのアンロード

•

データの転送

•

データの再ロード

•

転送のチェック

コマンド行構文

file.sh

名前

file.sh - ファイル移行コンポーネントを生成します。

形式

file.sh [ [-g] [-m] [-i <installation directory>] <configuration name> | -s <installation directory> (<configuration name1>,<configuration name2>,...) ]

説明

file.shは、z/OSファイルをDb2/luw (udb)データベースに移行するために使用されるTuxedo ART Workbenchのコンポーネントを生成します。

オプション

生成オプション

-g <configuration name>

指定された構成に関して$TMPPROJECTでのアンロード用およびロード用コンポーネントの生成をトリガーします。生成内容は、構成ファイルで検出される情報によって異なります。

変更オプション

-m <configuration name>

生成されたSHELLスクリプトを実行可能にします。COBOLプログラムは、ターゲットCOBOLの固定形式に合うように調整されます。「生成されるコンポーネントを変更するファイル」で説明されているシェル・スクリプトが存在している場合は実行されます。

インストール・オプション

-i <installation directory> <configuration name>

インストール・ディレクトリにコンポーネントを配置します。この操作はfile-move-assignation-db2luw.pgmファイルにある情報を使用します。

最後のオプション

-s <installation directory> (<configuration name 1>, <configuration name 2>, …)

COBOLコンバータおよびJCLコンバータの構成ファイルとDMLユーティリティを生成できます。これらの生成されたファイルは、プロジェクトのすべての単一ファイルを扱います。

すべての構成ファイルは$PARAM/dynamic-configに、DMLファイルは<trf>/DMLディレクトリに作成されます。

例

file.sh -gmi $HOME/trf FTFIL001

単一使用順序

file.shのオプションを一度に1つ使用する場合は、次の順序で使用する必要があります。

1.

=> -g

2.

=> -m

3.

=> -i

4.	=> -s(ステップ1 - 3をすべての構成について実行した後で1回実行する必要があります)

処理手順

環境の構成およびコンポーネントのインストール

この項では、ソース・プラットフォームとターゲット・プラットフォームでの準備作業について説明します。

z/OSでのアンロード・コンポーネントのインストール

アンロードで使用されるコンポーネント($HOME/trf/unload/fileに生成される)は、ソースのz/OSプラットフォームにインストールする必要があります(生成されたJCLは、JOBカード、ライブラリ・アクセス・パス、入力ファイルおよび出力ファイルのアクセス・パスなど、特定のサイトの制約に合せた調整が必要な場合があります)。

ターゲット・プラットフォームへの再ロード・コンポーネントのインストール

再ロードで使用されるコンポーネント($HOME/trf/reload/fileに生成される)は、ターゲット・プラットフォームにインストールする必要があります。

次の環境変数をターゲット・プラットフォームに設定する必要があります。

 

表8-19 ターゲット・プラットフォームの環境変数

変数	値
DATA_SOURCE	z/OSから転送されてDb2/luw (udb)表に再ロードされる、アンロード済ファイルを含むディレクトリの名前。
BIN	一般的な再ロードと制御のスクリプトの場所($HOME/trf/reload/bin)。
TMPPROJECT	一時ディレクトリ。
MT_LOG	実行ログを含むディレクトリ。
DATA_TRANSCODE	バイナリ・データ・トランスコード・スクリプトで使用される一時ディレクトリ(ASCII形式の一時ファイルを含みます)。
DDL	Db2/luw (udb)オブジェクトの作成に使用されるSQLスクリプトの場所 ($HOME/trf/SQL/file/<configuration name>)
PATH	このUNIX/Linux変数は、Oracle Tuxedo Application Runtime for Batchユーティリティのディレクトリを含む必要があります
RDB_DATA	ワークベンチによって*.rdbファイルが生成されるディレクトリです。 use-file-catalogがシステム記述ファイルに設定されている場合、この変数が必要です。 例: $HOME/trf/data。

また、次の変数は、『Oracle Tuxedo Application Rehosting Workbenchインストレーション・ガイド』の情報に従って設定する必要があります。

•	MT_DB_DBNAME

•	MT_DB_USER

•

MT_DB_PWD

COBOLトランスコード・プログラムのコンパイル

COBOLトランスコード・プログラムは、「コンパイラ・オプション」で指定されるオプションを使用してコンパイルする必要があります。

これらのプログラムのコンパイルには、プロジェクトのために調整されたCONVERTMW.cpyのコピーの存在が必要です。

アンロード・データ

各ファイルをアンロードするために、IBM IDCAMS REPROユーティリティを使用するJCLが実行されます。IDCAMS REPROユーティリティによって各ファイルに対して次の2つのファイルが作成されます。

•

データ・ファイル

•

ログ・ファイル

このようなアンロード用JCLの名前は<logical filename>.jclunloadです

ジョブが正常に終了するとリターン・コード0が送られます。

データの転送

アンロードされたデータ・ファイルは、サイトで使用可能なファイル転送ツール(CFT、FTP、…)を使用して、ソースのz/OSプラットフォームからターゲットのUNIX/Linuxプラットフォームにバイナリ形式で転送する必要があります。

ターゲットのUNIX/Linuxプラットフォームに転送されたファイルは、$DATA_SOURCEディレクトリに格納する必要があります。

データの再ロード

データのトランスコードおよび再ロードを可能にするスクリプトが次のディレクトリに生成されます。

$HOME/trf/reload/file/<configuration name>/

注意:	file-to-Db2/luw (udb)変換の場合、スクリプト名は次のフォーマットになります。

loadtable-<logical file name>.ksh

表のトランスコードおよび再ロード・コマンド

名前

loadtableによって、データのトランスコードと表への再ロードが行われます。

形式

loadtable-<logical file name>.ksh [-t] [-l] [-c: <method>]

オプション

-t

ファイルをトランスコードします。

-l

ファイルを再ロードします

-c ftp:<…>:<…>

転送の検証を実装します(「転送のチェック」を参照)。

転送のチェック

この確認は次のloadtable-<logical file name>.kshのオプションを使用します

-c ftp:<name of transferred physical file>:<name of FTP log under UNIX>

このオプションでは、再ロードの後で、z/OSから転送された物理ファイルとターゲット・プラットフォームで再ロードされたDb2/luw (udb)表に同数のレコードが含まれることを確認します。このチェックは、FTPログと再ロード・プログラムの実行レポートを使用して実行されます。レコード数が異なる場合は、エラー・メッセージが生成されます。