Limitation with AT ?

[Virgani Dhirgac]

Gurus,

Try this:

define variable acharacter as character extent 6 format "X(100)" initial "".
for each check-reg-tr
no-lock
:
display acharacter[1] at 1 format "X(100)"
acharacter[2] at 101 format "X(100)"
acharacter[3] at 201 format "X(100)"
acharacter[4] at 301 format "X(100)"
acharacter[5] at 401 format "X(100)"
acharacter[6] at 501 format "X(100)"
with frame fcharacter width 600.
end.

and got message "**Cannot fit FILL-IN acharacter[4] with AT within FRAME fcharacter.(4027)
Ignoring position info for AT (2054)
**Cannot fit FILL-IN acharacter[5] with AT within FRAME fcharacter.
(4027)
Ignoring position info for AT (2054)

Any clue ?

Warmest Regards,
Virgani D

 

[sphipp]

Progress seems to have a problem with frames wider than 350 or so (I can't remember the exact width).

If this is for a report then you might have to use PUT UNFORMATTED, but you would then have to control the headings yourself rather then letting Progress deal with them.

One way is to define a string and fill it with the individual values.

DEFINE VARIABLE cline AS CHARACTER  NO-UNDO.
DEFINE VARIABLE acharacter AS CHARACTER  NO-UNDO EXTENT 6.
DEFINE VARIABLE iloop AS INTEGER    NO-UNDO.
DO iloop = 1 TO EXTENT (acharacter):
    ASSIGN acharacter[iloop] = FILL (STRING (iloop),100).
END.
ASSIGN SUBSTRING (cline,1) = acharacter[1]
       SUBSTRING (cline,102) = acharacter[2]
       SUBSTRING (cline,203) = acharacter[3]
       SUBSTRING (cline,304) = acharacter[4]
       SUBSTRING (cline,405) = acharacter[5]
       SUBSTRING (cline,506) = acharacter[6].

OUTPUT TO c:\acharacter.txt.
PUT UNFORMATTED cline SKIP.
OUTPUT CLOSE.

 

[Virgani Dhirgac]

ummmmm

It's seems the problems with "window-widget" that have a limit to 320 column, while the frame have limit to 600 column.

/******** BEGIN ********************/
define variable acharacter as character extent 6 format "X(100)" initial "".

default-WINDOW:col=600.

for each check-reg-tr
no-lock
:
display acharacter[1] at 1 format "X(100)"
acharacter[2] at 101 format "X(100)"
acharacter[3] at 201 format "X(100)"
acharacter[4] at 301 format "X(100)"
acharacter[5] at 401 format "X(100)"
acharacter[6] at 501 format "X(100)"
with frame fcharacter WIDTH 600.
end.
/*********** END ***************************/

Message : ** Invalid character unit value 600, Changed to 320. (4132)

Thanks you