RPGLE 文件声明

Question

我需要编写一个程序，从库 1 读取文件并将其写入另一个库中的另一个文件。问题是两个文件具有相同的名称和格式。 我已尝试重命名格式，但程序仍然认为这两个文件相同，并且无法识别第二个文件，该文件位于另一个库中。

请问您有什么想法吗？ 非常感谢您的帮助

Answer 1

自由格式

dcl-f MYFILE usage(*input) extfile('MYLIB/MYFILE');

固定格式

FMYFILE    IF   E           K DISK    extfile('MYLIB/MYFILE')

请参阅 EXTDESC(external-filename) 关键字文档。

Answer 2

假设操作系统版本受支持..

您需要使用 EXTNAME/EXTDESC

dcl-f myfile1 extdesc('LIB1/MYFILE') extfile(*EXTDESC) rename(MYFILEA:FORMAT1);
dcl-f myfile2 extdesc('LIB1/MYFILE') extfile(*EXTDESC) rename(MYFILEA:FORMAT2);