有没有办法从CL命令中编辑RPGLE程序而不打开RPGLE程序？

Question

我有一个rpgle程序，如下所示，该程序在日期220318中具有标签ad11，但是对于其他日期，例如220317和220323没有标签。是否有任何CL命令可以插入其他两个日期的ad11标签？或者，如果基于输入的日期作为输入参数，则可以写入任何程序以插入标签，如果位置1到4中没有标签？

显示标签的程序ad11 220318

任何建议/指导都将不胜感激。

Answer 1

CL 无法专门执行此操作，但您可以将 SQL 嵌入 CL 中，或者直接通过“STRSQL”运行 SQL。

注意：SQL 没有成员的概念，因此如果包含 RPGLE 源成员的文件有多个成员，您需要在运行脚本之前覆盖该成员。

CL 程序示例如下所示；

             PGM                                                             
                                                                         
             /* Override file name "QRPGLESRC" to "MYLIB/QRPGLESRC.SRCMBR" */
             OVRDBF     FILE(QRPGLESRC) TOFILE(MYLIB/QRPGLESRC) +          
                          MBR(SRCMBR) OVRSCOPE(*JOB)                       
                                                                         
             /* Update "MYLIB/QRPGLESRC.SRCMBR" */                           
             RUNSQL     SQL('UPDATE QRPGLESRC +                              
                                SET SRCDTA = ''AD11'' || SUBSTR(SRCDTA,5) +  
                              WHERE SRCDAT = 220408') +                      
                        COMMIT(*NONE)                                        
                                                                         
             /* Remove previous override */                                  
             DLTOVR     FILE(QRPGLESRC) LVL(*JOB)                            
                                                                         
             ENDPGM                                                                

Answer 2

由于源成员存储在文件中，因此您可以创建 HLL（RPG 或 COBOL）程序来修改源成员中的数据。