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

woiny456

通常情况下,系统是默认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

insmile

操作之前需重定位，操作完恢复

woiny456

回复 2# insmile

where?  In rpg program or cl? How to get it? could you tell me the details?

coolk

可以，使用关键字指定打开！

woiny456

回复 4# coolk


    我在写RPGIV时,在F表声明时查看所有的keywords,都没有找到~~请兄台指点啦!

recmadan

在F表中使用关键字EXTMBR（成员名）
此成员名可以是变量，此时此文件要用户手动打开

成员名='你想要打开的成员名'
OPEN  PF

jianzk

在F表中使用关键字EXTMBR（成员名）
此成员名可以是变量，此时此文件要用户手动打开

成员名='你想要打开 ...
recmadan 发表于 2010-08-29 20:18

    楼上正解！！

pantierui

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)

woiny456

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

mxpy

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