如何在CICS-db2-cobol程序中使用TSQ在單個映射中顯示多條記錄？

Question

我有一個包含大量數據的表。我使用Cursor從該表中提取多個記錄。但現在，我想要在單個地圖中顯示這些提取的記錄。

任何人都可以幫我一個示例代碼？

Answer 1

使用一組記錄中的一組字段定義您的地圖，然後重複設置多個記錄以適合單個物理屏幕。通常使用COBOL表重新定義爲地圖生成的副本，以便於加載重複字段。

在您的程序中，您必須編寫滾動邏輯以允許用戶在記錄列表中向前和向後滾動。通常這是通過檢查EIBAID來查看它是否是DFHPF7或DFHPF19向上滾動和DFHPF8或DFHPF20向下滾動，但這只是遵循ISPF約定，完全取決於您。

您將需要跟蹤屏幕上的哪些記錄在您的commarea或容器中。您可以通過存儲當前顯示的第一個和最後一個記錄的TSQ索引來執行此操作。