小编use*_*253的帖子

我对RPGLE了解不多。我正在尝试解决给我的这个小练习。我从来没有做过或见过使用小数的练习。我想获得 7 个值的百分比。所以，我想做如下计算。

例如在 RPGLE 中。

DTotal            S              3P 0       
DPercnt           S              2P 2       
 /Free
   Total = 589;
   Percnt = (Total/700)100;
   Dsply Percnt;
   *Inlr = *On;
 /End-Free

预期输出是84.142857143将小数位四舍五入到两位(84.14)或四位(84.1430)。

1. 我应该使用哪种数据类型Total和Percent变量？
2. 如何声明Percent变量（打包或分区）来保存两位、四位或 N 位小数？
3. 任何人都可以请输入“RPG IV”或固定格式中的声明部分和计算部分吗？

我遇到的错误和我进行的更正：

1. The end of the expression is expected.（在东南大学）

   对于上面的错误，我添加了*并解决了Percnt = (Total/700) * 100;

2. 下面是第二个错误。

   The target for a numeric operation is too small to hold the result (C G D …

   Run Code Online (Sandbox Code Playgroud)