Cobol Printscreen to file

Question

Rather simple question, that is very complicated in Cobol.

I need to print the screen to a file, just take whatever is on the screen and save it. Fileformat of the save is irrelevant, as long as I get the information out of Cobol.

Any help with this would be very much appriciated.

Answer 1

EXTRA! X-treme is a terminal emulator from Attachmate for Windows machines. You may want to check the documentation for that product. Judging from this demonstration video, what you need to do may be as simple as selecting all the text in the emulator window, then choosing the Microsoft Office tool and pasting the text into a Word document.

Answer 2

If you are using aviva mainframe emulator, insert this line just before action that takes you to next screen.

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

I am using this method to save screen to a .txt file. Option 2 appends output one after another. Hope it helps.

Answer 3

Actually, it is not complicated at all in Cobol.

I believe that the Cobol 85 standard (which all modern Cobols should adhere to) has the ACCEPT ..... FROM SCREEN statement.

Assuming you have a LINE SEQUENTIAL output file called, say, SCREEN-DUMP-FILE, with a file record of SCREEN-DUMP-REC you could dump the screen to this file using the following piece of code:

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.

Now that wasn't hard, was it?

Note that this code assumes a 'mainframe' terminal sizing which may be different in your case. Besides, most modern Cobols have a way of interrogating the actual screen size, so you could change the number of screen lines and the size of line to accept accordingly.