我正在尝试使用QYSRUSRI api来检索Iseries用户配置文件中的补充组的数量。
有一个偏移指针指向包含此数据的数组的开头。格式USRI0300的规范提到这是从接收器变量的位置585开始的，但在我的实现中，子字段(suppGrpIdx(包含0，即使用于补充组的数量的子字段(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接收器有多大。我猜，由于你将数据结构定义为based，你正在将p_usrData设置为更大的存储。如果是，请给出较大存储的长度，而不是USRI0300的大小。
当我将p_usrData设置为指向32767长度的缓冲区，并将%size(缓冲区(作为第二个参数时，我得到了suppGrpIdx的722。