00001 ***** 12/09/04 00002 * DTSXL436 00003 * DTSXL436 XEROX LASER REPORT FOR COMPROMISE SETTLEMENT LV001 00004 * DTSXL436 00005 * 12-03-2004 INITIAL DEVELOPMENT ZL1 DTSXL436 00006 * DTSXL436 00007 * DTSXL436 00008 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL436 00009 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL436 00010 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL436 00011 * DTSXL436 00012 ***** DTSXL436 00013 ******************************************************************DTSXL436 00014 * XEROX LASER DEFINITION WITH ROUTING PAGE *DTSXL436 00015 ******************************************************************DTSXL436 00016 ******************************************************************DTSXL436 00017 * XEROX LASER DEFINITION *DTSXL436 00018 ******************************************************************DTSXL436 00019 * DTSXL436 00020 01 ROUTE-INFO-LINE10. DTSXL436 00021 05 FILLER PIC X VALUE SPACES. DTSXL436 00022 05 FILLER PIC X(07) VALUE SPACES. DTSXL436 00023 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL436 00024 01 ROUTE-INFO-LINE11. DTSXL436 00025 05 FILLER PIC X VALUE SPACES. DTSXL436 00026 05 FILLER PIC X(07) VALUE SPACES. DTSXL436 00027 05 FILLER PIC X(40) DTSXL436 00028 VALUE '* ROUTE RPT436 FORMS TO: *'. DTSXL436 00029 01 ROUTE-INFO-LINE12. DTSXL436 00030 05 FILLER PIC X VALUE SPACES. DTSXL436 00031 05 FILLER PIC X(07) VALUE SPACES. DTSXL436 00032 05 FILLER PIC X(40) DTSXL436 00033 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL436 00034 01 ROUTE-INFO-LINE13. DTSXL436 00035 05 FILLER PIC X VALUE SPACES. DTSXL436 00036 05 FILLER PIC X(07) VALUE SPACES. DTSXL436 00037 05 FILLER PIC X(40) DTSXL436 00038 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL436 00039 01 ROUTE-INFO-LINE14. DTSXL436 00040 05 FILLER PIC X VALUE SPACES. DTSXL436 00041 05 FILLER PIC X(07) VALUE SPACES. DTSXL436 00042 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL436 00043 DTSXL436 00044 01 XEROX-CNTL-CLASSI. DTSXL436 00045 05 IEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL436 00046 05 IEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL436 00047 05 IEROX-JDE PIC X(11) VALUE 'JDE=DTSRQI,'. DTSXL436 00048 05 IEROX-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXL436 00049 05 IEROX-FORMS PIC X(13) VALUE 'FORMS=T436R1,'. DTSXL436 00050 05 IEROX-BFORM PIC X(11) VALUE 'BFORM=NONE,'. DTSXL436 00051 05 IEROX-FONTS PIC X(13) VALUE 'FONTS=CS12NP,'. DTSXL436 00052 05 IEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL436 00053 05 IEROX-END PIC X(04) VALUE 'END;'. DTSXL436 00054 05 FILLER PIC X(48) VALUE SPACES. DTSXL436 00055 DTSXL436 00056 DTSXL436