00001 ***** 04/25/14 00002 * DTSXL31A 00003 * DTSXL321 XEROX LASER REPORT SELF-MAILER LETTERHEAD LV001 00004 * ON MISSING REPORT LETTER FROM BR320. DTSXL31A 00005 * DTSXL31A 00006 * 02-05-2014 INITIAL DEVELOPMENT ZL1 DTSXL31A 00007 * DTSXL31A 00008 * DTSXL31A 00009 * DTSXL31A 00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL31A 00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL31A 00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL31A 00013 * DTSXL31A 00014 ***** DTSXL31A 00015 ******************************************************************DTSXL31A 00016 * XEROX LASER DEFINITION WITH ROUTING PAGE *DTSXL31A 00017 ******************************************************************DTSXL31A 00018 ******************************************************************DTSXL31A 00019 * XEROX LASER DEFINITION *DTSXL31A 00020 ******************************************************************DTSXL31A 00021 * DTSXL31A 00022 DTSXL31A 00023 01 XEROX-CNTL2-LINE18. DTSXL31A 00024 * 05 FILLER PIC X VALUE SPACES. DTSXL31A 00025 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL31A 00026 05 CNTL2-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL31A 00027 05 CNTL2-JDE PIC X(11) VALUE 'JDE=T321R2,'. DTSXL31A 00028 05 CNTL2-CME PIC X(14) VALUE 'MODIFY=CME418,'. DTSXL31A 00029 05 CNTL2-END PIC X(01) VALUE ';'. DTSXL31A 00030 05 FILLER PIC X(36) VALUE SPACES. DTSXL31A 00031 DTSXL31A 00032 01 XEROX-CNTL2-LINE19. DTSXL31A 00033 * 05 FILLER PIC X VALUE SPACES. DTSXL31A 00034 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL31A 00035 05 CNTL2-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL31A 00036 05 CNTL2-FONTS PIC X(36) DTSXL31A 00037 VALUE 'FONTS=(HE11NP,HE11NP,C128ZP,C128PX),'. DTSXL31A 00038 05 CNTL2-END PIC X(01) VALUE ';'. DTSXL31A 00039 05 FILLER PIC X(24) VALUE SPACES. DTSXL31A 00040 DTSXL31A 00041 01 XEROX-CNTL2-LINE20. DTSXL31A 00042 * 05 FILLER PIC X VALUE SPACES. DTSXL31A 00043 05 CNTL4-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL31A 00044 05 CNTL4-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL31A 00045 05 CNTL4-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL31A 00046 05 CNTL4-BEGIB PIC X(18) VALUE DTSXL31A 00047 'BEGIN=(0.50,0.41),'. DTSXL31A 00048 05 CNTL4-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL31A 00049 05 CNTL4-BOF PIC X(07) VALUE 'BOF=66,'. DTSXL31A 00050 05 CNTL4-END PIC X(04) VALUE 'END;'. DTSXL31A 00051 05 FILLER PIC X(07) VALUE SPACES. DTSXL31A 00052 DTSXL31A 00053 01 XEROX-END-LINE-1. DTSXL31A 00054 * 05 FILLER PIC X VALUE SPACES. DTSXL31A 00055 05 ENDL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL31A 00056 05 ENDL1-END PIC X(04) VALUE 'END;'. DTSXL31A 00057 05 FILLER PIC X(64) VALUE SPACES. DTSXL31A 00058 DTSXL31A 00059 01 VSC2-ADDR-LINE-17. DTSXL31A 00060 05 FILLER PIC X VALUE SPACES. DTSXL31A 00061 05 FILLER PIC X(70) VALUE SPACES. DTSXL31A 00062 05 C2-ADDR-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSXL31A 00063 DTSXL31A 00064 01 VSC2-ADDR-LINE-18. DTSXL31A 00065 05 FILLER PIC X VALUE SPACES. DTSXL31A 00066 05 FILLER PIC X(70) VALUE SPACES. DTSXL31A 00067 05 C2-ADDR-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSXL31A 00068 DTSXL31A 00069 01 VSC2-ADDR-LINE-19. DTSXL31A 00070 05 FILLER PIC X VALUE SPACES. DTSXL31A 00071 05 FILLER PIC X(70) VALUE SPACES. DTSXL31A 00072 05 C2-ADDR-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSXL31A 00073 DTSXL31A 00074 01 VSC2-ADDR-LINE-20. DTSXL31A 00075 05 FILLER PIC X VALUE SPACES. DTSXL31A 00076 05 FILLER PIC X(70) VALUE SPACES. DTSXL31A 00077 05 C2-ADDR-FMT-LINE-4 PIC X(40) VALUE SPACES. DTSXL31A 00078 DTSXL31A 00079 01 VSC2-ADDR-LINE-21. DTSXL31A 00080 05 FILLER PIC X VALUE SPACES. DTSXL31A 00081 05 FILLER PIC X(70) VALUE SPACES. DTSXL31A 00082 05 C2-ADDR-FMT-LINE-5 PIC X(40) VALUE SPACES. DTSXL31A 00083 DTSXL31A 00084 DTSXL31A