Replace a new line character to a space in an SCL list

[Arjumand]

Hi,

I am fetching data from a textbox and storing it in an SCL list. The code is below:-

Reasonlist= makelist();

ReasonTxt._getData(Reasonlist);

reason="";
if listlen(Reasonlist) ne 0
then do;
do i = 1 to listlen(Reasonlist);
reason=reason||trim(getitemc(Reasonlist,i))||" ";
end;
end;


* check if reason for revision is completed *;
if lengthn(reason)<=0
then do;
commandlist=makelist();
commandlist=insertc(commandlist, 'Please provide Reason for Revision.',1);
command=messagebox(commandlist,'S','O',"ERROR");
commandlist=dellist(commandlist);
rc = dellist(Reasonlist);
return;
end;

There is a message box which prompts error when the text is not provided.

 But I am getting this error even if I enter text in the textbox.This generally happens when at the end of the text, I press the enter key. How to convert this new line at the end of the text to space? Please help.

[BrunoMueller]

Hi

I changed some of the code just a little like this:

DISPLAY:
Reasonlist = ReasonTxt.Text;

call putlist(Reasonlist, "Reasonlist", 2);

reason=" ";
...

Sometimes when entering newlines(the enter key), no SCL List is returned.

I suggest you contact Tech Support

Bruno

[BrunoMueller]

The problem comes from an invalid list returned, when pressing the enter key, this does not always happen.