[sqr-users] #current-column

["Kim Meyrowitz" <kmeyrowitz@hotmail.com>]

This doesn't seem like this should be a hard issue but I have two pieces of 
text that I am trying to print.  Basically, the text had to be split up due 
to data constraints, but I want to display it as if it was one continous 
line...

Example:
start of text 1   5.00     63.00     45.00
xxxxxxxx start of text 2 here

What happens with my stuff is that it starts printing on top of text that is 
already there.  I tried using #currrent-column (even adding +10 to it), but 
it still overwrites existing text.

Here is a code snippet I have been working with...

        while #arr_cnt <= 0
                let comments = cmmts.prtl_string(1)

                if $is_doc = 'Y'
                        let $hdr_dscr = ' '
                        let $hdr_dscr = $comments||{CR_CODE}||$hdr_dscr
                end-if

                if #arr_cnt <= 0
                        let #start_column = {PURPOSE_X}
                        let #start_line = {PURPOSE_Y}
                else
                        let #start_column = #current-column + 10
                        let #start_line = #current-line
                end-if

                do wrap_with_cr($hdr_dscr, #start_line, #start_column, 100, 
{MAX_PURPOSE_LINES_P1}, 1, 8, 'regular', 5, 8, 'F', $addl_purpose)

                print 'HERE I AM ' ()      (note, this line keeps over writing 
existing 
text, even when I tried inserting the current-column and/or added an 
additional value to to the current-column to make it move over)

                let #arr_cnt = #arr_cnt + 1
        end-while

When I have displayed the value of the current column, it does change - for 
example it will enter the wrap_with_cr procedure with a value of 10 and 
before I print 'HERE I AM', it will have a value of 27, but that still over 
writes text.

Seems like an simple task, so why is it overwritting stuff?

Thanks in advance!



_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users