123 lines
9.7 KiB
COBOL
123 lines
9.7 KiB
COBOL
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
|