AS/400 QSYRUSRI API参数

我试图使用QYSRUSRI api检索Iseries用户配置文件中的补充组数

有一个偏移指针指向保存此数据的数组的开头。格式USRI0300的规范提到这是从接收器变量的位置585开始的，但在我的实现中，子字段（suppGrpIdx）包含零，即使补充组数（suppGrp）的子字段包含6，这对于我正在分析的配置文件是正确的

有关接收数据的我的DS规范，请参见下文

你知道我错过了什么吗

D USRI0300        DS                  based(p_usrData) qualified
D   name                        10a   overlay(USRI0300:9)      
D   prevSign                     6a   overlay(USRI0300:20)     
D   signTries                   10i 0 overlay(USRI0300:33)     
D   status                      10a   overlay(USRI0300:37)     
D   changed                      8a   overlay(USRI0300:47)     
D   expires                      8a   overlay(USRI0300:61)     
D   special                     15a   overlay(USRI0300:84)     
D   groupprf                    10a   overlay(USRI0300:99)     
D   owner                       10a   overlay(USRI0300:109)    
D   authority                   10a   overlay(USRI0300:119)    
D   initmenu                    20a   overlay(USRI0300:149)    
D   initpgm                     20a   overlay(USRI0300:169)    
D   jobd                        20a   overlay(USRI0300:290)    
D   text                        50a   overlay(USRI0300:199)    
D   suppGrpIdx                  10i 0 overlay(USRI0300:585)    
D   suppGrp                     10i 0 overlay(USRI0300:589)

这是我的原型：-

D QSYRUSRI        PR                  ExtPgm('QSYRUSRI')
D   RcvVar                   32767a   options(*varsize) 
D   RcvVarLen                   10i 0 const             
D   Format                       8a   const             
D   UsrPrf                      10a   const             
D   ErrCode                  32767a   options(*varsize)

---

我尝试了你的代码，我把%SIZE（USRI00300）作为第二个参数，suppGrpIdx也得到了零

正如Charles和Mark Sanderson所暗示的，您必须使接收器足够大，以提供所有信息，并告诉API接收器有多大。我猜，既然您将数据结构定义为基于，那么您正在将p_usrData设置为一些更大的存储。如果是，请给出较大存储器的长度，而不是USRI0300的大小

---

当我将p_usrData设置为指向32767长度的缓冲区，并将%size（buffer）作为第二个参数时，我得到了722作为suppGrpIdx。

显示调用API的代码，如果使用变量，加载传递给RcvVarLenYou的值，那么USRI0300数据结构的大小就是问题所在。实际上，即使您使用标准QSYSINC include，仍然需要增加rcvvarlen的大小。