00001 ***** 02/19/10 00002 * DTSXL433 00003 * DTSXL433 XEROX LASER REPORT R433 -SI EMPLOYERS BENEFIT LV001 00004 * CHARGE STATEMENT - SECOND NOTICE. DTSXL433 00005 * DTSXL433 00006 * DTSXL433 00007 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL433 00008 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL433 00009 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL433 00010 * DTSXL433 00011 ***** DTSXL433 00012 ******************************************************************DTSXL433 00013 * XEROX LASER DEFINITION *DTSXL433 00014 ******************************************************************DTSXL433 00015 05 XEROX-8X11-LINE. DTSXL433 00016 10 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL433 00017 10 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL433 00018 10 XEROX-JDE PIC X(11) VALUE 'JDE=T433R1,'. DTSXL433 00019 10 XEROX-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL433 00020 10 XEROX-PDE PIC X(14) VALUE 'FORMAT=PDE910,'. DTSXL433 00021 10 XEROX-CME PIC X(15) VALUE 'MODIFY=CME414,;'. DTSXL433 00022 10 FILLER PIC X(20) VALUE SPACES. DTSXL433 00023 DTSXL433 00024 05 XEROX-CNTL-LINE2. DTSXL433 00025 10 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL433 00026 10 XEROX-FONTS PIC X(36) DTSXL433 00027 VALUE 'FONTS=(P07TDB,P07ITA,C128ZP,C128PX),'. DTSXL433 00028 10 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL433 00029 10 XEROX-BEGIN PIC X(18) VALUE 'BEGIN=(0.90,0.41),'. DTSXL433 00030 10 XEROX-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL433 00031 10 XEROX-BOF PIC X(07) VALUE 'BOF=60,'. DTSXL433 00032 10 XEROX-END PIC X(04) VALUE 'END;'. DTSXL433 00033 10 FILLER PIC X(07) VALUE SPACES. DTSXL433 00034 DTSXL433 00035 01 VSCA-ADDR-LINE. DTSXL433 00036 05 LINE-ADDR-17. DTSXL433 00037 10 FILLER PIC X(36) VALUE SPACES. DTSXL433 00038 10 MAIL-ADDR-LINE1 PIC X(40). DTSXL433 00039 05 LINE-ADDR-18. DTSXL433 00040 10 FILLER PIC X(36) VALUE SPACES. DTSXL433 00041 10 MAIL-ADDR-LINE2 PIC X(40). DTSXL433 00042 05 LINE-ADDR-19. DTSXL433 00043 10 FILLER PIC X(36) VALUE SPACES. DTSXL433 00044 10 MAIL-ADDR-LINE3 PIC X(40). DTSXL433 00045 05 LINE-ADDR-20. DTSXL433 00046 10 FILLER PIC X(36) VALUE SPACES. DTSXL433 00047 10 MAIL-ADDR-LINE4 PIC X(40). DTSXL433 00048 05 LINE-ADDR-21. DTSXL433 00049 10 FILLER PIC X(36) VALUE SPACES. DTSXL433 00050 10 MAIL-ADDR-LINE5 PIC X(40). DTSXL433