writing on a new page

[YGrunt]

Is it possible to force an end of page without using the linage clausule?

I have a program that reads a number of patients from a file. When there are more than 5 patients, the program has to write 5 patients on one page and then write on another page and so on.

If anyone could help me,thx

YGrunt

 

[k5tm]

Yes. Check

WRITE...AFTER ADVANCING

Tom Morrison

 

[gbell]

It depends on how you are controlling your print lines. If you are using a data item for example LINE-COUNT to control the printing, simply move 66 to LINE-COUNT. This will then force your program to throw a new page from your Print Paragraph/Section.

 

[MarcLodge]

I prefer to just
WRITE REPORT-REC AFTER PAGE
Marc

 

[ceh4702]

Just use a Patient counter and when it get to be over 5 go to another page and reset it kind of like a line counter for 55 line pages. Often you need a heading on top of the next page so you may have to do that also. If you do not like my post feel free to point out your opinion or my errors.

 

[Dimandja]

Hi YGrunt,

All the advices you have been getting boil down to the need to do a little planning/design before you code.

In this particular case, you should know how many lines per page you want to print, and how many lines each patient (including all needed headings) generate. You should have a mock-up of your page(s) on hand.

Armed with that information, your program should be quite easy to code, n'est-ce-pas?

Dimandja

 

[YGrunt]

Thx everyone for the answers, the new page has been written, the battle has been fought

 

[slade]

YGrunt,

You missed my point. HOW was the problem solved?

Jack

 

[YGrunt]

I used a counter to count the lines that I write on the page. Then subtracted it from 65 orso which is the maximum lines on a page.
And then I wrote a number lines which contained spaces equal to the result of the subtraction.

Maybe not the most elegant solution, but it will do

YGrunt

 

[slade]

Hi YGrunt,

You didn't show us the write stmts you use to print the lines of your report, so I assume you're using the

WRITE AFTER ADVANCING .... form.

Here's the usual algorithm:

IF PG-LINES-WRITTEN > 65 (or whatever)
   OR
   PG-BREAK-SW-IS-SET
   WRITE RPT-REC 
    FROM RPT-HDR AFTER ADVANCING PAGE
   MOVE 0 TO PG-LINES-WRITTEN 
   ADD 1 TO PG-NBR
END-IF
WRITE RPT-REC 
 FROM RPT-DETAIL AFTER ADVANCING 1 LINE
ADD 1 TO PG-LINES-WRITTEN

The intent of this code is to determine:
1) If the page is full
2) If you previously detected a situation where a new page is required (page break).

If either of these conditions is present, a heading line is printed on a new page and the counters are adjusted before the detail line is printed.

If they aren't, only the detail need be printed.

Notice, there's no need to fill the rest of the page with blank lines; that's what the AFTER ADVANCING PAGE clause is for. It "jumps" to the top of the next page before printing the line.

What I showed here is a "stripped down" version of what you may have to do (e.g., print multiple heading lines, etc.); you might even want to PERFORM a "start new page" pgraph.
But it presents the main idea: you can force a page break "jump" by using the AFTER ADVANCING PAGE clause.