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