为把数据从大型机迁移到AIX平台上的DB2 UDB ， 其过程通常事实这样的：登录到大型机，提取数据到一个文件中，ftp文件到AIX机器上, 然后将数据装载到DB2 UDB。 这需要两个不同的工作环境。

替代方案是：通过只使用一个脚本，在DB2 UDB的AIX环境下我可以完成整个过程。这个过程非常快， 不会加重大型机或AIX环境的负担。

你所需要做的是使用大型机连接，再用EXPORT命令来听取数据。 例如：

db2 connect to DB2S390 USER xxxxxx USING yyyy

db2 "export to exportfile.ixf of IXF select * from SYSIBM.SAMPLE"

你可以再将输出的文件导入装有AIX系统的DB2 UDB中。我已经写了一个在AIX上的Korn shell脚本, 只需给出图表名称，用户名和密码，就可用一个命令从大型机上提取和加载数据。同时值得提出的是使用db2look命令，你可以用大型机的DB2 Connect连接作为数据提取DDL。

#!/bin/ksh

Extract data from Mainframe and Load into the

Specified Table in the DDHAP00 Database

export LOADFILE="/udb/db2aix01/file/file1/$1"

export USERID=$2

export PSWD=$3

export CurrentPWD=$PWD # Save current directory

echo 'date'

Connect to mainframe

db2 CONNECT TO DB2S390 USER $USERID using $PSWD

echo "Extracting data from mainframe..."

Extract data from mainframe

db2 "export to $LOADFILE.ixf of IXF select * from DBDEV.$1"

echo 'date'

echo "Extract completed"

Disconnect from mainframe

db2 DISCONNECT DB2S390;

Connect to database on AIX

db2 CONNECT TO DDHAP00 USER xxxxx USING xxxxxx;

Clear load messages file

cp /dev/nul /udb/db2aix01/file/file1/Load_$1.msg

echo 'date'

echo "Loading data..."

Load data from flat file

db2 "LOAD FROM $LOADFILE.ixf OF IXF MODIFIED BY pagefreespace=0

totalfreespace=0 ROWCOUNT 999999999 WARNINGCOUNT 9 MESSAGES Load_$1.msg

REPLACE INTO DBO.$1 STATISTICS NO INDEXING MODE AUTOSELECT"

echo 'date'

echo "End of Load"

db2 DISCONNECT DDHAP00;

Reset to previous directory

cd $PWD