97 lines
7.6 KiB
COBOL
97 lines
7.6 KiB
COBOL
00001 ***** 01/13/00
|
|
00002 * DTSXLCSP
|
|
00003 * DTSXLCSP XEROX LASER REPORT LAYOUT AND LV054
|
|
00004 * DEFINITIONS CL**2
|
|
00005 * DTSXLCSP
|
|
00006 * 08-12-1999 CL*28
|
|
00007 * CL*28
|
|
00008 * CL*28
|
|
00009 * CL*20
|
|
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20
|
|
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20
|
|
00012 * REFERENCE RFP #**** PROGRAMMER: XXX CL*20
|
|
00013 * CL*20
|
|
00014 ***** DTSXLCSP
|
|
00015 ****************************************************************** CL*17
|
|
00016 * XEROX LASER DEFINITION * CL*28
|
|
00017 ****************************************************************** CL*17
|
|
00018 RD XEROX-REPORT CL*31
|
|
00019 CONTROLS ARE FINAL CL*31
|
|
00020 PAGE LIMIT 90 LINES CL*47
|
|
00021 FIRST DETAIL 1 CL*52
|
|
00022 LAST DETAIL 90. CL*47
|
|
00023 SKIP2 CL*31
|
|
00024 01 XEROX-START-LINE TYPE IS DETAIL. CL*32
|
|
00025 05 LINE 1. CL*52
|
|
00026 10 COLUMN 1 PIC X(12) CL*52
|
|
00027 VALUE '$X9700$DJDE '. CL*52
|
|
00028 10 COLUMN 13 PIC X(09) CL*52
|
|
00029 VALUE 'JDL=XMOM,'. CL*52
|
|
00030 10 COLUMN 22 PIC X(10) CL*52
|
|
00031 VALUE 'JDE=W2REC,'. CL*52
|
|
00032 10 COLUMN 32 PIC X(01) CL*52
|
|
00033 VALUE ';'. CL*52
|
|
00034 10 COLUMN 33 PIC X(49) CL*52
|
|
00035 VALUE SPACES. CL*52
|
|
00036 CL*52
|
|
00037 05 LINE 2. CL*52
|
|
00038 10 COLUMN 1 PIC X(12) CL*52
|
|
00039 VALUE '$X9700$DJDE '. CL*52
|
|
00040 10 COLUMN 13 PIC X(13) CL*52
|
|
00041 VALUE 'FORMS=DTSCSP,'. CL*52
|
|
00042 10 COLUMN 26 PIC X(11) CL*52
|
|
00043 VALUE 'BFORM=NONE,'. CL*52
|
|
00044 10 COLUMN 37 PIC X(38) CL*52
|
|
00045 VALUE 'OTEXT=(''LOAD 8 X 14 SIZE PAPER'',WAIT),'. CL*52
|
|
00046 10 COLUMN 75 PIC X(01) CL*52
|
|
00047 VALUE ';'. CL*52
|
|
00048 10 COLUMN 76 PIC X(06) CL*52
|
|
00049 VALUE SPACES. CL*52
|
|
00050 05 LINE 3. CL*52
|
|
00051 10 COLUMN 1 PIC X(12) CL*52
|
|
00052 VALUE '$X9700$DJDE '. CL*52
|
|
00053 10 COLUMN 13 PIC X(10) CL*52
|
|
00054 VALUE 'DUPLEX=NO,'. CL*52
|
|
00055 10 COLUMN 23 PIC X(12) CL*54
|
|
00056 VALUE 'FORMAT=FMT7,'. CL*54
|
|
00057 10 COLUMN 35 PIC X(13) CL*54
|
|
00058 VALUE 'FONTS=P07TDB,'. CL*52
|
|
00059 10 COLUMN 48 PIC X(19) CL*54
|
|
00060 VALUE 'FONTINDEX=(82,ONE),'. CL*52
|
|
00061 10 COLUMN 67 PIC X CL*54
|
|
00062 VALUE ';'. CL*52
|
|
00063 10 COLUMN 68 PIC X(14) CL*54
|
|
00064 VALUE SPACES. CL*52
|
|
00065 05 LINE 4. CL*52
|
|
00066 10 COLUMN 1 PIC X(12) CL*52
|
|
00067 VALUE '$X9700$DJDE '. CL*52
|
|
00068 10 COLUMN 13 PIC X(13) CL*52
|
|
00069 VALUE 'DATA=(0,132),'. CL*52
|
|
00070 10 COLUMN 26 PIC X(13) CL*52
|
|
00071 VALUE 'ASSIGN=(1,1),'. CL*52
|
|
00072 * 10 COLUMN 39 PIC X(18) CL*52
|
|
00073 * VALUE 'BEGIN=(0.10,0.11),'. CL*52
|
|
00074 10 COLUMN 39 PIC X(07) CL*52
|
|
00075 VALUE 'TOF=10,'. CL*52
|
|
00076 10 COLUMN 46 PIC X(07) CL*52
|
|
00077 VALUE 'BOF=60,'. CL*53
|
|
00078 10 COLUMN 53 PIC X(04) CL*52
|
|
00079 VALUE 'END;'. CL*52
|
|
00080 10 COLUMN 57 PIC X(24) CL*52
|
|
00081 VALUE SPACES. CL*52
|
|
00082 05 LINE 13. CL*52
|
|
00083 10 COLUMN 7 PIC X(40) CL*51
|
|
00084 VALUE ALL '*'. CL*51
|
|
00085 05 LINE 14. CL*52
|
|
00086 10 COLUMN 7 PIC X(40) CL*51
|
|
00087 VALUE '* ROUTE FOLLOWING FORMS TO: *'. CL*51
|
|
00088 05 LINE 15. CL*52
|
|
00089 10 COLUMN 7 PIC X(40) CL*51
|
|
00090 VALUE '* TAX ACCOUNTING SECTION *'. CL*51
|
|
00091 05 LINE 16. CL*52
|
|
00092 10 COLUMN 7 PIC X(40) CL*51
|
|
00093 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. CL*51
|
|
00094 05 LINE 17. CL*52
|
|
00095 10 COLUMN 7 PIC X(40) CL*51
|
|
00096 VALUE ALL '*'. CL*51
|