I would put each line in a variable and then you can reference the line by
number. Once you have everything the way you want it, the write it out to the
file.
set var line1 text=null
set var line2 text=null
.
.
.
set var line60 text=null
set var line1 = 'This is the first line'
set var line2 = 'This is the second line'
.
.
.
set var line60 = 'This is the last line'
out somefile
write .line1
write .line2
.
.
write .line60
out screen
Troy
>===== Original Message From [EMAIL PROTECTED] =====
>Can't you accumulate the lines for the description into one variable
>(instead of commiting to the virtual page each line) with CrLf at the end of
>each line, then check the line count for the variable and if there are
>insufficient lines remaining on that page, issue a newpage and print on the
>next?
>
>
>----- Original Message -----
>From: "J.M. GRATIAS" <[EMAIL PROTECTED]>
>To: <[EMAIL PROTECTED]>
>Sent: Saturday, March 30, 2002 4:40 AM
>Subject: Re: A PAGEMODE question ...
>
>
>>
>> Jim Bentley :
>>
>> >>
>> .....
>> Under what circumstances are you building a page that later needs to be
>> cleared ?
>> <<
>>
>> Because I have a very unsual report to do ....
>> I have to print on a preprinted form a 'boarding list' (similar to an
>> invoice), and for each product I have :
>> - 2 lines (fixed)
>> - and some extra lines that are variables depending on each product. For
>> that I use :
>> SHOW VAR vproduct= 40 AT .vline, vcolumn
>> SET VAR vlength = (ISTAT('PAGEROW'))
>> to get cursor position.
>> I want all lines related to the current product on the same page.
>> If current product don't fit in the current page, I have to clear all
>lines
>> for the current product on the current page, print that page and open a
>new
>> page, print page header and reprint current product ....
>>
>> Not easy ....
>>
>> I hope this will help to understand my problem ....
>>
>> J.M. GRATIAS, Logimatique
>> ================================================
>> TO SEE MESSAGE POSTING GUIDELINES:
>> Send a plain text email to [EMAIL PROTECTED]
>> In the message body, put just two words: INTRO rbase-l
>> ================================================
>> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
>> In the message body, put just two words: UNSUBSCRIBE rbase-l
>> ================================================
>> TO SEARCH ARCHIVES:
>> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>>
>
>
>================================================
>TO SEE MESSAGE POSTING GUIDELINES:
>Send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: INTRO rbase-l
>================================================
>TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: UNSUBSCRIBE rbase-l
>================================================
>TO SEARCH ARCHIVES:
>http://www.mail-archive.com/rbase-l%40sonetmail.com/
Troy Sosamon
Denver Co
[EMAIL PROTECTED]
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
