【发布时间】:2014-11-11 19:36:23
【问题描述】:
所以我学习 RPG IV 只是因为我想……而且我很难找到真正有意义的代码示例。现在我正在做书中的一个练习,我不知道如何完成.. 任何人都可以看看并给我一些关于如何做到这一点的步骤或建议吗?
这是书中的练习:
下一个是需要在练习中使用的外部描述文件:
有人可以帮忙吗?
【问题讨论】:
标签: ibm-midrange rpg
所以我学习 RPG IV 只是因为我想……而且我很难找到真正有意义的代码示例。现在我正在做书中的一个练习,我不知道如何完成.. 任何人都可以看看并给我一些关于如何做到这一点的步骤或建议吗?
这是书中的练习:
下一个是需要在练习中使用的外部描述文件:
有人可以帮忙吗?
【问题讨论】:
标签: ibm-midrange rpg
看书。我知道这些书很难理解,而且永远不会包含足够的示例。
首先检查 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
确保具备其余的基础知识。相应地命名事物。 而不是 Write 它应该是除非你的记录在 O(output) 规范中进行了内部描述
常见错误:
/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
祝你好运,总是评论和记录你的代码。
【讨论】:
/free 和 /end-free 代码。去年需要它的最后一个版本停止服务。如果您正在学习的书显示固定格式代码,请将其废弃并获取更新的内容。完全免费的格式现在在这里,不支持任何固定格式的代码,除了在抄本中,包括 O 规范。构建一个打印机文件并输出到该文件。您现在不会开始学习使用 Visual Studio 5 编程 VB。不要使用过时的技术学习 RPG IV。