%DECPOS (小数部の桁数の取得)
%DECPOS(numeric expression)
%DECPOS は、数値変数または数値式の小数点以下の桁数を戻します。 戻り値は定数であるので、その値は定数のフォールディングに 入る場合があります。
数値式は、浮動変数または浮動式であってはなりません。
図 1. %DECPOS の例
*..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
D*Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
D p7 s 7p 3 inz (8236.567)
D s9 s 9s 5 inz (23.73442)
D result1 s 5i 0
D result2 s 5i 0
D result3 s 5i 0
/FREE
result1 = %decpos (p7); // "result1" is now 3.
result2 = %decpos (s9); // "result2" is now 5.
result3 = %decpos (p7 * s9);// "result3" is now 8.
/END-FREE
%DECPOS と %LEN を一緒に使用する例については、図 1を参照してください。