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 4.75 in .3 in; /* no vertical size */
FIELD TEXT C'Amount'
POSITION 5 in .2 in
FONT bhead ; /* Stat text - Amount of check */
/************************************************/
/** ckdata BODY w/ un-ended boxes **/
/************************************************/
LAYOUT C'ckdata' BODY GROUP;
FIELD START 2 LENGTH 3 ALIGN LEFT
POSITION 1.2 in CURRENT
FONT varb ; /* Variable text - Check number */
FIELD START 14 LENGTH 8 ALIGN LEFT
POSITION .1 in CURRENT
FONT varb ; /* Variable text - Date */
FIELD START 35 LENGTH 25 ALIGN LEFT
POSITION 2.0 in CURRENT
FONT varb ; /* Variable text - Payable to: */
FIELD START 24 LENGTH 8 ALIGN RIGHT
POSITION 5.6 in CURRENT
FONT varb ; /* Variable text - Amount */
/************************************************/
/** ckend BODY to end boxes **/
/************************************************/
LAYOUT C'ckend' BODY GROUP;/* If this layout and command are */
ENDGRAPHIC LPOS; /* not issued, the boxes should be */
/* closed anyway. But if there was */
/* a trailer, they may not end in */
/* the right place. */