PAGE-SIZE and PAGE

Virgani Dhirgac

New Member
Hi there,

Let's say that I've an A4 paper with 1 horizontal perperation, so it's will divide its into 2 section and each perforation contains 30 lines (assumed that A4 paper contains 60 lines). Then I created a simple program like this:

/* begin */
OUTPUT TO printer PAGE-SIZE 30.

FOR EACH customer NO-LOCK USE-INDEX customer:
DISPLAY customer.cust-no customer.cust-name
WITH FRAME fcustomer DOWN NO-BOX NO-LABELS NO-ATTR-SPACE
WIDTH 80.

/* eject to the nect section on the same paper and or different paper. */
/* max 26 lines printed on each section */
IF LINE-COUNTER + 4 GT PAGE-SIZE THEN PAGE.
END.
OUTPUT CLOSE.
/* end of simple program */

It's there something wrong with my logic ?

Regards,,
Virgani D
 
Back
Top