有没有一种方法可以使用SQL获取RPG程序的内容？

Question

因此，我有一个查询来列出我们的RPG程序：

SELECT OBJNAME
FROM
    (SELECT OBJNAME AS SCHEMA FROM TABLE (QSYS2.OBJECT_STATISTICS('*ALLSIMPLE', 'LIB')) S) AS SCHEMAS
    ,LATERAL (SELECT * FROM TABLE(QSYS2.OBJECT_STATISTICS(SCHEMAS.SCHEMA, 'PGM')) X) AS PROGRAMS
    LEFT JOIN QSYS2.PROCEDURES
        ON QSYS2.PROCEDURES.PROCNAME = PROGRAMS.OBJNAME
        AND QSYS2.PROCEDURES.PROCSCHEMA = PROGRAMS.OBJLONGSCHEMA
WHERE
    PROCNAME IS NULL
    AND SCHEMAS.SCHEMA = 'MYLIB'
;

现在，给定RPG程序的名称，是否有方法通过SQL获取RPG程序的内容？

(或者，如果SQL失败，还有其他方法从C#应用程序中获取内容吗？)

Answer 1

取决于你对“内容”的定义。

在v7.3和更多版本v7.4中，IBM为程序信息、模块信息等添加了一些服务。服务(SQL)

但如果你想的是“内容”，就像源列表中的一样.

然后您就需要用DBGVIEW编译程序(*LIST*COPY*COPY*ALL)，然后使用调试器API检索源代码.