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

Question

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

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

Answer 1

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

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

您需要在commarea或容器中跟踪屏幕上的哪些记录。您可以通过存储当前显示的第一个和最后一个记录的TSQ索引来完成此操作。