というわけで、ただやりたいという理由だけで 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
残りの基本事項を必ず確認してください。それに応じて物事に名前を付けます。Write の代わりに、レコードが O(output ) 仕様で内部的に記述されている場合を除きます。
一般的なエラー:
/FREE
と
/FREE-END
「/」は 7 列目に配置する必要があります。free 内のどのコードも、8 列目より前にあるべきではありません。
その本の完成したプログラムの例については、第 2 章を確認してください。(RPG IV のプログラミング by Jim Buck) RPG プログラムの例はあまりありません。
将来のための便利なリンク。 http://www.jaymoseley.com/hercules/rpgtutor/rpg002.htm#FileDescription http://www.jaymoseley.com/hercules/rpgtutor/rpg011.htm
頑張って、常にコードにコメントして文書化してください。