Skip to main content

Is there any way to force a mutiline entry field to accept a maximum of 80 characters per line?

03 WS-PROBLEM PIC X(80) OCCURS 07. ENTRY-FIELD 3-D ID 116 COL 23 MULTILINE LINES 7 SIZE 80 CELL USE-RETURN MAX-LINES 7 MAX-TEXT 560 USING MULTIPLE WS-PROBLEM.

My current code only checks for max lines and max text, but not max text per line.

Is there any way to force a mutiline entry field to accept a maximum of 80 characters per line?

03 WS-PROBLEM PIC X(80) OCCURS 07. ENTRY-FIELD 3-D ID 116 COL 23 MULTILINE LINES 7 SIZE 80 CELL USE-RETURN MAX-LINES 7 MAX-TEXT 560 USING MULTIPLE WS-PROBLEM.

My current code only checks for max lines and max text, but not max text per line.

I did a simple display my-screen / accept my-screen based on the screen section

01 my-screen.
05 ef-1 ENTRY-FIELD 3-D ID 116 COL 23 MULTILINE LINES 7
SIZE 80 CELL USE-RETURN MAX-LINES 7 MAX-TEXT 560
USING MULTIPLE WS-PROBLEM.

I can only put in 65 characters per line before the characters go into the next line.


I did a simple display my-screen / accept my-screen based on the screen section

01 my-screen.
05 ef-1 ENTRY-FIELD 3-D ID 116 COL 23 MULTILINE LINES 7
SIZE 80 CELL USE-RETURN MAX-LINES 7 MAX-TEXT 560
USING MULTIPLE WS-PROBLEM.

I can only put in 65 characters per line before the characters go into the next line.

I added this to my program 

display standard graphical window
lines 50 size 110 user-colors.

the line accepts 79 characters before advancing


I added this to my program 

display standard graphical window
lines 50 size 110 user-colors.

the line accepts 79 characters before advancing

Thanks for the reply.

Actually, I did try this before but was hoping for a better solution. Looks like I have no choice.

As I know, this method also requires a fixed font as characters have different widths.

So how do I set a fixed font width for the entry field? I found something like this but could not get it.

https://community.microfocus.com/t5/Extend-and-AcuCOBOL-Forum/archive-Multiline-Entry-Fields-Redux/m-p/1710616


Thanks for the reply.

Actually, I did try this before but was hoping for a better solution. Looks like I have no choice.

As I know, this method also requires a fixed font as characters have different widths.

So how do I set a fixed font width for the entry field? I found something like this but could not get it.

https://community.microfocus.com/t5/Extend-and-AcuCOBOL-Forum/archive-Multiline-Entry-Fields-Redux/m-p/1710616

In your runtime configuration file set this:

DEFAULT_FONT FIXED