Chinaunix

标题: 请教：如何在程序中获取AS400目标源码位置 [打印本页]

作者: zyzh 时间: 2007-06-22 12:39
标题: 请教：如何在程序中获取AS400目标源码位置
如何在程序（CL/RPG）中获取程序（*PGM）编译时源代码所处的位置，谢谢！

作者: magic_007 时间: 2007-06-22 16:43
PGM       PARM(&LIB &OBJ)

DCL       VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL       VAR(&OBJ) TYPE(*CHAR) LEN(10)

DSPOBJD OBJ(&LIB/&OBJ) OBJTYPE(*ALL) +
         DETAIL(*SERVICE) OUTPUT(*OUTFILE) +
         OUTFILE(&LIB/ABC) OUTMBR(*FIRST *REPLACE)

ENDPGM

作者: magic_007 时间: 2007-06-22 16:51
然后查看(&LIB/ABC)的内容, ODSRCF是FILE,ODSRCL是LIB.

作者: zyzh 时间: 2007-06-22 17:00
谢谢！我试了，还是不行，ODSRCF, ODSRCL, ODSRCM这几个字段还是为空的

作者: magic_007 时间: 2007-06-22 17:31
不可能
ABC那个文件,不需要你编译,他会自动生成

作者: zyzh 时间: 2007-06-22 17:37
是的，ABC哪个文件是自动生成的；是不是在编译目标时要带什么参数

作者: magic_007 时间: 2007-06-22 17:40
其实你可以自己试一下
在OBJ的前面输入12
然后在输入5进去,
就可以看到SOURCE的位置了

作者: zyzh 时间: 2007-06-22 17:43
是的，在命令行是可以看到，现在问题是：我有几千个目标程序，我现在要检验它们的源代码位置，必须要用程序来命令，所以我想用程序来批量取得各个目标程序编译时源代码所在的位置

作者: magic_007 时间: 2007-06-22 17:45
正常上面的那个CL应该是好用的

作者: magic_007 时间: 2007-06-22 17:46
有MSN么

作者: zyzh 时间: 2007-06-22 17:46
本来我在CL程序中是用RTVOBJD，结果其他信息有，但就是源代码信息这几个字段是空的

作者: magic_007 时间: 2007-06-22 17:46
加我说吧,这里说话太费事了

作者: zyzh 时间: 2007-06-22 17:47
不好意思，怎么加你

作者: magic_007 时间: 2007-06-22 17:50
你把你的MSN告诉我吧

作者: magic_007 时间: 2007-06-22 17:54
下班了,哦哦

作者: zyzh 时间: 2007-06-22 17:54
有，fzrc@hotmail.com

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