使用 SQL,是否可以创建与它所基于的原始文件 (PF) 具有相同格式级别标识符的全局临时文件 table?

Using SQL, is it possible to create global temporary table with same format level identifier as original file(PF) it is based on?

程序A调用程序B。 我正在根据 Prog B 中的文件 A 创建全局临时文件 table。

我必须打开并读取程序 A 中的临时 table。我已经使用 F Spec 中的 EXTFILE 操作码来编译程序 A。

fFILEA   if   e             disk    extfile(wrk_filnam)
f                                      usropn

/free

wrk_filnam = 'QTEMP/TEMP_TABLE'

open FILEA

/end-free

当我 return 到 Prog A 并打开文件 A 时,我收到级别检查错误,因为临时 table 是使用新的格式级别标识符创建的。

有解决办法吗?如果我可以使用 CRTDUPOBJ,那就太好了。

CRTDUPOBJ 应该创建一个与原始文件具有相同格式级别标识符的文件。

只要确保 srcfmt 是与原始记录格式名称相同。

您是否使用正确的文件进行编译以获得正确的关卡标识符?您可以使用 DSPPGMREF 找出程序对每个文件期望的级别标识符。