时间戳

首页 > 解决方案 > DLCOBJ 不发布文件

rpgle - DLCOBJ 不发布文件

问题描述

也许有人可以提供帮助 - 我有一个 CL 程序，我在其中对文件执行 ALCOBJ，然后调用 RPG 程序，然后在 CL DLCOBJ 中执行。该文件未发布。谢谢

这是一个pf文件，在CL程序中我对文件执行ALCOBJ，清理文件，调用我在SQL中写入文件的RPG程序（没有打开和关闭文件），它以*INLR结尾。没有 OVR。

CL：

ALCOBJ OBJ((LIB/FILE *FILE *EXCL)) SCOPE(*JOB) 
CALL PGM(PROGRAM) 
DLCOBJ OBJ((FILE *FILE *EXCL))

角色扮演游戏：

DCL-F File Template; 
DCL-DS x Likerec(File); 

 . . .

Exec sql insert into File values(:x); 
ExSr $SendFileExcel;

*INLR = *ON; 
Return;

标签： rpgle

解决方案

这是一个pf文件，在CL程序中我对文件执行ALCOBJ，清理文件，调用我在SQL中写入文件的RPG程序（没有打开和关闭文件），它以*INLR结尾。没有 OVR。CL: ALCOBJ OBJ((LIB/FILE *FILE *EXCL)) SCOPE(*JOB) CALL PGM(PROGRAM) DLCOBJ OBJ((FILE *FILE *EXCL))

角色扮演游戏：

DCL-F 文件模板；DCL-DS x Likerec（文件）；. . . 执行 sql 插入文件值（：x）；ExSr $SendFileExcel;

*INLR = *开；返回;

推荐阅读