00001 * 05/25/04 00002 ****** DTSIZ451 00003 ** LV001 00004 ** DTSIZ451 THIS COPYBOOK IS USED TO MERGE VARIABLE DATA DTSIZ451 00005 ** TO XEROX FORM. ALL TEXT FOR THIS LETTER IS ON DTSIZ451 00006 ** XEROX FORM. DTSIZ451 00007 ** DTSIZ451 00008 ****** DTSIZ451 00009 DTSIZ451 00010 05 VAR-LINE-1. DTSIZ451 00011 10 FILLER PIC X(64) VALUE SPACES. DTSIZ451 00012 10 WS-LONG-YEAR8 PIC X(04). DTSIZ451 00013 10 WS-YEAR8-PERIOD PIC X(01) VALUE '.'. DTSIZ451 00014 05 VAR-LINE-2. DTSIZ451 00015 10 FILLER PIC X(24) VALUE SPACES. DTSIZ451 00016 10 WS-LONG-TEXT-DUE-DATE PIC X(18). DTSIZ451 00017 10 FILLER PIC X(48) VALUE SPACES. DTSIZ451 00018 05 VAR-LINE-3. DTSIZ451 00019 10 FILLER PIC X(46) VALUE SPACES. DTSIZ451 00020 10 WS-LONG-YEAR9 PIC X(04). DTSIZ451 00021 05 VAR-LINE-4. DTSIZ451 00022 10 FILLER PIC X(46) VALUE SPACES. DTSIZ451 00023 10 WS-LONG-TEXT-RET-DATE PIC X(18). DTSIZ451 00024 10 FILLER PIC X(48) VALUE SPACES. DTSIZ451 00025 05 VAR-LINE-5. DTSIZ451 00026 10 FILLER PIC X(26) VALUE SPACES. DTSIZ451 00027 10 WS-LONG-YEAR11 PIC X(04). DTSIZ451 00028 10 FILLER PIC X(35) VALUE SPACES. DTSIZ451 00029 05 VAR-LINE-6. DTSIZ451 00030 10 FILLER PIC X(41) VALUE SPACES. DTSIZ451 00031 10 RPT-CALL-PHONE PIC X(14) VALUE SPACES. DTSIZ451 00032 10 FILLER PIC X(01) VALUE '.'. DTSIZ451 00033 DTSIZ451