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