如何在 CICS-db2-cobol 程序中使用 TSQ 在单个地图中显示多个记录？

Question

我有一个 table 包含大量数据。我使用 Cursor 从 table 中获取了多条记录。但是现在，我想在一张地图中显示这些获取的记录。

任何人都可以帮我提供示例代码吗？

Answer 1

为一条记录定义一组字段，然后为适合单个物理屏幕的尽可能多的记录重复该组。为地图生成的副本通常使用 COBOL table 重新定义，以方便加载重复字段。

在您的程序中，您必须编写滚动逻辑以允许用户在记录列表中前后滚动。通常这是通过检查 EIBAID 来查看向上滚动是 DFHPF7 还是 DFHPF19 以及向下滚动是 DFHPF8 还是 DFHPF20 来完成的，但这只是遵循 ISPF约定，完全取决于您。

您需要跟踪屏幕上的哪些记录在您的逗留区或容器中。您可以通过存储当前显示的第一条和最后一条记录的 TSQ 索引来实现。