Chinaunix

标题: 如何将PFSRC当成PF访问？ [打印本页]

作者: dazzling2000 时间: 2007-09-24 20:45
标题: 如何将PFSRC当成PF访问？
如SOURCE PF:
ILESRC 下有prg1(rpgle),ar1(PRTF)
如何在另个RPGLE中访问上述两个成员的源码？？
要求能更新，删除，添加。

作者: caomangyu 时间: 2007-09-24 21:02
不知道 STRSEU 是否你要想要的结果

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

作者: dazzling2000 时间: 2007-09-25 21:06
编译报错:

======> 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 时间: 2007-09-26 08:07
文件名和format名字相同引起的，可以将format名字改掉
在F行后面加
F ILESRC KRENAMENEWNM
上面将ILESRC改名为NEWNM,后面的程序可对NEWNM操作

作者: dazzling2000 时间: 2007-10-04 22:25
RENAME编译通不过。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)