Visual COBOL support of the Net Express WINDOW1 preprocessor for ACU type popup windows for character applications
The following works in Net Express 5.1:
78 note-height value 16.
78 note-width value 41.
78 no-of-chars value note-height * note-width.
01 note-window pic x(10).
01 dummy pic x.
01 note-data value all "- wallpaper ".
03 note-char pic x occurs no-of-chars.
01 input-data highlight.
03 line 4 column 6 value " Accept and Display positions ".
03 line 5 column 6 value " are relative to the top left ".
03 line 6 column 6 value " corner of the window. ".
03 pic x using dummy.
01 note-screen pic x(no-of-chars) using note-data prompt " " reverse-video.
* Put a blank window on the screen with a border and title
display window, line 2, column 38, lines note-height,
size note-width, boxed, erase, reverse
* Define a reference for this window so that it can be
* removed and the previous display restored
pop-up area is note-window
bottom right title "Press Enter to remove window"
* Fill the window with the contents of note-screen
close window note-window.
With Visual COBOL 2.1 we’ve reinstated the Windows1 pre-processor which has limited support for ACUCOBOL and RM/COBOL ACCEPT/DISPLAY functionality for popup windows in native code applications
The pre-processor does not currently support all functionality available with RM and ACU products but we will be enhancing this support to provide significant ACCEPT/DISPLAY coverage.
The example shown above will work under Visual COBOL.
If you are creating an .EXE or .DLL that uses WINDOW1 then you will have to also link to the library COBWIN2.obj by adding its name to the Project Properties page-->COBOL Link tab-->Link with objects field.