使用 REXX 访问 Teradata 输出和 DB2 输出时出现问题

Question

我有一个 REXX 作业，需要从 Teradata（使用 BTEQ）和 DB2 读取数据。目前，我可以让它从 Teradata 或 DB2 读取数据，但不能同时读取两者。当我尝试从两者中读取时，Teradata（首先运行）工作正常，但 DB2 读取在尝试打开游标时给出 RC(1) 错误。

从 Teradata 读取的代码（大体上复制自 http://www.teradataforum.com/teradata /20040928_131203.htm):

ADDRESS TSO "DELETE BLAH.TEMP"
"ALLOC FI(SYSPRINT) DA(BLAH.TEMP) NEW CATALOG SP(10 10) TR RELEASE",
   "UNIT(SYSDA) RECFM(F B A) LRECL(133) BLKSIZE(0) REUSE"
"ATTRIB FBATTR LRECL(220)"
"ALLOC F(SYSIN) UNIT(VIO) TRACKS SPACE(10,10) USING(FBATTR)"
/* Set up BTEQ script */
QUEUE ".RUN FILE=LOGON"
QUEUE "SELECT COLUMN1 FROM TABLE1;"
/* Run BTEQ script */
"EXECIO * DISKW SYSIN (FINIS"
"CALL 'SYS3.TDP.APPLOAD(BTQMAIN)'"; bteq_rc = rc
"FREE FI(SYSPRINT SYSIN)"
/* Read and parse BTEQ output */
"EXECIO * DISKR SYSPRINT (STEM BTEQOUT. FINIS"
DO I = 1 to BTEQOUT.0
   ...
END

从 DB2 读取的代码：

ADDRESS TSO "SUBCOM DSNREXX"
IF RC THEN rcDB2 = RXSUBCOM('ADD','DSNREXX','DSNREXX')
ADDRESS DSNREXX "CONNECT " subsys

sqlQuery = "SELECT COLUMN2 FROM TABLE2;"

ADDRESS DSNREXX "EXECSQL DECLARE C001 CURSOR FOR S001"
IF SQLCODE <> 0 THEN DO
   SAY 'DECLARE C001 SQLCODE = ' SQLCODE
   EXIT 12
END
ADDRESS DSNREXX "EXECSQL PREPARE S001 FROM :sqlQuery"
IF SQLCODE <> 0 THEN DO
   SAY 'PREPARE S001 SQLCODE = ' SQLCODE SQLERROR
      EXIT 12
END
ADDRESS DSNREXX "EXECSQL OPEN C001"
IF SQLCODE <> 0 THEN DO
   SAY 'OPEN C001 SQLCODE = ' SQLCODE
   EXIT 12
END

ADDRESS DSNREXX "EXECSQL FETCH C001 INTO :col2"
IF SQLCODE <> 0 THEN DO
   SAY 'FETCH C001 SQLCODE = ' SQLCODE
   EXIT 12
END

我怀疑这与我使用 SYSPRINT 和 SYSIN 有关。有人知道我怎样才能让它发挥作用吗？

谢谢。

编辑

所提出的问题实际上是错误的。很抱歉没有早点纠正这个问题。

我真正做的是这样的：

ADDRESS TSO "SUBCOM DSNREXX" 
IF RC THEN rcDB2 = RXSUBCOM('ADD','DSNREXX','DSNREXX') 
ADDRESS DSNREXX "CONNECT " subsys 

...然后是从 DB2 读取一小部分，然后是从 Teradata 读取的代码，然后是从 DB2 读取的更多代码。当将此更改为先从 Teradata 读取，然后再与 DB2 进行任何操作时，它就起作用了。

Answer 1

我认为这与 SYSPRINT 或 SYSIN 没有任何关系。

我认为您得到的是 TSO RC = 1，而不是 SQLCODE = 1（因为没有 1 的 SQLCODE。1

是警告，-1 是错误。您可以在 DB2 应用程序编程中查找此信息）
和 SQL Guide

打开 TRACE R 并运行它。

有一些变量（如下所示）显示有关错误/警告的信息。

22 *-* ADDRESS DSNREXX "EXECSQL OPEN C1"                                  
   >>>   "EXECSQL OPEN C1"                                                
   +++ RC(1) +++                                                          
23 *-* IF SQLCODE <> 0                                                    
28 *-* SAY 'SQLSTATE='sqlstate', SQLERRMC='sqlerrmc', SQLERRP='sqlerrp    

SQLSTATE=00000、SQLERRMC=、SQLERRP=DSN
29 - SAY 'SQLERRD='sqlerrd.1', 'sqlerrd.2', 'sqlerrd.3', 'sqlerrd.4',',
sqlerrd.5', 'sqlerrd.6
SQLERRD=0, 0, 0, -1, 0, 0
32 - SAY 'SQLWARN='sqlwarn.0', 'sqlwarn.1', 'sqlwarn.2', 'sqlwarn.3',',
sqlwarn.4'、'sqlwarn.5'、'sqlwarn.6'、'sqlwarn.7'、'、
sqlwarn.8'、'sqlwarn.9'、'sqlwarn.10
SQLWARN= , N, , , , 2, , , , ,

例如，当两者一起使用时，可能会出现内存不足的情况。