undo wrap text

[Andalib Yussuf <andalib.yussuf@AMS.COM>]

Hello,
I need some help in figuring out how to get rid of wrapped text. I have
provided the output below and the code that prints out the output. Please
help.

thanks

andalib

output:

REM
111111111111111111111111111111111111111111111111111111111111111111111111111
REM
1111111111111111111111111111111111111111111111111111111111111111111111111111
REM
1111111111111111111111111111111111111111111111111111111111111111111111111111
REM 1111111111111111111111111111
22222222222222222222222222222222222222222222222
REM 222222222222222222222222222222222222222222222222222222222222222222222
222222
REM 2222222222222222222222222222222222222222222222222222
22222222222222222222222
REM  This money was withdrwn since it had not been spent by the end of the
fisca
REM l year.
 !@#$%^&*()---- ++ ==


code:

Begin-Procedure get_memos
  let $prog_remark = ''
BEGIN-SELECT
MSSG_TX &prog_remark
  let $prog_remark = $prog_remark || ' ' || &prog_remark
FROM MF_MEMO
WHERE parn_of_memo_id = &header_uidy
ORDER BY CRET_DT_TM
END-SELECT
    let #length_of_remark = length($prog_remark)
      if #length_of_remark > 0
        let #num_remark = ceil(#length_of_remark / 76)
        let #num_loops = 0
        let #begin_num = 1
          while(#num_loops <= #num_remark)
            let $memo_string = ''
            let $memo_string  = substr($prog_remark,#begin_num ,76)
            string 'REM' ' ' $memo_string by '' into $Rem_record
            !show $memo_string
            write 1 from $Rem_record
            let #num_loops = #num_loops + 1
            let #begin_num = #begin_num + 76
          end-while
      end-if

End-Procedure !get_memos