如何将PFSRC当成PF访问？

dazzling2000

如SOURCE PF:
ILESRC 下有prg1(rpgle),ar1(PRTF)
如何在另个RPGLE中访问上述两个成员的源码？？
要求能更新，删除，添加。

caomangyu

不知道 STRSEU 是否你要想要的结果

fxf_china

prg1(rpgle),ar1(PRTF)都是ILESRC的member
有一种很常见的情况，一个文件有很多member，通常读这种文件前都会用cl来ovrdbf指定读取那个member
这里也是一样，ILESRC的结构是系统预定义的，可用dspffd察看，知道每个字段名后就可以在程序中引用了
在strsql中，select * from libname/ILESRC  会看到什么？:wink:

dazzling2000

编译报错:

======> bbbbbb                                                                                 
*RNF2121 30 a      000100  Record format ILESRC in file ILESRC already defined; record         
                           format is ignored.



附源程:
FILESRC    IF   E             DISK                                             
C                                                                              
C     *LOVAL        SETLL     ILESRC
C                   READ      ILESRC
C     SRCDTA        DSPLY                                                      
C                   SETON                                        LR            
C                                                                              
C

[ 本帖最后由 dazzling2000 于 2007-9-25 21:11 编辑 ]

fxf_china

文件名和format名字相同引起的，可以将format名字改掉
在F行后面加
F            ILESRC                            KRENAMENEWNM
上面将ILESRC改名为NEWNM,后面的程序可对NEWNM操作

dazzling2000

RENAME编译通不过。