Record Reprocessing

This example uses the BEFORE SUBPAGE function with record reprocessing because the copy group and page format cannot be determined until input record 3 for each subpage has been read.

    Note:
  1. This example includes two subpages.
  2. The CONDITION command specifies that the action to be performed is NEWFORM. Therefore, if the condition is satisfied, the data in the current subpage is forced to start on the next form. If the data is already at the start of a new form, no action is performed. In other words, a blank page is not generated.

Example of Record Reprocessing

/* Page definition for 2-up printing              */
/* Test field in line 3 of each subpage           */
/* Eject to new sheet if the field changes.       */
 
PAGEDEF REPROC
        WIDTH  10.6 HEIGHT 8.3 DIRECTION DOWN;
 
  PAGEFORMAT  PFREPROC;
 
    /* Definition of first subpage                */
    PRINTLINE CHANNEL 1
              REPEAT 2
              POSITION MARGIN TOP;
 
    PRINTLINE REPEAT 1
              POSITION MARGIN NEXT;
              CONDITION EJECT
                START 5 LENGTH 5
                WHEN CHANGE BEFORE SUBPAGE
                NEWFORM;
 
    PRINTLINE REPEAT 40
              POSITION MARGIN NEXT;
    ENDSUBPAGE;
 
    /* Definition of second subpage              */
    PRINTLINE CHANNEL 1
              REPEAT 2
              POSITION 5.3 TOP;
 
    PRINTLINE REPEAT 1
              POSITION 5.3 NEXT;
              CONDITION EJECT;
 
    PRINTLINE REPEAT 40
              POSITION 5.3 NEXT;
    ENDSUBPAGE;