如何在cics地图中显示表格数据

时间:2012-04-24 14:59:49

标签: db2 cobol cics

我有一个包含50行的db2表。如何在我创建的cics地图中显示此数据。可能吗?如果是,如何在我的屏幕中容纳50行数据,最多24行。谢谢

3 个答案:

答案 0 :(得分:2)

您的屏幕是24行乘80列。如果您的行包含少于40列的数据,则可以创建两列显示。我假设你的CICS页面有一个页眉和一个页脚,所以你还是没有全部24行。您必须创建多个CICS页面才能显示50个DB2行。

如果您可以将DB2信息放在一个CICS字段中,则可以执行以下操作:

LINE  DFHMDF POS=(03,01),
             LENGTH=79,
             ATTRB=(ASKIP,NORM,PROT),
             OCCURS=20 

如果您需要多个CICS字段,则必须单独列出每一行。 CICS中没有组OCCURS。

IBM CICS Manual

答案 1 :(得分:1)

您必须编写自己的滚动逻辑。这个轮子已经发明了很多次,大概已经在你自己的店里完成了。搜索其他类似的交易和地图,并进行复制。有一个老笑话,关于只有一个原始的COBOL程序,所有其他程序都是从它复制的。从已编写的执行相同操作的内容开始,您的任务将变得更加容易。

请记住,您必须应对向前和向后滚动(传统的PF7和PF8键)以及表格的开头和结尾。

答案 2 :(得分:0)

如果您只想将字段转储到终端,可以执行“EXEC CICS发送文本”,并在提供分页的文本字符串中格式化数据。

但是,你说你的地图已经被限制在只有24个80字节行的Mod-2终端上。如果是这种情况,您的地图已经存在,您如何询问我们如何显示它?你已经有了50个字段的地图。填充这些字段并使用“EXEC CICS发送地图”。

也许如果你发布了你拥有的地图,或者你想要显示的数据项的大小,你可以得到更好的答案......