打印AFP的动态表单

Question

我试图将AFP打印到sysout，但JCL不知道(也不知道) FORMS参数。我目前的解决方案是创建动态JCL并将其转到INTRDR，但是这是一个弱的解决方案，因为作业将不受我们的调度程序的控制。因此，夜间操作人员将不注意到abend或其他问题.

我开始编造一种通过COBOL程序打印AFP的方法。我使用BPXWDYN动态创建SYSOUT，允许我任意设置FORMS参数。但是下一步是把法新社扔给那个DD。

我想我可以从我的COBOL程序中动态调用IEBGENER，但这会得到一个S0C4。

我可以在COBOL程序中将AFP记录从一个DD移动到另一个DD，但这限制了我的一个LRECL.在整个系统中，我对AFP有许多不同的LRECL定义，COBOL 必须在编译时知道LRECL。

有什么想法吗？是否可以动态调用IEBGENER而不获取S0C4？还有其他我没想过的想法吗？

提前谢谢..。

Answer 1

你想过编写一个小型汇编程序吗？您可以在BPXWDYN调用中指定LRECL，DCB不需要指定LRECL；它将在开放时从DCB参数获得LRECL。一个模拟IEBGENER的程序是相当简单的。

或者，查看使用FIELDS=COPY参数调用排序。排序也不需要LRECL。或者写一个REXX脚本。

有很多方法可以做到这一点；您只需查看COBOL框之外的内容即可。

Answer 2

您的问题并不十分清楚，但我想知道您是否应该考虑使用名为APKACIF的ACIF实用程序，而不是IEBGENR。该实用工具将合并您的数据并将AFP FORMDEF、PAGEDEF对象解析为数据集或打印流。