00001 ***** 04/08/03 00002 * DTSXL434 00003 * DTSXL434 XEROX LASER REPORT LAYOUT AND LV058 00004 * DEFINITIONS DTSXL434 00005 * DTSXL434 00006 * 10-27-2000 CONVERTED REPORT WRITER FORMAT TO COBOL II FORMAT. DTSXL434 00007 * THE ORIGINAL COPYBOOK MEMBER NAMED DTSXLBLH. DTSXL434 00008 * REFERENCE RFP #**** PROGRAMMER: RLW1 DTSXL434 00009 * DTSXL434 00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL434 00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL434 00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL434 00013 * DTSXL434 00014 ***** DTSXL434 00015 ******************************************************************DTSXL434 00016 * XEROX LASER DEFINITION *DTSXL434 00017 ******************************************************************DTSXL434 00018 DTSXL434 00019 01 XEROX-CNTL-LINE1. DTSXL434 00020 * 05 FILLER PIC X VALUE SPACES. CL*58 00021 05 CNTL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434 00022 05 CNTL1-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL434 00023 05 CNTL1-JDE PIC X(11) VALUE 'JDE=SWORKS,'. DTSXL434 00024 05 CNTL1-END PIC X(01) VALUE ';'. DTSXL434 00025 05 FILLER PIC X(34) VALUE SPACES. DTSXL434 00026 DTSXL434 00027 01 XEROX-CNTL-LINE2. DTSXL434 00028 * 05 FILLER PIC X VALUE SPACES. CL*58 00029 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434 00030 05 CNTL2-FORMS PIC X(13) VALUE 'FORMS=DTSBLH,'. DTSXL434 00031 05 CNTL2-BFORMS PIC X(11) VALUE 'BFORM=NONE,'. DTSXL434 00032 05 CNTL2-OTEXT PIC X(40) VALUE DTSXL434 00033 'OTEXT=(''*** LOAD NO HOLE PAPER''),;'. CL*57 00034 05 FILLER PIC X(03) VALUE SPACES. DTSXL434 00035 DTSXL434 00036 01 XEROX-CNTL-LINE3. DTSXL434 00037 * 05 FILLER PIC X VALUE SPACES. CL*58 00038 05 CNTL3-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434 00039 05 CNTL3-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXL434 00040 05 CNTL3-FORMAT PIC X(12) VALUE 'FORMAT=FMT6,'. DTSXL434 00041 05 CNTL3-FONTS PIC X(13) VALUE 'FONTS=P08TAB,'. DTSXL434 00042 05 CNTL3-FINDX PIC X(19) VALUE DTSXL434 00043 'FONTINDEX=(82,ONE),'. DTSXL434 00044 05 CNTL3-END PIC X(01) VALUE ';'. DTSXL434 00045 05 FILLER PIC X(14) VALUE SPACES. DTSXL434 00046 DTSXL434 00047 01 XEROX-CNTL-LINE4. DTSXL434 00048 * 05 FILLER PIC X VALUE SPACES. CL*58 00049 05 CNTL4-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434 00050 05 CNTL4-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL434 00051 05 CNTL4-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL434 00052 05 CNTL4-BEGIB PIC X(18) VALUE DTSXL434 00053 'BEGIN=(0.10,0.11),'. DTSXL434 00054 05 CNTL4-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL434 00055 05 CNTL4-BOF PIC X(07) VALUE 'BOF=70,'. DTSXL434 00056 05 CNTL4-END PIC X(04) VALUE 'END;'. DTSXL434 00057 05 FILLER PIC X(07) VALUE SPACES. DTSXL434 00058 DTSXL434 00059 01 ROUTE-INFO-LINE20. DTSXL434 00060 05 FILLER PIC X VALUE SPACE. DTSXL434 00061 05 FILLER PIC X(20) VALUE SPACES. DTSXL434 00062 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL434 00063 DTSXL434 00064 01 ROUTE-INFO-LINE21. DTSXL434 00065 05 FILLER PIC X VALUE SPACE. DTSXL434 00066 05 FILLER PIC X(20) VALUE SPACES. DTSXL434 00067 05 FILLER PIC X(40) VALUE DTSXL434 00068 '* ROUTE FOLLOWING FORMS TO: *'. DTSXL434 00069 DTSXL434 00070 01 ROUTE-INFO-LINE22. DTSXL434 00071 05 FILLER PIC X VALUE SPACE. DTSXL434 00072 05 FILLER PIC X(20) VALUE SPACES. DTSXL434 00073 05 FILLER PIC X(40) VALUE DTSXL434 00074 '* TAX ACCOUNTING SECTION *'. DTSXL434 00075 DTSXL434 00076 01 ROUTE-INFO-LINE23. DTSXL434 00077 05 FILLER PIC X VALUE SPACES. DTSXL434 00078 05 FILLER PIC X(20) VALUE SPACES. DTSXL434 00079 05 FILLER PIC X(40) VALUE DTSXL434 00080 '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL434 00081 DTSXL434 00082 01 ROUTE-INFO-LINE24. DTSXL434 00083 05 FILLER PIC X VALUE SPACES. DTSXL434 00084 05 FILLER PIC X(20) VALUE SPACES. DTSXL434 00085 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL434 00086 DTSXL434