Jogging Output

This example shows how to jog the printed output, based on a change in the input data.

Copy group CGJOG specifies JOG YES. Page format PFJOG contains a CONDITION command that checks for any change in positions 8 through 10. If a change is detected, copy group CGJOG is restarted. Observe that the only result is to start printing on a new sheet and to jog that sheet.

FORMDEF TJOG;
  COPYGROUP CGJOG JOG YES;
 
PAGEDEF TJOG;
  PAGEFORMAT PFJOG WIDTH 11 IN HEIGHT 8.5;
    PRINTLINE REPEAT 50
              CHANNEL 1;
    CONDITION NUPAGE START 8 LENGTH 3
      WHEN CHANGE BEFORE SUBPAGE
      COPYGROUP CGJOG;