Ibm midrange as/400 rpg/自由d-spec到dcl-s spec，带指针

在RGP中的AS/400上，我有以下声明

D数据属性s 16383基于（p_属性）

我需要把它翻译成/免费版

基于dcl-s数据属性ucs2（16383）（p_attr）
我有这句话，但编者不喜欢based关键字“based”

请让我知道我做错了什么。

对我来说很好

您收到了什么错误消息

---

你确定你有免费格式D规格所需的PTF吗？

编辑你的问题。告诉我们编译器的版本-它就在清单上。您需要在v7.1或更高版本上使用适当的编译器PTF才能支持完全免费的RPG。还要告诉我们确切的错误消息，如“RNF1234基于关键字的不允许”