%DECPOS(numeric expression)
%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 を一緒に使用する例については、図 206を参照してください。
詳細については、サイズ変更命令または 組み込み関数を参照してください。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.