问个关于D表中I型数字的问题

╰⊙--⊙╯

1.      D OfRcvVar        Ds
   
2.      D  OhOpnFilHdr
   
3.      D   OhBytRtn                    10i 0 Overlay( OhOpnFilHdr: 1 )
   
4.      D   OhBytAvl                    10i 0 Overlay( OhOpnFilHdr: *Next )
   
5.      D   OhNbrFilAvl                 10i 0 Overlay( OhOpnFilHdr: *Next )
   
6.      D   OhOfsFilLst                 10i 0 Overlay( OhOpnFilHdr: *Next )
   
7.      D   OhNbrFilRtn                 10i 0 Overlay( OhOpnFilHdr: *Next )
   
8.      D   OhFilEntLen                 10i 0 Overlay( OhOpnFilHdr: *Next )
   
9.      D   OhJobNamUsd                 10a   Overlay( OhOpnFilHdr: *Next )
   
10.      D   OhUsrNamUsd                 10a   Overlay( OhOpnFilHdr: *Next )
    
11.      D   OhJobNbrUsd                  6a   Overlay( OhOpnFilHdr: *Next )
    
12.      D   OhThrIdUsd                   8a   Overlay( OhOpnFilHdr: *Next )
    
13.      D  OhFilLst                  32000a

复制代码

1.      D LstOpnF         Pr                  ExtPgm( 'QDMLOPNF' )
   
2.      D  LfRcvVar                  32767a          Options( *VarSize )
   
3.      D  LfRcvVarLen                  10i 0 Const
   
4.      D  LfRcvInfFmt                   8a   Const
   
5.      D  LfJobId                   32767a   Const  Options( *VarSize )
   
6.      D  LfJobIdFmt                    8a   Const
   
7.      D  LfError                   32767a          Options( *VarSize )

复制代码

1.      **
   
2.      C                   CallP     LstOpnF( OfRcvVar
   
3.      C                                    : %Size( OfRcvVar )
   
4.      C                                    : 'OPNF0100'
   
5.      C                                    : JiJobInf
   
6.      C                                    : 'JIDF0100'
   
7.      C                                    : ApiError
   
8.      C                                    )
   
9.      **

复制代码

D表中定义的10I是四个字节的位置吗？

是否可以改成4B??

╰⊙--⊙╯

我试过了，好像不行！