标签: ibm-midrange

如何在CL程序中访问当前库的名称?

我需要在CL程序中显式使用当前库名.

CHGVAR &LIB *CURLIB
Run Code Online (Sandbox Code Playgroud)

不起作用(在此行&lib ='*curlib'之后).这应该很简单 - 任何想法?

control-language ibm-midrange

1
推荐指数
1
解决办法
585
查看次数

导出文件的编码问题

我试图找出集成项目中发生了什么.我们无法在最后得到正确的编码.

立陶宛文件已导入as400.在那里,文本存储在编码EBCDIC中.将数据导出到ANSI文件,然后读取为windows-1257.ASCII字符工作正常,一些立陶宛语可以,但其余的看起来像垃圾,如〜,和].

管道上的示例字符串

启动文件
Tuskulënö

AS400
Tuskulënö
EAA9A9596
34224335A

导出文件(转换为windows-1257后)
Tuskulėnö

导出文件
Tuskulėnų的预期结果

有任何想法吗?

问候,卡尔

java encoding ibm-midrange

1
推荐指数
1
解决办法
331
查看次数

尽管指定了读取提交的隔离级别,但存储过程会尝试读取未提交的数据

我有一个存储过程尝试读取未提交的数据,尽管指定隔离级别为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 stored-procedures db2-400 ibm-midrange

1
推荐指数
1
解决办法
874
查看次数

DB2 AS400和RPG请解释关系

DB2 AS400和RPG

请以简单的方式解释关系,因为在做了一些研究后我很困惑

到目前为止,我理解DB2是一种用RPG编程语言编写的AS400系统数据库.

它是否正确?

db2 rpg ibm-midrange

1
推荐指数
1
解决办法
853
查看次数

跨多个服务器查询的简单方法?

我在VS2012中设置了2个服务器连接,一个DEV和PROD.这两个连接是DB2/AS400.是否有简单的方法从DEV查询,然后运行INSERT到PROD?

我知道我可以创建一个程序来查询DEV端,将结果存储在DataGrid或ListView控件中,然后循环并插入到PROD中,但我想知道是否有一种简单的方法可以通过SQL本身来做到这一点?

sql database db2 ibm-midrange

1
推荐指数
1
解决办法
75
查看次数

C#通过网络传输大量小文件

我编写了一个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)

c# file-transfer ibm-midrange

1
推荐指数
1
解决办法
598
查看次数

在创建ILE RPG程序时,为什么要避免使用QILE的默认激活组名称

根据Paul Tuohy的风格指南,以及其他我以前读过的资料,在创建ILE RPG程序时应该避免使用默认的激活组QILE.然而,谷歌搜索这个主题我似乎无法找出原因.

根据这个pdf演示文稿, QILE经常被系统使用,这可能是为什么应该避免它?

这里提到QILE是激活组的不良选择但没有给出理由.

rpgle ibm-midrange

1
推荐指数
1
解决办法
269
查看次数

Rpgle双字节问题

以下代码有问题: -

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 =空白为什么?

我如何得到我想要的结果?欢呼,杰姆鲁格

rpgle ibm-midrange

1
推荐指数
1
解决办法
97
查看次数

是否有保证在每个IBM i OS上都有的消息文件?

我正在尝试编写一个单元测试来读取消息文件(对于node-jt400,它将open-jt400包装到javascript中.)

我想知道是否有可能在任何IBM i计算机上使用的消息文件(MSGF)(假设在连接时为每个用户创建的临时MSGF,或者在我使用的机器上的QCBLMSGE哪个MSGF)COBOL RUN TIME MESSAGE FILE).

我没有实现创建或删除消息文件,否则我会创建一个单元测试所有这些情况,而不是要求它.

提前致谢.

jt400 ibm-midrange

1
推荐指数
1
解决办法
85
查看次数

在RPGLE程序中添加新的条目参数

我正在修改这个非常关键的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)

rpgle ibm-midrange

1
推荐指数
1
解决办法
258
查看次数