Ibm midrange 初学者RPG IV需要帮助吗

所以我学习RPG IV只是因为我想。。。我很难找到真正有意义的代码示例。现在我正在做书中的一个练习，我不知道如何完成。。有谁能看一看，给我一些如何做的步骤或建议吗

这是本书中的练习：

---

---

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

---

---

---

有人能帮忙吗？

读这本书。我知道这些书可能很难理解，而且从来没有足够的例子

首先检查Before 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

及

“/”应放在第7列中。free中的任何代码都不应位于第8列之前

查看第2章，查看该书的完整程序示例。（吉姆·巴克的RPG IV编程） RPG程序的例子并不多

未来有用的链接。

---

祝您好运，请始终对您的代码进行注释和记录。

无需再编写

/free

和

/end free

，除非您使用的是非常旧的操作系统版本。需要它的最后一个版本去年停止使用。如果你正在学习的那本书显示了固定格式的代码，那就把它扔掉，换一本更新的。完全自由格式现在在这里，不支持任何固定格式的代码，除非在一本拷贝本中，包括O规范。生成一个打印机文件并输出到该文件。您现在不会开始学习使用Visual Studio 5编写VB。不要使用过时的技术学习RPG IV。

 /FREE-END