今天看到一RPGIV處理數(shù)據(jù)的好題，不知各位將如何解答和解釋這幾條常見的指令

fengyunzi

今天看到一RPGIV處理數(shù)據(jù)的題目，不知各位將如何解答和解釋這幾條常見的指令？

試就以下數(shù)據(jù),練習(xí)這些指令來解決這四個Question


1.先解以下7行常見容易搞混淆的取數(shù)指令的區(qū)別和各自用法？
IFEQ  XXX  ENDIF
IFEQ  XXX  ELSE  XXX  ENDIF
SETLL
READ
READE
CHAIN
DOWEQ  XXX  ENDDO




2.再解Question
1) Find the total amount of all item
2) Find the amount of item A
3) Find the total amount of item which greater than 100
4) Find the total amount of item type FR

Data
Item#        Item type        Amount
A        FR                100
B        FR                200
C        FG                700
D        PA                50


高手的你們快行動起來，說出你的解題思路和意思。
以上指令很易混淆，請用你的理解來說明。。。。


謝謝！�。�！

[ 本帖最后由 fengyunzi 于 2008-12-3 22:02 編輯 ]

fengyunzi

以下七行RPGIV常用取數(shù)指令（極易混淆和用錯的指令）的區(qū)別和各自通常用法及含義？
IFEQ  XXX  ENDIF
IFEQ  XXX  ELSE  XXX  ENDIF
SETLL
READ
READE
CHAIN
DOWEQ  XXX  ENDDO

[ 本帖最后由 fengyunzi 于 2008-11-28 11:02 編輯 ]

fengyunzi

測試下你對RPGIV 特別是total數(shù)據(jù)處理的能力。。。。。

fairyboy

KEY是?

fengyunzi

不用KEY的

這個問題，分成兩部分來解答，詳解以上問題描述

高手的你們快行動起來，說出你的解題思路和意思。
以上指令很易混淆，請用你的理解來說明。。。。


謝謝�。。�！

fengyunzi

別小看這幾個指令，平常我們天天用，覺得太簡單了，如果讓我們用術(shù)語來概括他的意思 用法 區(qū)別，那又不是很容易說出來的

fengyunzi

怎么沒有兄弟們的跟帖....
期待中


謝謝

fengyunzi

passthru  22:07:35
1) Find the total amount of all item
   mTotal = 0;
   dow not eof();
      read rd;
      mTotal = mTotal + Amount;
   enddo;
2) Find the amount of item A
     假設(shè)Item#為lf的key：
     mKey = 'A';
     mTotal =0;
     chain mKey rd;
     if found;
        mTotal = Amount;
     endif;
3) Find the total amount of item which greater than 100
    處理（一）：在lf中或query file過濾掉amount小于等于100的記錄；
    處理（二）；
   mTotal = 0;
   dow not eof();
      read rd;
      if amount <=100;
         iter;
      endif;
      mTotal = mTotal + Amount;
   enddo;
4) Find the total amount of item type FR
處理方法如題2，只是替換lf和key值的選項。

[ 本帖最后由 fengyunzi 于 2008-11-30 22:16 編輯 ]

大敵人

沒有設(shè)關(guān)鍵字的話，就建個邏輯文件，然后對邏輯文件進(jìn)行操作。否則setll chain reade read 等都不能用，

另外，setll 設(shè)文件指針，它會指向文件或者字段（如果你寫了的話）的最上層，然后順序讀下去。

我現(xiàn)在有個疑問，setll fieldname pf; reade filedname pf ;  注意，這個filedname是pf表中不存在的名字（我隨便起的），但是卻能讀到最后一條記錄，為什么？？

[ 本帖最后由 大敵人 于 2008-12-1 09:20 編輯 ]

fengyunzi

1.先解以下7行常見容易搞混淆的取數(shù)指令的區(qū)別和各自用法？

IFEQ  XXX  ENDIF條件判斷、滿足條件則執(zhí)行相關(guān)語句

IFEQ  XXX  ELSE  XXX  ENDIF條件分支判斷，滿足條件，則執(zhí)行相關(guān)語句，不滿足，則執(zhí)行另外的語句。。。。多一個ELSE會多一個不滿足條件，執(zhí)行另外程序的

SETLL 設(shè)置低界，把條件定位到鍵字相對的記錄號,大于或者等于因子1中說明的檢索自變量的下一條記錄 一般和*LOVAL連用從最初的那行數(shù)據(jù)開始讀起

Leave 操作把控制從DO組轉(zhuǎn)給ENDDO操作后的語句。它是跳出DO循環(huán)的意思，會執(zhí)行DO之后的語句，leave一般是用在用在DO、DOU、DOUxx或者DOWxx循環(huán)中，不能在DO組外部使用

READ 讀一個記錄，無比較.read無比較的意思是其前面無比較因子（變數(shù)）

READE 讀等于鍵字的記錄，有比較.reade前面會有個做比較的因子（變數(shù)，檢索自變量）


CHAIN從文件中隨機(jī)檢索,chain與read雖同樣是讀檔案找要檢索的數(shù)據(jù)，但是chain用指標(biāo)讀時只會找一行（指標(biāo)的進(jìn)度:從什么地方開始讀這個檔案），read可找多行，如Q2的問題只需讀一行數(shù)據(jù)時就可以用chain。如想確認(rèn)到底是用read讀還是用chain的話可先確定指標(biāo)是從哪一行開始讀，chain只會讀一行，read可以讀很多行

DOWEQ  XXX  ENDDO 執(zhí)行一組滿足給定條件的操作（看條件跑多次），和read相比，他可跑多次，read只能讀一次

[ 本帖最后由 fengyunzi 于 2008-12-3 21:55 編輯 ]