Anyone here can help on a form/page definition...?
The first pagedef looks at a field in the record and determines what
pagedef it should use to produce the needed letter. This lets us put
multiple letters in the same output file to get a volume discount for
mailing.
problem is there is always a blank(last page) being printed??
see code below >> thanks for any help ideas... >> maybe making this more
difficult then it should be ..
/*-----------------------------------------------------------*/
/* FOMRDEF RESCH3 - DEFINE WHAT OVERLAYS ARE IN EACH GROUP */
/* THIS GROUP IS FOR SINGLE SHEET - FRONT & BACK OF 1 SHEET */
/*-----------------------------------------------------------*/
SETUNITS 1 IN 1 IN;
FORMDEF RESCH3 REPLACE YES;
/*-----------------------------------------------------------*/
/* CGUNBK 1 & 2 - BANKRUPT GENERAL ADD-ON */
/*-----------------------------------------------------------*/
COPYGROUP CGUNBK1 PRESENT PORTRAIT
DIRECTION ACROSS;
OVERLAY UNBK11;
SUBGROUP OVERLAY UNBK11;
COPYGROUP CGUNBK2 PRESENT PORTRAIT
DIRECTION ACROSS;
OVERLAY UNBK12;
SUBGROUP OVERLAY UNBK12;
/*-----------------------------------------------------------*/
/* CGUNBL 1 & 2 - BANKRUPT GENERAL REFUND */
/*-----------------------------------------------------------*/
COPYGROUP CGUNBL1 PRESENT PORTRAIT
DIRECTION ACROSS;
OVERLAY UNBL11;
SUBGROUP OVERLAY UNBL11;
COPYGROUP CGUNBL2 PRESENT PORTRAIT
DIRECTION ACROSS;
OVERLAY VAL411;
SUBGROUP OVERLAY VAL411;
/*-----------------------------------------------------------*/
/* PAGEDEF WILL DEFINE WHAT COPYGROUP WILL PRINT WHEN */
/*-----------------------------------------------------------*/
PAGEDEF RESCH3
WIDTH 8.5
HEIGHT 11
DIRECTION ACROSS
REPLACE YES;
FONT GT10 GT10; /* GENERAL FONT 10 points */
/*------------------------------------------------------------*/
/* PAGEFORMAT PF0003 - USES INPUT CODE TO DETERMINE WHICH */
/* PAGE TO PRINT - COPYGROUP DETERMINES THE OVERLAY AND */
/* THE PAGEFORMAT DETERMINES WHAT VARIABLES TO PRINT */
/*------------------------------------------------------------*/
PAGEFORMAT PF0003;
PRINTLINE;
/*-- BKGNA01 - BANKRUPT GENERAL ADD-ON PAGE ONE --------------*/
CONDITION COND01
START 19 LENGTH 7
WHEN EQ C'BKGNA01' BEFORE SUBPAGE COPYGROUP CGUNBK1
PAGEFORMAT PFBKGN1;
/*-- BKGNA02 - BANKRUPT GENERAL ADD-ON PAGE TWO --------------*/
CONDITION COND02
START 19 LENGTH 7
WHEN EQ C'BKGNA02' BEFORE SUBPAGE COPYGROUP CGUNBK2
PAGEFORMAT PFBKGN2;
/*-- BKGNR01 - BANKRUPT GENERAL REFUND PAGE ONE --------------*/
CONDITION COND03
START 19 LENGTH 7
WHEN EQ C'BKGNR01' BEFORE SUBPAGE COPYGROUP CGUNBL1
PAGEFORMAT PFBKGR1;
/*-- BKGNR02 - BANKRUPT GENERAL REFUND PAGE TWO --------------*/
CONDITION COND04
START 19 LENGTH 7
WHEN EQ C'BKGNR02' BEFORE SUBPAGE COPYGROUP CGUNBL2
PAGEFORMAT PFBKGR2;
ENDSUBPAGE;
/*------------------------------------------------------------*/
/* PFBKGN1 - BANKRUPT GENERAL ADD-ON PAGE ONE */
/* WHEN DONE RETURN TO FIRST PAGEFORMAT - THE BEGINNING */
/*------------------------------------------------------------*/
PAGEFORMAT PFBKGN1;
PRINTLINE;
FIELD START 026
LENGTH 10
FONT GT10
POSITION 0.94 IN 1.50 IN; /* DATE OF LETTER */
FIELD START 181
LENGTH 08
FONT GT10
POSITION 0.94 IN 2.00 IN; /* BRANCH NUMBER */
FIELD TEXT 'RE: Customer:'
FONT GT10
POSITION 0.94 IN 3.34 IN;
FIELD START 239
LENGTH 25
FONT GT10
POSITION 2.95 IN 3.34 IN; /* CUSTOMER NAME */
FIELD TEXT ' Account Number:'
FONT GT10
POSITION 0.94 IN 3.58 IN;
FIELD START 001
LENGTH 08
FONT GT10
POSITION 2.95 IN 3.58 IN; /* ACCOUNT */
FIELD TEXT ' Policy Number:'
FONT GT10
POSITION 0.94 IN 3.80 IN;
FIELD START 009
LENGTH 10
FONT GT10
POSITION 2.95 IN 3.80 IN; /* POLICY */
FIELD START 395
LENGTH 60
FONT GT10
POSITION 1.14 IN 5.12 IN; /* COLLATERAL LINE 1 */
FIELD START 455
LENGTH 60
FONT GT10
POSITION 1.14 IN NEXT; /* COLLATERAL LINE 2 */
FIELD START 036
LENGTH 10
FONT GT10
POSITION 4.75 IN 5.925 IN; /* COV EFF DATE */
FIELD START 046
LENGTH 10
FONT GT10
POSITION 4.75 IN 6.20 IN; /* COV EXP DATE */
FIELD START 056
LENGTH 14
FONT GT10
POSITION 4.63 IN 6.503 IN; /* COVERAGE AMT */
FIELD START 070
LENGTH 14
FONT GT10
POSITION 4.32 IN 6.75 IN; /* PREMIUM AMT */
CONDITION COND01S
START 23 LENGTH 5
WHEN NE C' ' AFTER SUBPAGE FIRST
FIRST;
ENDSUBPAGE;
/*------------------------------------------------------------*/
/* PFBKGN2 - BANKRUPT GENERAL ADD-ON PAGE TWO */
/*------------------------------------------------------------*/
PAGEFORMAT PFBKGN2;
PRINTLINE;
FIELD START 189
LENGTH 36
FONT GT10
POSITION 0.9 IN 3.15 IN; /* BRANCH CITY STATE */
CONDITION COND02S
START 23 LENGTH 5
WHEN NE C' ' AFTER SUBPAGE FIRST
FIRST;
ENDSUBPAGE;
/*------------------------------------------------------------*/
/* PFBKGN1 - BANKRUPT GENERAL REFUND - PAGE ONE */
/*------------------------------------------------------------*/
PAGEFORMAT PFBKGR1;
PRINTLINE;
FIELD START 026
LENGTH 10
FONT GT10
POSITION 0.94 IN 1.50 IN; /* DATE OF LETTER */
FIELD START 181
LENGTH 08
FONT GT10
POSITION 0.94 IN 2.00 IN; /* BRANCH NUMBER */
FIELD TEXT 'RE: Customer:'
FONT GT10
POSITION 0.94 IN 3.45 IN;
FIELD START 239
LENGTH 25
FONT GT10
POSITION 2.95 IN 3.45 IN; /* CUSTOMER NAME */
FIELD TEXT ' Account Number:'
FONT GT10
POSITION 0.94 IN 3.63 IN;
FIELD START 001
LENGTH 08
FONT GT10
POSITION 2.95 IN 3.63 IN; /* ACCOUNT */
FIELD TEXT ' Policy Number:'
FONT GT10
POSITION 0.94 IN 3.80 IN;
FIELD START 009
LENGTH 10
FONT GT10
POSITION 2.95 IN 3.80 IN; /* POLICY */
FIELD START 395
LENGTH 60
FONT GT10
POSITION 1.14 IN 4.80 IN; /* COLLATERAL LINE 1 */
FIELD START 455
LENGTH 60
FONT GT10
POSITION 1.14 IN NEXT; /* COLLATERAL LINE 2 */
FIELD START 555
LENGTH 10
FONT GT10
POSITION 5.50 IN 6.05 IN; /* COV CANCEL DATE */
FIELD START 565
LENGTH 14
FONT GT10
POSITION 5.10 IN 6.30 IN; /* PREM REFUND AMT */
FIELD START 189
LENGTH 36
FONT GT10
POSITION 0.9 IN 7.95 IN; /* BRANCH CITY STATE */
CONDITION COND03S
START 23 LENGTH 5
WHEN NE C' ' AFTER SUBPAGE FIRST
FIRST;
ENDSUBPAGE;
/*------------------------------------------------------------*/
/* PFBKGN2 - BANKRUPT GENERAL REFUND - SECOND PAGE */
/* THIS SIDE IS A BLANK PAGE */
/*------------------------------------------------------------*/
PAGEFORMAT PFBKGR2;
PRINTLINE;
FIELD TEXT ' '
FONT GT10
POSITION 0.9 IN 6.20 IN; /* BLANK SPACE */
CONDITION COND04S
START 23 LENGTH 5
WHEN NE C' ' AFTER SUBPAGE FIRST
FIRST;
ENDSUBPAGE;
----------------------------------------------------------------------
Email Disclaimer
This E-mail contains confidential information belonging to the sender,
which may be legally privileged information. This information is intended
only for the use of the individual or entity addressed above. If you are not
the intended recipient, or an employee or agent responsible for
delivering it to the intended recipient, you are hereby notified that any
disclosure, copying, distribution, or the taking of any action in reliance on
the contents of the E-mail or attached files is strictly prohibited.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
