00001 ***** 12/13/13 00002 * DTSXL503 00003 * DTSXL503 XEROX LASER REPORT SELF-MAILER LETTERHEAD LV001 00004 * DEFINITIONS FOR COBOL FORMAT T DTSXL503 00005 * DTSXL503 00006 * 09-15-1999 INITIAL DEVELOPMENT DTSXL503 00007 * DTSXL503 00008 * DTSXL503 00009 * DTSXL503 00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL503 00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL503 00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL503 00013 * DTSXL503 00014 ***** DTSXL503 00015 ******************************************************************DTSXL503 00016 * XEROX LASER DEFINITION WITH ROUTING PAGE *DTSXL503 00017 ******************************************************************DTSXL503 00018 ******************************************************************DTSXL503 00019 * XEROX LASER DEFINITION *DTSXL503 00020 ******************************************************************DTSXL503 00021 01 XF-CA-CNTL-L632. DTSXL503 00022 * 10 FILLER PIC X. DTSXL503 00023 10 X1-CA-DJDE PIC X(12) DTSXL503 00024 VALUE '$X9700$DJDE '. DTSXL503 00025 10 X1-CA-JDL PIC X(09) DTSXL503 00026 VALUE 'JDL=XMOM,'. DTSXL503 00027 10 X1-CA-JDE PIC X(10) DTSXL503 00028 VALUE 'JDE=UC632,'. DTSXL503 00029 10 X1-CA-CME PIC X(14) DTSXL503 00030 VALUE 'MODIFY=CME503,'. DTSXL503 00031 10 X1-CA-LINE-END PIC X(01) DTSXL503 00032 VALUE ';'. DTSXL503 00033 10 FILLER PIC X(50) DTSXL503 00034 VALUE SPACES. DTSXL503 00035 DTSXL503 00036 01 XF-CA-CNTL-L632A. DTSXL503 00037 * 10 FILLER PIC X. DTSXL503 00038 10 X1-CA-DJDE PIC X(12) DTSXL503 00039 VALUE '$X9700$DJDE '. DTSXL503 00040 10 X1-CA-JDL PIC X(09) DTSXL503 00041 VALUE 'JDL=XMOM,'. DTSXL503 00042 10 X1-CA-JDE PIC X(11) DTSXL503 00043 VALUE 'JDE=UC632A,'. DTSXL503 00044 10 XA-CA-CME PIC X(14) DTSXL503 00045 VALUE 'MODIFY=CME503,'. DTSXL503 00046 10 X1-CA-LINE-END PIC X(01) DTSXL503 00047 VALUE ';'. DTSXL503 00048 10 FILLER PIC X(49) DTSXL503 00049 VALUE SPACES. DTSXL503 00050 DTSXL503 00051 01 X2-CA-CNTL-LINE. DTSXL503 00052 * 10 FILLER PIC X. DTSXL503 00053 10 X2-CA-DJDE PIC X(12) DTSXL503 00054 VALUE '$X9700$DJDE '. DTSXL503 00055 10 X2-CA-DUPLEX PIC X(11) DTSXL503 00056 VALUE 'DUPLEX=YES,'. DTSXL503 00057 * 10 X2-CA-FONT PIC X(13) DTSXL503 00058 * VALUE 'FONTS=P06BOA,'. DTSXL503 00059 10 CNTL2-FONTS PIC X(36) DTSXL503 00060 VALUE 'FONTS=(P06BOA,P06BOA,C128ZP,C128PX),'. DTSXL503 00061 10 X2-CA-FORMAT PIC X(12) DTSXL503 00062 VALUE 'FORMAT=FMT6,'. DTSXL503 00063 10 X2-CA-END-LINE PIC X DTSXL503 00064 VALUE ';'. DTSXL503 00065 10 FILLER PIC X(08) DTSXL503 00066 VALUE SPACES. DTSXL503 00067 01 X3-CA-CNTL-LINE. DTSXL503 00068 * 10 FILLER PIC X. DTSXL503 00069 10 X3-DA-DJDE PIC X(12) DTSXL503 00070 VALUE '$X9700$DJDE '. DTSXL503 00071 10 X3-CA-DATA PIC X(13) DTSXL503 00072 VALUE 'DATA=(0,132),'. DTSXL503 00073 10 X3-CA-ASSIGN PIC X(13) DTSXL503 00074 VALUE 'ASSIGN=(1,1),'. DTSXL503 00075 10 X3-CA-BEGIN PIC X(18) DTSXL503 00076 VALUE 'BEGIN=(0.50,0.41),'. DTSXL503 00077 10 X3-CA-TOF PIC X(07) DTSXL503 00078 VALUE 'TOF=12,'. DTSXL503 00079 10 X3-CA-BOF PIC X(07) DTSXL503 00080 VALUE 'BOF=80,'. DTSXL503 00081 10 X3-CA-END PIC X(04) DTSXL503 00082 VALUE 'END;'. DTSXL503 00083 10 FILLER PIC X(07) DTSXL503 00084 VALUE SPACES. DTSXL503 00085 01 XEROX-START-LINE. DTSXL503 00086 05 LINE-13. DTSXL503 00087 10 FILLER PIC X(20) VALUE SPACES. DTSXL503 00088 10 FILLER PIC X(40) DTSXL503 00089 VALUE ALL '*'. DTSXL503 00090 05 LINE-14. DTSXL503 00091 10 FILLER PIC X(20) VALUE SPACES. DTSXL503 00092 10 FILLER PIC X(40) DTSXL503 00093 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL503 00094 05 LINE-15. DTSXL503 00095 10 FILLER PIC X(20) VALUE SPACES. DTSXL503 00096 10 FILLER PIC X(40) DTSXL503 00097 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL503 00098 05 LINE-16. DTSXL503 00099 10 FILLER PIC X(20) VALUE SPACES. DTSXL503 00100 10 FILLER PIC X(40) DTSXL503 00101 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL503 00102 05 LINE-17. DTSXL503 00103 10 FILLER PIC X(20) VALUE SPACES. DTSXL503 00104 10 FILLER PIC X(40) DTSXL503 00105 VALUE ALL '*'. DTSXL503 00106 01 VSCA-ADDR-LINE. DTSXL503 00107 05 LINE-ADDR-17. DTSXL503 00108 10 FILLER PIC X(42) VALUE SPACES. DTSXL503 00109 10 FMT-ADDR-LINE1 PIC X(40). DTSXL503 00110 05 LINE-ADDR-18. DTSXL503 00111 10 FILLER PIC X(42) VALUE SPACES. DTSXL503 00112 10 FMT-ADDR-LINE2 PIC X(40). DTSXL503 00113 05 LINE-ADDR-19. DTSXL503 00114 10 FILLER PIC X(42) VALUE SPACES. DTSXL503 00115 10 FMT-ADDR-LINE3 PIC X(40). DTSXL503 00116 05 LINE-ADDR-20. DTSXL503 00117 10 FILLER PIC X(42) VALUE SPACES. DTSXL503 00118 10 FMT-ADDR-LINE4 PIC X(40). DTSXL503 00119 05 LINE-ADDR-21. DTSXL503 00120 10 FILLER PIC X(42) VALUE SPACES. DTSXL503 00121 10 FMT-ADDR-LINE5 PIC X(40). DTSXL503 00122 DTSXL503