能在RPGLE中对一个pf指定menber进行update,write操作吗?

发布于 2022-09-03 18:12:06 字数 2538 浏览 17 评论 9

本帖最后由 woiny456 于 2010-09-12 00:32 编辑

通常情况下,系统是默认PF指向第一个MEMBER的,但是对于多个MEMBER的PF文件来说,
在要求RPGLE程序中调用指定MENBER的时候,应该怎么做呢?
是不是必须将RPGLE程序嵌套在CL程序中使用OVRDBF来指定所要操作的MEMBER呢?

补充:
通过WRKQRY进行选择FILE与MEMBER的时候,通常一个FILE只对应一个MENBER(默认为*FIRST).
如果我想在这个FILE下面创建多个MEMBER,该如何实现呢?

                        Specify File Selections

Type choices, press Enter.  Press F9 to specify an additional
file selection.

File . . . . . . . . . P01          Name, F4 for list
   Library  . . . . . .    DONG       Name, *LIBL, F4 for list
Member . . . . . . . . *FIRST       Name, *FIRST, F4 for list
Format . . . . . . . . P01R          Name, *FIRST, F4 for list

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

撩动你心 2022-09-11 03:17:14

不明白为什么要这样用，我一般是在CL中动态建立Member,然后OVRDBF来指定所要操作的Member,使用完后再remove,在使用Work File生成报表时经常用到

回复收藏 0

萌︼了一个春 2022-09-11 01:30:32

谢谢各位的帮助~~~在下已经明白.

回复收藏 0

奢望 2022-09-11 01:27:55

本帖最后由 pantierui 于 2010-09-11 20:55 编辑

0007.00 HDATFMT(*YMD) DATEDIT(*YMD) TIMFMT(*HMS)
0008.00 H**********************************************************************
0010.00 FCUSTOMER  IF E          DISK EXTFILE(FILNAM) EXTMBR(MBRNAM)
0011.00 F                                  USROPN
0012.00 D********************************************************************
0013.00 D**       D A T A S T R U C T U R E                            *
0014.00 D********************************************************************
0015.00 DFILNAM          S          10A
0016.00 DMBRNAM          S          10A
0070.00 C*
0071.00 C                EVAL    FILNAM = 'CUSTOMER'
0072.00 C                EVAL    MBRNAM = 'CUSTA'
0073.00 C*
0074.00 C                OPEN    CUSTOMER
0075.00 C                READ    CUSTOMER                            90
0076.00 C                DOW    *IN90 = *OFF
0077.00 C    CUSTID       DSPLY
0078.00 C    CUSTNAME    DSPLY
0079.00 C                READ    CUSTOMER                            90
0082.00 C                ENDDO
0083.00 C                CLOSE    CUSTOMER
0084.00 C*
0085.00 C                SETON                                     LR
0086.00 C                RETURN

例子中用到的DB:
  CUSTOMER:
0008.00    A       R CUSTR
0009.00    A*
0010.00    A          CUSTID       4A
0011.00    A          CUSTNAME    20O
0012.00    A          CUSTADD    50O
0013.00    A          CUSTCITY    20O
0014.00    A          CUSTZIP       6A
0015.00    A*
0016.00    A       K CUSTID
编译DB:
CRTPF FILE(LIB/CUSTOMER) SRCFILE(LIB/QDDSSRC) SRCMBR(CUSTOMER) MBR(
*NONE) MAXMBRS(*NOMAX)
添加MBR:
ADDPFM FILE(LIB/CUSTOMER) MBR(CUSTA)
ADDPFM FILE(LIB/CUSTOMER) MBR(CUSTB)
ADDPFM FILE(LIB/CUSTOMER) MBR(CUSTC)