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

Question

我有一个包含大量数据的表。我使用光标从该表中获取了多条记录。但现在，我想在一张地图中显示那些获取的记录。

谁能帮我提供一个示例代码？

Answer 1

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

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

您需要跟踪屏幕上在您的 commarea 或容器中的哪些记录。您可以通过存储当前显示的第一条和最后一条记录的 TSQ 索引来做到这一点。