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