需要初级RPG IV帮助

时间:2014-11-11 19:36:23

标签: ibm-midrange rpg

所以我正在学习RPG IV只是因为我想...而且我很难找到真正有意义的代码示例。现在我正在书中练习,我不知道如何完成..是否有人能够看一看并给我一些步骤或建议如何做到这一点?

这是书中的练习:


Assignment


下一个是外部描述的文件,需要在练习中使用:


enter image description here


任何人都可以帮忙吗?

1 个答案:

答案 0 :(得分:0)

阅读本书。我知道这些书很难跟上,但从来没有包含足够的例子。

首先检查WUEXAMP之前的数据并查看其中的数据。这是知道您是否必须操纵任何数据并检查数据的验证。例如,您将获得包含999和负值的等级。

在您知道自己正在使用哪种数据后,请创建伪代码。这将有助于避免将来出现逻辑错误。此外,这是一个很好的习惯。

幸运的是,这是一个非常简单的报告。 声明所有变量。在你的基本逻辑中,这应该在循环中而不是

         WRITE HEADINGS;                       //Excepts Defualt Headings
         READ  LAB05LF;                        //Read File
         DOW NOT %EOF(WUEXAMP);                // Begin Loop  While not end of File of WUEXAMP
           If  *in10 = *on;                 // Over Flow Indicator = True
             Write  Headings;                  // Write Headings On Next Page 
             Eval   *in10 = *off;              // Overflow Indicator  turned off
           Endif;   
           EVAL AVGGRADE = (Exam1 + Exam2 + Exam3 + Exam4 + Exam5 ) /5;
           EVAL CLASSTOT += AVGGRADE;
           EVAL Count +=  1;
           Write Details;                       // Write record to output 
           READ WUEXAMP;                       //Read next Record
         ENDDO;       

循环之后:

          EVAL CLASSAVG = (CLASSTOT) / Count;  // Calculate Class Average
          Write GrandDTL;                   // GrandDTL a the record name with ClassAVG

确保拥有其余的基础知识。相应地命名。 如果您的记录在O(输出)规范

中内部描述,则不应该写入

常见错误:

 /FREE

 /FREE-END

' /'应放在第7栏。 free中的所有代码都不应该在第8列之前。

检查第2章是否有该书的完整程序示例。 (由Jim Buck编写的RPG IV编程) 目前还没有很多RPG程序的例子。

未来的有用链接。 http://www.jaymoseley.com/hercules/rpgtutor/rpg002.htm#FileDescription http://www.jaymoseley.com/hercules/rpgtutor/rpg011.htm

祝您好运,并始终对您的代码进行评论和记录。