问题描述
我正在尝试使用QYSRUSRI api来检索Iseries用户配置文件中的补充组数。
有一个指向存储此数据的数组开头的偏移量指针。格式USRI0300的规范提到这是从接收器变量的位置585开始的，但是在我的实现中，即使补充组数（suppGrp）的子字段包含6，子字段（suppGrpIdx）仍为零，这对于配置文件I是正确的正在分析。
有关接收数据的我的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 for suppGrpIdx。