rpg里怎么使用"%"(函数)

liangtongrui

RT
我想在RPG里使用%DECPOS这个函数~

fxf_china

%DECPOS(numeric expression)
%DECPOS returns the number of decimal positions of the numeric variable or
expression. The value returned is a constant, and so may participate in constant
folding.
The numeric expression must not be a float variable or expression.
See Figure 196 on page 478 for an example of %DECPOS with %LEN.
*..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


COPY FROM "ILE RPG Reference"

liangtongrui

这好像是在RPGLE吧，这个例子我也看到过
我想问得是在RPG里！
谢谢

fxf_china

RPGIII 不支持这种%内置函数，但好像可以用scan吧