如何在某些条件执行中将颜色设置为子文件中的特定记录？我有一个显示文件,其中已定义SFL和CTL.我可以参考DSP文件中的指示器或在RPG中使用它们来触发适当的调节.
例如:
Name Age Location
Rosell 26 Amsterdam
Smarkon 31 London
Jack 40 Chicago
Jim 22 Mauritius
我现在想要在我的子文件中只显示年龄大于30岁的记录.(年龄> 30)我想要那些以不同颜色检索的记录.
在AS400中,我如何在字段上执行算术运算(如+, - ).
Select id, sum(field1+field2) as Total from table
group by id,在德语中获取以下错误消息"[IBM] [System i Access ODBC-Treiber] [DB2füri5/ OS] SQL0104 - Token&ungültig.GültigeToken:+ - AS <IDENTIFIER>." 英语翻译类似于"[IBM] [System i Access ODBC Driver] [DB2 for i5/OS] SQL0104 - 令牌<END Instruction>无效.有效令牌:CL AS IN LOG OUT DATA
<identifier>."Select count(*) from (select distinct field1 from table where field2="abc",获取以下错误消息"[IBM] [System i Access ODBC-Treiber] [DB2füri5/ OS] SQL0104 - 令牌<ENDE DER ANWEISUNG>ungültig.Gültige令牌:AS CL IN LOG OUT DATA …---这里我们找到了我们想要在其他文件中清除的客户编号.首先,我们正在阅读客户主数据,然后在订单历史记录或发票历史记录中查看客户编号是否存在.如果不是,那么我们希望从Customer master以及其他2个文件中清除此客户.
但是在第二个文件中,如果客户编号在营销列中有"A"或"C",而且是在2007年之后,我们不希望从任何文件中清除这个.
所以我创建了代码,在将客户记录写入保存/保留文件并删除之前,它返回一个标志,是的,可以删除.
C IF PUGFIL = 'Y' AND
C ACENT# <> ACENT#_OLD
c EXSR CHKCUS_SR
c ACFLAG IFEQ 'N'
C WRITE TRCMASRR
c* delete arcmasrr
c CHKCUS_SR BEGSR
c eval ACFLAG = ' '
C ORHKEY SETLL dRCST1
C ORHKEY READE dRCST1
* If the order entity is found, write the rec into VRCSTKBI file
C DOW NOT %EOF(dRCST1)
c if BICOTC <> 'A' AND BICOTC <> 'C'
C WRITE VRCSTKRR
c EVAL ACFLAG = 'N'
c endif …我有一个包含文件的目录.存档非常大,里面有150万个pdf文件.
该目录存储在带有OS V7R1的IBM i服务器上,并且该机器是新的且速度非常快.
这些文件的名称如下:
invoice_[custno]_[year']_[invoice_number].pdf
invoice_081500_2013_7534435564.pdf
不,我尝试使用命令行使用find命令查找文件.
find . -name 'invoice_2013_*.pdf' -type f | ls -l > log.dat
命令花了很长时间,所以我中止了操作而没有结果.
如果我尝试使用较小的目录,一切正常.
后来我希望有一份工作能够在过去的24小时内运行,并且我发现这些文件运行速度太慢,我可以忘记这一点.
如何查询位于IBM AS/400系统上的IBM AS/400系统上的物理文件.
使用RPG/400进行此操作非常简单:
logical file的File Definitions但是,如何在AS/400系统上使用C++源文件来实现相同的目标呢？我没有在IBM上找到任何有用的东西https://publib.boulder.ibm.com.
提前致谢!
我想fecth行并在RPG(免费)中更新它们.使用旧式操作码我会这样做:
READE %KDS(KEY) FILE;
processRecord();
UPDATE FILE;
SQL操作码出现问题:
EXEC SQL FETCH MYCURSOR INTO :VAR;
processRecord();
????
使用EXEC SQL UPDATE FILE... SET... WHERE KEY...返回SQLCOD错误.
有特定的技术吗？
我想从rpgle程序返回字符串.
/free
return 'this is simple text';
/end-free
可以请给我代码片段.
我想将Numeric DS复制到Alpha DS.第一个想法是MOVEA,但这似乎不起作用.错误:"MOVEA的因子2或结果字段不引用数组"
D Alpha DS
D TBR1 5A
D TBR2 5A
D Num DS
D TBR1N 5 0
D TBR2N 5 0
C MOVEA Alpha Num
我正在使用sqlrgple程序将一定数量的记录插入到文件中,然后输出给用户.请参阅下面的代码片段
// Build SQL statement according to the parameters passed
if rpttype = 'O';
sqlstmt = 'Insert into fqrylibpgm/sblbrpt ' +
'(shclno, shscdt, shcmdt, shcust, ' +
'ttlonl, ttlofl, ttltvl) ' +
'Select shclno, shscdt, shcmdt, shcust, '+
'coalesce(sum(cast(((tbontm * 0.01) * tbonbr)' +
' as dec(8,2))),0), ' +
'coalesce(sum(cast(((tboftm * 0.01) * tbofbr)' +
' as dec(8,2))),0), ' +
'coalesce(sum(cast(((tbtvtm * 0.01) * tbtvbr)' +
' as dec(8,2))),0) ' +
'from r50files/sbschd '+
'left join r50modsdta/sbsctc on tbcmp = …程序A调用程序B。我正在基于程序B中的文件A创建全局临时表。
我必须打开并阅读程序A中的临时表。我在F Spec中使用EXTFILE操作码来编译程序A。
fFILEA if e disk extfile(wrk_filnam)
f usropn
/free
wrk_filnam = 'QTEMP/TEMP_TABLE'
open FILEA
/end-free
当我返回到程序A和打开文件A时，由于使用新的格式级别标识符创建了临时表，因此出现级别检查错误。
有解决方法吗？如果我可以使用CRTDUPOBJ，那就太好了。