00001 ***** 01/11/05 00002 * DTSXLRQI 00003 * DTSXLRQI XEROX LASER REPORT LAYOUT FOR I CLASS LV001 00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXLRQI 00005 * DTSXLRQI 00006 * 08-24-2004 DTSXLRQI 00007 * DTSXLRQI 00008 * DTSXLRQI 00009 ***** DTSXLRQI 00010 ******************************************************************DTSXLRQI 00011 * XEROX LASER DEFINITION *DTSXLRQI 00012 ******************************************************************DTSXLRQI 00013 DTSXLRQI 00014 01 XEROX-CNTL-LINE1. DTSXLRQI 00015 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXLRQI 00016 05 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXLRQI 00017 05 XEROX-JDE PIC X(11) VALUE 'JDE=DTSRQI,'. DTSXLRQI 00018 05 XEROX-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXLRQI 00019 05 XEROX-SIMPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXLRQI 00020 05 XEROX-FONTS PIC X(13) VALUE 'FONTS=CS12NP,'. DTSXLRQI 00021 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXLRQI 00022 05 XEROX-END PIC X(04) VALUE 'END;'. DTSXLRQI 00023 DTSXLRQI 00024 01 XEROX-CNTL-LINE2. DTSXLRQI 00025 05 XEROX-FILLER PIC X(132) VALUE SPACES. DTSXLRQI 00026 DTSXLRQI 00027 01 ROUTE-INFO-LINE1. DTSXLRQI 00028 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI 00029 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLRQI 00030 DTSXLRQI 00031 01 ROUTE-INFO-LINE2. DTSXLRQI 00032 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI 00033 05 FILLER PIC X(24) VALUE DTSXLRQI 00034 ' ROUTE REPORT '. DTSXLRQI 00035 05 REPORT-NUMBER PIC X(08). DTSXLRQI 00036 05 FILLER PIC X(05) VALUE ' TO:'. DTSXLRQI 00037 05 FILLER PIC X(12) VALUE SPACES. DTSXLRQI 00038 05 FILLER PIC X(01) VALUE ' '. DTSXLRQI 00039 DTSXLRQI 00040 01 ROUTE-INFO-LINE3. DTSXLRQI 00041 05 FILLER PIC X VALUE SPACES. DTSXLRQI 00042 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI 00043 05 FILLER PIC X(50) VALUE DTSXLRQI 00044 ' STATUS UNIT '. DTSXLRQI 00045 DTSXLRQI 00046 01 ROUTE-INFO-LINE4. DTSXLRQI 00047 05 FILLER PIC X VALUE SPACES. DTSXLRQI 00048 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI 00049 05 FILLER PIC X(50) VALUE DTSXLRQI 00050 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSXLRQI 00051 DTSXLRQI 00052 01 ROUTE-INFO-LINE5. DTSXLRQI 00053 05 FILLER PIC X VALUE SPACES. DTSXLRQI 00054 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI 00055 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLRQI 00056 DTSXLRQI