00001 ***** 04/08/03 00002 * DTSXL421 00003 * DTSXL421 XEROX LASER REPORT SELF-MAILER LETTERHEAD LV060 00004 * DEFINITIONS FOR REPORT WRITER FORMAT DTSXL421 00005 * DTSXL421 00006 * 08-25-1999 INITIAL DEVELOPMENT DTSXL421 00007 * DTSXL421 00008 * DTSXL421 00009 * DTSXL421 00010 * 08-25-2000 CONVERTED REPORT-WRITER FORMMAT TO COBOL II FORMAT DTSXL421 00011 * REFERENCE RFP #**** PROGRAMMER: RW1 DTSXL421 00012 * DTSXL421 00013 ***** DTSXL421 00014 ******************************************************************DTSXL421 00015 * XEROX LASER DEFINITION WITH ROUTING PAGE *DTSXL421 00016 ******************************************************************DTSXL421 00017 ******************************************************************DTSXL421 00018 * XEROX LASER DEFINITION *DTSXL421 00019 ******************************************************************DTSXL421 00020 * DTSXL421 00021 01 ROUTE-INFO-LINE13. DTSXL421 00022 05 FILLER PIC X VALUE SPACES. DTSXL421 00023 05 FILLER PIC X(07) VALUE SPACES. DTSXL421 00024 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL421 00025 01 ROUTE-INFO-LINE14. DTSXL421 00026 05 FILLER PIC X VALUE SPACES. DTSXL421 00027 05 FILLER PIC X(07) VALUE SPACES. DTSXL421 00028 05 FILLER PIC X(40) DTSXL421 00029 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL421 00030 01 ROUTE-INFO-LINE15. DTSXL421 00031 05 FILLER PIC X VALUE SPACES. DTSXL421 00032 05 FILLER PIC X(07) VALUE SPACES. DTSXL421 00033 05 FILLER PIC X(40) DTSXL421 00034 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL421 00035 01 ROUTE-INFO-LINE16. DTSXL421 00036 05 FILLER PIC X VALUE SPACES. DTSXL421 00037 05 FILLER PIC X(07) VALUE SPACES. DTSXL421 00038 05 FILLER PIC X(40) DTSXL421 00039 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL421 00040 01 ROUTE-INFO-LINE17. DTSXL421 00041 05 FILLER PIC X VALUE SPACES. DTSXL421 00042 05 FILLER PIC X(07) VALUE SPACES. DTSXL421 00043 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL421 00044 DTSXL421 00045 01 XEROX-CNTL-LINE18. DTSXL421 00046 * 05 FILLER PIC X VALUE SPACES. CL*60 00047 05 CNTL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL421 00048 05 CNTL1-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL421 00049 05 CNTL1-JDE PIC X(10) VALUE 'JDE=SRLTR,'. DTSXL421 00050 05 CNTL1-END PIC X(01) VALUE ';'. DTSXL421 00051 05 FILLER PIC X(48) VALUE SPACES. DTSXL421 00052 DTSXL421 00053 01 XEROX-CNTL-LINE19. DTSXL421 00054 * 05 FILLER PIC X VALUE SPACES. CL*60 00055 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL421 00056 05 CNTL2-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL421 00057 05 CNTL2-FONTS PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXL421 00058 05 CNTL2-FINDX PIC X(19) VALUE DTSXL421 00059 'FONTINDEX=(82,ONE),'. DTSXL421 00060 05 CNTL2-END PIC X(01) VALUE ';'. DTSXL421 00061 05 FILLER PIC X(14) VALUE SPACES. DTSXL421 00062 DTSXL421 00063 01 XEROX-CNTL-LINE20. DTSXL421 00064 * 05 FILLER PIC X VALUE SPACES. CL*60 00065 05 CNTL3-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL421 00066 05 CNTL3-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL421 00067 05 CNTL3-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL421 00068 05 CNTL3-BEGIB PIC X(18) VALUE DTSXL421 00069 'BEGIN=(0.50,0.41),'. DTSXL421 00070 05 CNTL3-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL421 00071 05 CNTL3-BOF PIC X(07) VALUE 'BOF=66,'. DTSXL421 00072 05 CNTL3-END PIC X(04) VALUE 'END;'. DTSXL421 00073 05 FILLER PIC X(07) VALUE SPACES. DTSXL421 00074 DTSXL421 00075 01 VSCA-ADDR-LINE-17. DTSXL421 00076 05 FILLER PIC X VALUE SPACES. DTSXL421 00077 05 FILLER PIC X(40) VALUE SPACES. DTSXL421 00078 05 WS-ADDR-FMT-LINE-1 PIC X(40) VALUE SPACES. DTSXL421 00079 01 VSCA-ADDR-LINE-18. DTSXL421 00080 05 FILLER PIC X VALUE SPACES. DTSXL421 00081 05 FILLER PIC X(40) VALUE SPACES. DTSXL421 00082 05 WS-ADDR-FMT-LINE-2 PIC X(40) VALUE SPACES. DTSXL421 00083 01 VSCA-ADDR-LINE-19. DTSXL421 00084 05 FILLER PIC X VALUE SPACES. DTSXL421 00085 05 FILLER PIC X(40) VALUE SPACES. DTSXL421 00086 05 WS-ADDR-FMT-LINE-3 PIC X(40) VALUE SPACES. DTSXL421 00087 01 VSCA-ADDR-LINE-20. DTSXL421 00088 05 FILLER PIC X VALUE SPACES. DTSXL421 00089 05 FILLER PIC X(40) VALUE SPACES. DTSXL421 00090 05 WS-ADDR-FMT-LINE-4 PIC X(40) VALUE SPACES. DTSXL421 00091 01 VSCA-ADDR-LINE-21. DTSXL421 00092 05 FILLER PIC X VALUE SPACES. DTSXL421 00093 05 FILLER PIC X(40) VALUE SPACES. DTSXL421 00094 05 WS-ADDR-FMT-LINE-5 PIC X(40) VALUE SPACES. DTSXL421 00095 DTSXL421