我需要在CL程序中显式使用当前库名.
CHGVAR &LIB *CURLIB
Run Code Online (Sandbox Code Playgroud)
不起作用(在此行&lib ='*curlib'之后).这应该很简单 - 任何想法?
我试图找出集成项目中发生了什么.我们无法在最后得到正确的编码.
立陶宛文件已导入as400.在那里,文本存储在编码EBCDIC中.将数据导出到ANSI文件,然后读取为windows-1257.ASCII字符工作正常,一些立陶宛语可以,但其余的看起来像垃圾,如〜,和].
管道上的示例字符串
启动文件
Tuskulënö
AS400
Tuskulënö
EAA9A9596
34224335A
导出文件(转换为windows-1257后)
Tuskulėnö
导出文件
Tuskulėnų的预期结果
有任何想法吗?
问候,卡尔
我有一个存储过程尝试读取未提交的数据,尽管指定隔离级别为Read committed(*CS).下面是我的存储过程.
CREATE PROCEDURE SP_TEST_DATA_GET ( IN P_PROCESSNM VARCHAR(17) ,
IN P_Status char(1))
RESULT SETS 1
LANGUAGE SQL
SET OPTION COMMIT=*CS
P1 : BEGIN
DECLARE CURSOR1 CURSOR WITH RETURN FOR
SELECT DATA
FROM IAS_TEST_DATA
WHERE ( PROCESSNM IS NULL OR PROCESSNM = P_PROCESSNM )
AND Status=P_Status ;
OPEN CURSOR1 ;
END P1``
Run Code Online (Sandbox Code Playgroud)
我正在使用Db2 v6 iseries.
如何避免读取未提交的数据,似乎指定存储过程中的隔离级别不起作用.
请指教.
DB2 AS400和RPG
请以简单的方式解释关系,因为在做了一些研究后我很困惑
到目前为止,我理解DB2是一种用RPG编程语言编写的AS400系统数据库.
它是否正确?
我在VS2012中设置了2个服务器连接,一个DEV和PROD.这两个连接是DB2/AS400.是否有简单的方法从DEV查询,然后运行INSERT到PROD?
我知道我可以创建一个程序来查询DEV端,将结果存储在DataGrid或ListView控件中,然后循环并插入到PROD中,但我想知道是否有一种简单的方法可以通过SQL本身来做到这一点?
我编写了一个C#控制台应用程序,用于将大量小型XML文件(大约80000个文件,每个大约300KB,总大小约3GB被传输)从AS400计算机上的共享目录复制到Windows机器上的共享目录.
这两台机器在同一个局域网上,但需要花费数小时才能进行复制.我需要遍历文件,因为我需要更新数据库中的表,我知道这可能是瓶颈,但不包括SQL更新; 是否有更快的方式来传输这些文件?
public void CopyFiles()
{
DirectoryInfo IFS = new DirectoryInfo(@"\\AS400Machine\ShareFolder\");
string NewPath = @"\\WindowsMachine\ShareFolder\";
Directory.CreateDirectory(NewPath);
foreach (FileInfo xmlFile in IFS.GetFiles())
{
var newFullPath = string.Format(@"{0}\{1}", NewPath, xmlFile.Name);
// SQL Update
// Copy File
xmlFile.CopyTo(newFullPath, true);
}
}
Run Code Online (Sandbox Code Playgroud) 根据Paul Tuohy的风格指南,以及其他我以前读过的资料,在创建ILE RPG程序时应该避免使用默认的激活组QILE.然而,谷歌搜索这个主题我似乎无法找出原因.
根据这个pdf演示文稿, QILE经常被系统使用,这可能是为什么应该避免它?
这里提到QILE是激活组的不良选择但没有给出理由.
以下代码有问题: -
C eval aaCHNO=%ucs2('0000000000')
C** move w_Chano aaCHNO
C Evalr aaCHNO= %ucs2(%editc(w_Chano:'X'))
Run Code Online (Sandbox Code Playgroud)
定义:
AACHNO Char(10) CCSID(1200)
W_CHANO Packed(6,0)
Run Code Online (Sandbox Code Playgroud)
在AACHNO期待: - 0000123456但得到'bbbb123456'其中b =空白为什么?
我如何得到我想要的结果?欢呼,杰姆鲁格
我正在尝试编写一个单元测试来读取消息文件(对于node-jt400,它将open-jt400包装到javascript中.)
我想知道是否有可能在任何IBM i计算机上使用的消息文件(MSGF)(假设在连接时为每个用户创建的临时MSGF,或者在我使用的机器上的QCBLMSGE哪个MSGF)COBOL RUN TIME MESSAGE FILE).
我没有实现创建或删除消息文件,否则我会创建一个单元测试所有这些情况,而不是要求它.
提前致谢.
我正在修改这个非常关键的RPGLE程序,其中的更改涉及向其添加新的入口参数.
*entry plist
parm ecorp corp
parm edivi divi
parm eplvl parent lv
parm ewrsc wc rscd
parm eplnt plnt
parm eclvl child lv
parm emord ord
parm easst asst
parm emrwk mrwk#
parm eseqn seq #
parm easeq alt seq #
parm epprd alt seq #
parm eotst alt seq #
parm ewpqt alt seq #
parm ecmpc alt seq #
parm ewurs alt seq #
parm emurs alt seq #
parm epcdt alt seq #
parm E_Optn option …Run Code Online (Sandbox Code Playgroud)