标签: rational-developer-for-i

在RDi中，

• 右键点击要调试的程序，
• 选择“调试或代码覆盖率”
• 然后“设置服务入口点”

然后在另一个会话中从命令行启动程序。

RDi确认“调试”透视开关。但是，我没有选择使用更新生产文件= *是开始调试的选项，所以我收到了DBGP0003E消息。

通过作业日志检查的根本原因似乎是：

UPDPROD（* NO）时无法打开成员myfile

在RDi中，我希望重构一些RPG代码，然后右键单击字段的固定定义，然后“将选择转换为自由格式”。您是否希望此操作将字段定义转换为自由格式定义。我收到“转换完成”消息，但是所选代码没有任何反应。

尝试搜索RDi帮助此操作，但找不到任何可以提供明确答案的内容。谷歌打开了这个和这个。谁知道您可以使用RPG IV书来做到这一点。

因此，假设表 ##TAB 有一列 #VALUE，其中包含“SDM”和“LB”作为条目。列大小为 12 个字符。我想使用固定格式 RPG 查询表，并稍后在 IF 条件下进行比较。逻辑很简单，但我不确定语法。

如果它是自由格式，我可以简单地将记录放入游标中，在循环中获取数据，然后在获得匹配的记录时离开。但是，我不确定我们是否可以使用固定格式的 SQL，否则我将不得不做一个链（仍然不知道语法）。

 exec sql                                      
    Declare C1 cursor for                      
      Select #VALUE from ##TAB;         
                                                
  exec sql                                      
    Open C1;                                    
                                                
  Dou sqlcod <> 0;                              
  exec sql                                      
    Fetch C1 INTO :valueRes;                      
                           
    If (valueRes <> userVal); // userVal is what we get from user     
      Leave; //or set some flag to 0 to indicate               
    Endif;                
         
  Enddo;                  
                           
  exec sql                
    Close C1; 

或者我们可以通过子例程来完成，并返回 true/false 或 1/0 来指示是否找到记录。

在发布答案时，请同时包含变量声明。