RPGIV 编程问题百解（4）-引用外部 DS结构

RPGIV 编程问题百解（4）-引用外部 DS结构

 

问题：

  程序代码：

 

  D FetchDS       e ds                  ExtName(EDP900:*INPUT)

      ...

      Chain key EDP900 FetchDS;

 

   这样定程序代码没有问题。然而，在接下去的处理中，如果用嵌入式SQL语句引用FetchDS，如

 

      Exec Sql Fetch next from SQLCsr into :FetchDS;

 

   就会出错。要么 SQL 预编译会报错误信息：FETCHDS没有定义，或不可使用。要么，去掉*input，预编译可以通过，但是，不能用chain ds。

 

修正源代码错误：

 

  把原来定义的： 

 

    D FetchDS       e ds       ExtName(EDP900:*INPUT)

 

  改为：

 

    D FetchDS       e ds       ExtName(Edp900) Qualified

 

  因为，引用外部的ds结构，只能用qualified 键值。（参见本blog中《QUALIFIED DS解释》）