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