金融其它数据库
perl 调用 db2cmd 执行sql语句时出现错
perl 调用 db2cmd 执行sql语句时出现错误： DB21061E 未初始化命令行环境。
跪求解决方案
代码：
my $rc = open(DB2CMD, "|db2 -mtvsp-");
# To see if bteq command invoke ok?
unless ($rc) {
print "Could not invoke BTEQ commandn";
return -1;
}
### Below are BTEQ scripts ###
print DB2CMD <
ENDOFINPUT
##db2 connect TO rwa USER DB2ADMIN USING DB2;
### End of BTEQ scripts ###
close(DB2CMD);
6同行回答
这种方式也可以的。收起
浏览889
你的code有语法错误，I modified it for you and tested run OK
代码：
my $rc = open(DB2CMD, "|db2 -mtvsp-");
# To see if bteq command invoke ok?
unless ($rc) {
print "Could not invoke BTEQ command\n";
return -1;
}
### Below are BTEQ scripts ###
print DB2CMD <
ENDOFINPUT
##db2 connect TO rwa USER DB2ADMIN USING DB2;
### End of BTEQ scripts ###
close(DB2CMD);收起
代码：
my $rc = open(DB2CMD, "|db2 -mtvsp-");
# To see if bteq command invoke ok?
unless ($rc) {
print "Could not invoke BTEQ command\n";
return -1;
}
### Below are BTEQ scripts ###
print DB2CMD <
ENDOFINPUT
##db2 connect TO rwa USER DB2ADMIN USING DB2;
### End of BTEQ scripts ###
close(DB2CMD);收起
浏览936
The error massage itself says it clearly
DB21061E Command line environment not initialized.
Explanation:
You have tried to invoke the command line processor from a command
window that was not started by db2cmd.exe.
User response:
Issue DB2CMD to start a command window that has the command line
processor environment initialized.收起
DB21061E Command line environment not initialized.
Explanation:
You have tried to invoke the command line processor from a command
window that was not started by db2cmd.exe.
User response:
Issue DB2CMD to start a command window that has the command line
processor environment initialized.收起
浏览871
回复 3# drdb2
Please see the tested:
C:\ more test.pl
my $rc = open(DB2CMD, "|db2 -mtvsp-");
# To see if bteq command invoke ok?
unless ($rc) {
print "Could not invoke BTEQ command\n";
return -1;
}
print DB2CMD <
ENDOFINPUT
close(DB2CMD);
C:\ test.pl
connect to sample user db2admin using
Database Connection Information
Database server = DB2/NT 9.7.1
SQL authorization ID = DB2ADMIN
Local database alias = SAMPLE收起
Please see the tested:
C:\ more test.pl
my $rc = open(DB2CMD, "|db2 -mtvsp-");
# To see if bteq command invoke ok?
unless ($rc) {
print "Could not invoke BTEQ command\n";
return -1;
}
print DB2CMD <
ENDOFINPUT
close(DB2CMD);
C:\ test.pl
connect to sample user db2admin using
Database Connection Information
Database server = DB2/NT 9.7.1
SQL authorization ID = DB2ADMIN
Local database alias = SAMPLE收起
浏览909