RPG中有没有计算周数的函数？

V01619

例如输入一个日期20140730，计算出该天的周数31.

ZZ夜夜笙歌

刚学AS400，不过我看到的内置函数里没有。
另外请问RPG中如何实现C++中像CIN那样的从键盘录入字符给变量赋值呢？

上官过客

统计周数的这个内置函数，我查了一下，没有找到，如果你要是知道了可以告诉我一下，
RPG赋值字符类型，就是movel,或者是move，

franliu

RPG 没有不过 SQL 有。

select week(CAST('09/01/2014' AS DATE)) into :my_var from dummy.

建一个只有一个记录的 dummy 文件便可。