First time working with screen sections. Used to be in a mainframe environment.
Testing a very simple program. Using Visual COBOL for Eclipse. Works within the PC environment but not in the UNIX environment.
For Windows.
┌────────────────────────────────┐
│ │
│ Empl nr: 0000 │
│ │
│ Password: │
│ │
└── Staff number and Password ───┘
For Unix, the borders are messed up.
ZDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD?
3 3
3 Empl nr: 0000 3
3 3
3 Password: 3
3 3
@DD Staff number and Password DDDY
Program is re-compiled in the UNIX environment.
Program source
$set preprocess(window1)
IDENTIFICATION DIVISION.
PROGRAM-ID. MFSCREENTEST.
AUTHOR. RP.
DATE-WRITTEN. NOV 16.
ENVIRONMENT DIVISION.
DATA DIVISION.
working-storage section.
78 note-height value 6.
78 note-width value 32.
78 no-of-chars value note-height * note-width.
01 note-window pic x(10).
01 note-data value " - - ".
03 note-char pic x occurs no-of-chars.
01 data-from-screen.
03 sc-stf-key pic 9(04).
03 sc-password pic x(10).
01 WORKAREAS.
05 WS-ACCEPT-2 PIC ZZ.
screen section.
01 input-data highlight.
03 line 3 column 6 value " Empl nr: ".
03 scr-in-stf-key line 03 col 17
pic 9999 to sc-stf-key.
03 line 5 column 6 value " Password: ".
03 scr-in-password line 05 col 17 NO-ECHO
pic x(10) to sc-password.
01 note-screen pic x(no-of-chars)
using note-data prompt " ".
procedure division.
* call "cbl_debugbreak"
* Put a blank window on the screen with a border and title
display window, line 4, column 14, lines note-height,
size note-width, boxed, erase
* Define a reference for this window so that it can be removed
* and the previous display restored
pop-up area is note-window
bottom centered title "Staff number and Password"
* Fill the window with the contents of note-screen
display note-screen
display input-data
accept scr-in-stf-key
accept scr-in-password
close window note-window.
stop run.
What must I do to get the borders to display correctly in the UNIX world? Rest of the program does work as it should. Its just the borders.
