00001 ***** 10/28/03 00002 * DTSXL414 00003 * DTSXL414 XEROX LASER REPORT R414 -STATEMENT OF ACCOUNT LV063 00004 * REFORMATTED NEW BILL FOR 12/01 MAILING. DTSXL414 00005 * DTSXL414 00006 * 09-15-1999 INITIAL DEVELOPMENT ZL1. DTSXL414 00007 * DTSXL414 00008 * DTSXL414 00009 * 11-11-2002 MODIFIED PROGRAM TO PRINT NEW BILL FORM ZL1. DTSXL414 00010 * DTSXL414 00011 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL414 00012 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL414 00013 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL414 00014 * DTSXL414 00015 ***** DTSXL414 00016 ******************************************************************DTSXL414 00017 * XEROX LASER DEFINITION *DTSXL414 00018 ******************************************************************DTSXL414 00019 05 XEROX-8X11-LINE. DTSXL414 00020 10 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL414 00021 10 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL414 00022 10 XEROX-JDE PIC X(11) VALUE 'JDE=T414R1,'. DTSXL414 00023 10 XEROX-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL414 00024 10 XEROX-PDE PIC X(14) VALUE 'FORMAT=PDE910,'. DTSXL414 00025 10 XEROX-CME PIC X(15) VALUE 'MODIFY=CME414,;'. DTSXL414 00026 10 FILLER PIC X(20) VALUE SPACES. DTSXL414 00027 DTSXL414 00028 05 XEROX-CNTL-LINE2. DTSXL414 00029 10 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL414 00030 10 XEROX-FONTS PIC X(22) DTSXL414 00031 VALUE 'FONTS=(P07TDB,P07ITA),'. DTSXL414 00032 10 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL414 00033 10 XEROX-BEGIN PIC X(18) VALUE 'BEGIN=(0.90,0.41),'. DTSXL414 00034 10 XEROX-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL414 00035 10 XEROX-BOF PIC X(07) VALUE 'BOF=90,'. DTSXL414 00036 10 XEROX-END PIC X(04) VALUE 'END;'. DTSXL414 00037 10 FILLER PIC X(07) VALUE SPACES. DTSXL414 00038 DTSXL414 00039 01 VSCA-ADDR-LINE. DTSXL414 00040 05 LINE-ADDR-17. DTSXL414 00041 10 FILLER PIC X(36) VALUE SPACES. DTSXL414 00042 10 MAIL-ADDR-LINE1 PIC X(40). DTSXL414 00043 05 LINE-ADDR-18. DTSXL414 00044 10 FILLER PIC X(36) VALUE SPACES. DTSXL414 00045 10 MAIL-ADDR-LINE2 PIC X(40). DTSXL414 00046 05 LINE-ADDR-19. DTSXL414 00047 10 FILLER PIC X(36) VALUE SPACES. DTSXL414 00048 10 MAIL-ADDR-LINE3 PIC X(40). DTSXL414 00049 05 LINE-ADDR-20. DTSXL414 00050 10 FILLER PIC X(36) VALUE SPACES. DTSXL414 00051 10 MAIL-ADDR-LINE4 PIC X(40). DTSXL414 00052 05 LINE-ADDR-21. DTSXL414 00053 10 FILLER PIC X(36) VALUE SPACES. DTSXL414 00054 10 MAIL-ADDR-LINE5 PIC X(40). DTSXL414