-3

相当简单的问题，这在 Cobol 中非常复杂。

我需要将屏幕打印到文件中，只需将屏幕上的任何内容保存并保存即可。保存的文件格式无关紧要，只要我从 Cobol 中获取信息即可。

对此的任何帮助都会非常感激。

4

3 回答 3

1

实际上，在 Cobol 中它一点也不复杂。

我相信 Cobol 85 标准（所有现代 Cobols 都应该遵守）有这样的ACCEPT ..... FROM SCREEN声明。

假设您有一个LINE SEQUENTIAL名为 的输出文件SCREEN-DUMP-FILE，其中包含您的文件记录，SCREEN-DUMP-REC可以使用以下代码将屏幕转储到该文件：

OPEN OUTPUT SCREEN-DUMP-FILE.
PERFORM VARYING SCREEN-LINE FROM 1 BY 1
        UNTIL SCREEN-LINE > 24
    ACCEPT SCREEN-DUMP-REC FROM SCREEN
           LINE SCREEN-LINE COL 1 SIZE 80
    WRITE SCREEN-DUMP-REC
END-PERFORM.
CLOSE SCREEN-DUMP-FILE.

现在这并不难，不是吗？

请注意，此代码假定“大型机”终端大小在您的情况下可能会有所不同。此外，大多数现代 Cobols 都有一种询问实际屏幕尺寸的方法，因此您可以相应地更改屏幕行数和行数以接受。

于 2012-11-01T04:22:42.147 回答
0

额外的！X-treme是来自 Attachmate 的用于 Windows 机器的终端仿真器。您可能需要查看该产品的文档。从这个演示视频来看，您需要做的可能很简单，只需在模拟器窗口中选择所有文本，然后选择 Microsoft Office 工具并将文本粘贴到 Word 文档中。

于 2012-10-16T15:07:08.270 回答
0

如果您使用的是 aviva 大型机模拟器，请在将您带到下一个屏幕的操作之前插入此行。

rc% = AppWin.SaveScreen("full file location with name of file and extension",2)

我正在使用这种方法将屏幕保存到 .txt 文件。选项 2 一个接一个地附加输出。希望能帮助到你。

于 2015-11-10T23:35:39.390 回答