87 lines
6.8 KiB
COBOL
87 lines
6.8 KiB
COBOL
00001 ***** 02/24/00
|
|
00002 * DTSXL302
|
|
00003 * DTSXL302 XEROX LASER REPORT LAYOUT AND LV054
|
|
00004 * DEFINITIONS CL**2
|
|
00005 * DTSXL302
|
|
00006 * 08-18-1999 INITIAL LASER DEVELOPMENT CL*27
|
|
00007 * REFERENCE RFP #**** PROGRAMMER: DVS CL*20
|
|
00008 * CL*20
|
|
00009 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20
|
|
00010 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20
|
|
00011 * REFERENCE RFP #**** PROGRAMMER: XXX CL*20
|
|
00012 * CL*20
|
|
00013 ***** DTSXL302
|
|
00014 ****************************************************************** CL*17
|
|
00015 * XEROX LASER DEFINITION * CL*29
|
|
00016 ****************************************************************** CL*17
|
|
00017 01 XF-CA-CNTL-LIN0. CL*31
|
|
00018 05 FILLER PIC X. CL*41
|
|
00019 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*20
|
|
00020 05 X1-CA-JDL PIC X(09) VALUE 'JDL=XMOM,'. CL*48
|
|
00021 05 X1-CA-JDE PIC X(10) VALUE 'JDE=W2REC,'. CL*45
|
|
00022 05 X1-CA-LINE-END PIC X(1) VALUE ';'. CL*17
|
|
00023 05 FILLER PIC X(49) VALUE SPACES. CL*48
|
|
00024 CL*31
|
|
00025 01 XF-PMODE-LIN0. CL*42
|
|
00026 05 FILLER PIC X. CL*42
|
|
00027 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*42
|
|
00028 05 X1-CA-PMODE PIC X(10) VALUE 'PMODE=LAN,'. CL*42
|
|
00029 05 X1-CA-LINE-END PIC X(1) VALUE ';'. CL*42
|
|
00030 05 FILLER PIC X(48) VALUE SPACES. CL*42
|
|
00031 CL*42
|
|
00032 01 XF-CA-CNTL-LINE. CL*31
|
|
00033 05 FILLER PIC X. CL*41
|
|
00034 05 X3-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*31
|
|
00035 05 X3-CA-FORMS PIC X(13) VALUE 'FORMS=DTSCSL,'. CL*52
|
|
00036 05 X3-CA-BFORM PIC X(11) VALUE 'BFORM=NONE,'. CL*52
|
|
00037 05 X3-CA-MESSAGE PIC X(38) CL*40
|
|
00038 VALUE 'OTEXT=(''LOAD 8 X 14 SIZE PAPER'',WAIT),'. CL*38
|
|
00039 05 X3-CA-LINE-END PIC X(1) VALUE ';'. CL*31
|
|
00040 05 FILLER PIC X(08) VALUE SPACES. CL*50
|
|
00041 CL*17
|
|
00042 01 X2-CA-CNTL-LINE. CL*31
|
|
00043 05 FILLER PIC X. CL*41
|
|
00044 05 X4-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*17
|
|
00045 05 X4-CA-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. CL*47
|
|
00046 05 X4-CA-FORMAT PIC X(13) VALUE 'FORMAT=FMT12,'. CL*50
|
|
00047 05 X4-CA-FONTS PIC X(13) VALUE 'FONTS=L0212A,'. CL*53
|
|
00048 05 X4-CA-LINE-END PIC X(1) VALUE ';'. CL*17
|
|
00049 05 FILLER PIC X(43) VALUE SPACES. CL*50
|
|
00050 CL*18
|
|
00051 01 X3-CA-CNTL-LINE. CL*31
|
|
00052 05 FILLER PIC X. CL*41
|
|
00053 05 X5-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*18
|
|
00054 05 X5-CA-DATA PIC X(13) VALUE 'DATA=(0,180),'. CL*27
|
|
00055 05 X5-CA-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. CL*18
|
|
00056 05 X5-CA-TOF PIC X(06) VALUE 'TOF=1,'. CL*18
|
|
00057 05 X5-CA-BOF PIC X(07) VALUE 'BOF=60,'. CL*50
|
|
00058 05 X5-CA-BEGIN PIC X(18) VALUE CL*18
|
|
00059 'BEGIN=(0.50,0.41),'. CL*18
|
|
00060 05 X5-CA-LINE-END PIC X(4) VALUE 'END;'. CL*18
|
|
00061 05 FILLER PIC X(08) VALUE SPACES. CL*20
|
|
00062 CL*18
|
|
00063 EJECT CL*18
|
|
00064 01 BLANK-LINE PIC X(180) VALUE SPACES. CL*27
|
|
00065 SKIP3 CL*36
|
|
00066 01 XEROX-START-LINE. CL*36
|
|
00067 05 LINE-13. CL*36
|
|
00068 10 FILLER PIC X(08) VALUE SPACES. CL*54
|
|
00069 10 FILLER PIC X(40) CL*36
|
|
00070 VALUE ALL '*'. CL*36
|
|
00071 05 LINE-14. CL*36
|
|
00072 10 FILLER PIC X(08) VALUE SPACES. CL*54
|
|
00073 10 FILLER PIC X(40) CL*37
|
|
00074 VALUE '* ROUTE FOLLOWING FORMS TO: *'. CL*36
|
|
00075 05 LINE-15. CL*36
|
|
00076 10 FILLER PIC X(08) VALUE SPACES. CL*54
|
|
00077 10 FILLER PIC X(40) CL*36
|
|
00078 VALUE '* TAX ACCOUNTING SECTION *'. CL*36
|
|
00079 05 LINE-16. CL*36
|
|
00080 10 FILLER PIC X(08) VALUE SPACES. CL*54
|
|
00081 10 FILLER PIC X(40) CL*36
|
|
00082 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. CL*36
|
|
00083 05 LINE-17. CL*36
|
|
00084 10 FILLER PIC X(08) VALUE SPACES. CL*54
|
|
00085 10 FILLER PIC X(40) CL*36
|
|
00086 VALUE ALL '*'. CL*36
|