PPFA Input for Repeated Boxes Example 2

PAGEDEF rept1   replace yes;
    FONT  addr  a075dc ;           /*customer address       */
    FONT  varb  gt10   ;           /*Variable data          */
    FONT  bhead  a075ac;           /*Bold Headings          */
    SETUNITS  LINESP .25 in ;      /* Line spacing          */

    PAGEFORMAT  rept1   BOTMARGIN  2 in;
    SEGMENT  ibmlog;               /*IBM logo               */
   /************************************************/
   /** statmid  PAGEHEADER                        **/
   /************************************************/
    LAYOUT C'statmid'
         	SEGMENT ibmlog  1.15 in 1.35 in
         	PAGEHEADER NEWPAGE
          	POSITION SAME ABSOLUTE NEXT;
      DRAWGRAPHIC  CIRCLE RADIUS .5 in       /* 1 inch circle    */
           POSITION 1.5 in  1.5 in;
      DRAWGRAPHIC  BOX  BOXSIZE 2.6 IN .25 IN ROUNDED LARGE
           LINEWT 0                          /* invisible border */
           POSITION 4 IN 1 IN
           COPY   DOWN 2 SPACED 0
           FILL ALL  DOT02;
      FIELD  START  2 LENGTH 19  ALIGN LEFT
          	POSITION  4.2 in 1.2 in
          	FONT addr ;    /*variable - customer name      */
      FIELD  START 21 LENGTH 19  ALIGN LEFT
          	POSITION  4.2 in NEXT
          	FONT addr ;    /*variable - customer address   */
      FIELD  START 40 LENGTH 22  ALIGN LEFT
          	POSITION  4.2 in NEXT
           	FONT addr ;    /*variable - customer city, st. */
   /************************************************/
   /**  ckheader  GROUPHEADER                     **/
   /************************************************/
    LAYOUT C'ckheader'  GRPHEADER XSPACE .25 in
           POSITION 1 in ABSOLUTE 2.5 in;      /* set position   */
      DRAWGRAPHIC  BOX BOXSIZE .95 IN  .3 IN
           POSITION 0 0;
      DRAWGRAPHIC  BOX BOXSIZE .95 IN     /* box started for data */
           POSITION 0   .3 in;            /* no vertical size */
      FIELD  TEXT C'Date'
          	POSITION   .3 in   .2 in
        		FONT  bhead  ; /* Stat text - Date of check    */
      DRAWGRAPHIC  BOX  BOXSIZE  .8 IN  .3 IN
           POSITION  .95 IN 0;
      DRAWGRAPHIC  BOX  BOXSIZE .8 IN     /* box started for data */
           POSITION .95 in .3 in;         /* no vertical size     */
      FIELD  TEXT C'Check No.'
          	POSITION 1 in   .2 in
          	FONT  bhead  ; /* Stat text - Check number     */
      DRAWGRAPHIC  BOX  BOXSIZE  3 IN  .3 IN
           POSITION 1.75 IN  0;
      DRAWGRAPHIC  BOX  BOXSIZE 3 IN      /* box started for data */
           POSITION 1.75 in  .3 in;       /* no vertical size     */
      FIELD  TEXT C'Payable to:'
         	POSITION  2.9 in    .2 in
          	FONT  bhead  ; /* Static text - Payable to:    */
      DRAWGRAPHIC  BOX BOXSIZE .95 IN  .3 IN
           POSITION 4.75 IN   0 in;
      DRAWGRAPHIC  BOX  BOXSIZE .95 in    /* box started for data */
           POSITION