00001 ***** 01/11/05 00002 * DTSXLBLH 00003 * DTSXLBLH XEROX LASER REPORT LAYOUT AND LV048 00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXLBLH 00005 * DTSXLBLH 00006 * 08-12-1999 DTSXLBLH 00007 * DTSXLBLH 00008 * DTSXLBLH 00009 ***** DTSXLBLH 00010 ******************************************************************DTSXLBLH 00011 * XEROX LASER DEFINITION *DTSXLBLH 00012 ******************************************************************DTSXLBLH 00013 DTSXLBLH 00014 01 XEROX-CNTL-LINE1. DTSXLBLH 00015 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXLBLH 00016 05 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXLBLH 00017 05 XEROX-JDE PIC X(11) VALUE 'JDE=SIMPLX,'. DTSXLBLH 00018 05 XEROX-FORMS PIC X(13) VALUE 'FORMS=DTSBLZ,'. DTSXLBLH 00019 05 XEROX-BFORMS PIC X(11) VALUE 'BFORM=NONE,'. DTSXLBLH 00020 05 XEROX-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXLBLH 00021 05 XEROX-END PIC X(01) VALUE ';'. DTSXLBLH 00022 DTSXLBLH 00023 DTSXLBLH 00024 01 XEROX-CNTL-LINE2. DTSXLBLH 00025 05 XEROX-DJDE2 PIC X(12) VALUE '$X9700$DJDE '. DTSXLBLH 00026 05 XEROX-SIMPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXLBLH 00027 05 XEROX-FONTS PIC X(13) VALUE 'FONTS=CS12NP,'. DTSXLBLH 00028 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXLBLH 00029 * 05 XEROX-BEGIB PIC X(18) VALUE DTSXLBLH 00030 * 'BEGIN=(0.50,0.41),'. DTSXLBLH 00031 05 XEROX-TOF PIC X(07) VALUE 'TOF=12,'. DTSXLBLH 00032 05 XEROX-BOF PIC X(07) VALUE 'BOF=60,'. DTSXLBLH 00033 05 XEROX-END PIC X(04) VALUE 'END;'. DTSXLBLH 00034 05 FILLER PIC X(07) VALUE SPACES. DTSXLBLH 00035 DTSXLBLH 00036 01 ROUTE-INFO-LINE1. DTSXLBLH 00037 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH 00038 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLBLH 00039 DTSXLBLH 00040 01 ROUTE-INFO-LINE2. DTSXLBLH 00041 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH 00042 05 FILLER PIC X(24) VALUE DTSXLBLH 00043 ' ROUTE REPORT '. DTSXLBLH 00044 05 REPORT-NUMBER PIC X(08). DTSXLBLH 00045 05 FILLER PIC X(05) VALUE ' TO:'. DTSXLBLH 00046 05 FILLER PIC X(12) VALUE SPACES. DTSXLBLH 00047 05 FILLER PIC X(01) VALUE ' '. DTSXLBLH 00048 DTSXLBLH 00049 01 ROUTE-INFO-LINE3. DTSXLBLH 00050 05 FILLER PIC X VALUE SPACES. DTSXLBLH 00051 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH 00052 05 FILLER PIC X(50) VALUE DTSXLBLH 00053 ' STATUS UNIT '. DTSXLBLH 00054 DTSXLBLH 00055 01 ROUTE-INFO-LINE4. DTSXLBLH 00056 05 FILLER PIC X VALUE SPACES. DTSXLBLH 00057 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH 00058 05 FILLER PIC X(50) VALUE DTSXLBLH 00059 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSXLBLH 00060 DTSXLBLH 00061 01 ROUTE-INFO-LINE5. DTSXLBLH 00062 05 FILLER PIC X VALUE SPACES. DTSXLBLH 00063 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH 00064 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLBLH 00065 DTSXLBLH