问个关于D表中I型数字的问题
- D OfRcvVar Ds
- D OhOpnFilHdr
- D OhBytRtn 10i 0 Overlay( OhOpnFilHdr: 1 )
- D OhBytAvl 10i 0 Overlay( OhOpnFilHdr: *Next )
- D OhNbrFilAvl 10i 0 Overlay( OhOpnFilHdr: *Next )
- D OhOfsFilLst 10i 0 Overlay( OhOpnFilHdr: *Next )
- D OhNbrFilRtn 10i 0 Overlay( OhOpnFilHdr: *Next )
- D OhFilEntLen 10i 0 Overlay( OhOpnFilHdr: *Next )
- D OhJobNamUsd 10a Overlay( OhOpnFilHdr: *Next )
- D OhUsrNamUsd 10a Overlay( OhOpnFilHdr: *Next )
- D OhJobNbrUsd 6a Overlay( OhOpnFilHdr: *Next )
- D OhThrIdUsd 8a Overlay( OhOpnFilHdr: *Next )
- D OhFilLst 32000a
复制代码
- D LstOpnF Pr ExtPgm( 'QDMLOPNF' )
- D LfRcvVar 32767a Options( *VarSize )
- D LfRcvVarLen 10i 0 Const
- D LfRcvInfFmt 8a Const
- D LfJobId 32767a Const Options( *VarSize )
- D LfJobIdFmt 8a Const
- D LfError 32767a Options( *VarSize )
复制代码
- **
- C CallP LstOpnF( OfRcvVar
- C : %Size( OfRcvVar )
- C : 'OPNF0100'
- C : JiJobInf
- C : 'JIDF0100'
- C : ApiError
- C )
- **
复制代码D表中定义的10I是四个字节的位置吗？
是否可以改成4B??
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
我试过了，好像不行！