00001 ***** 01/11/05 00002 * DTSXL102 00003 * DTSXLBLH XEROX LASER REPORT LAYOUT AND LV003 00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXL102 00005 * DTSXL102 00006 * 08-12-1999 DTSXL102 00007 * DTSXL102 00008 * DTSXL102 00009 * DTSXL102 00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL102 00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL102 00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL102 00013 * DTSXL102 00014 ***** DTSXL102 00015 ******************************************************************DTSXL102 00016 * XEROX LASER DEFINITION *DTSXL102 00017 ******************************************************************DTSXL102 00018 RD XEROX-REPORT DTSXL102 00019 CONTROLS ARE FINAL DTSXL102 00020 PAGE LIMIT 66 LINES DTSXL102 00021 FIRST DETAIL 1 DTSXL102 00022 LAST DETAIL 60. DTSXL102 00023 SKIP2 DTSXL102 00024 01 XEROX-START-LINE TYPE IS DETAIL. DTSXL102 00025 05 LINE 1. DTSXL102 00026 10 COLUMN 1 PIC X(12) DTSXL102 00027 VALUE '$X9700$DJDE '. DTSXL102 00028 10 COLUMN 13 PIC X(09) DTSXL102 00029 VALUE 'JDL=XMOM,'. DTSXL102 00030 10 COLUMN 22 PIC X(11) DTSXL102 00031 VALUE 'JDE=SWORKS,'. DTSXL102 00032 10 COLUMN 33 PIC X(01) DTSXL102 00033 VALUE ';'. DTSXL102 00034 10 COLUMN 34 PIC X(48) DTSXL102 00035 VALUE SPACES. DTSXL102 00036 DTSXL102 00037 05 LINE 2. DTSXL102 00038 10 COLUMN 1 PIC X(12) DTSXL102 00039 VALUE '$X9700$DJDE '. DTSXL102 00040 10 COLUMN 13 PIC X(13) DTSXL102 00041 VALUE 'FORMS=DTSBLZ,'. DTSXL102 00042 10 COLUMN 26 PIC X(11) DTSXL102 00043 VALUE 'BFORM=NONE,'. DTSXL102 00044 10 COLUMN 37 PIC X(38) DTSXL102 00045 VALUE 'OTEXT=(''LOAD NO HOLE WHITE PAPER''),'. DTSXL102 00046 10 COLUMN 75 PIC X(01) DTSXL102 00047 VALUE ';'. DTSXL102 00048 10 COLUMN 76 PIC X(06) DTSXL102 00049 VALUE SPACES. DTSXL102 00050 05 LINE 3. DTSXL102 00051 10 COLUMN 1 PIC X(12) DTSXL102 00052 VALUE '$X9700$DJDE '. DTSXL102 00053 10 COLUMN 13 PIC X(10) DTSXL102 00054 VALUE 'DUPLEX=NO,'. DTSXL102 00055 10 COLUMN 23 PIC X(12) DTSXL102 00056 VALUE 'FORMAT=FMT7,'. DTSXL102 00057 10 COLUMN 35 PIC X(13) DTSXL102 00058 VALUE 'FONTS=CS12BP,'. DTSXL102 00059 10 COLUMN 48 PIC X(19) DTSXL102 00060 VALUE 'FONTINDEX=(82,ONE),'. DTSXL102 00061 10 COLUMN 67 PIC X DTSXL102 00062 VALUE ';'. DTSXL102 00063 10 COLUMN 68 PIC X(14) DTSXL102 00064 VALUE SPACES. DTSXL102 00065 05 LINE 4. DTSXL102 00066 10 COLUMN 1 PIC X(12) DTSXL102 00067 VALUE '$X9700$DJDE '. DTSXL102 00068 10 COLUMN 13 PIC X(13) DTSXL102 00069 VALUE 'DATA=(0,132),'. DTSXL102 00070 10 COLUMN 26 PIC X(13) DTSXL102 00071 VALUE 'ASSIGN=(1,1),'. DTSXL102 00072 10 COLUMN 39 PIC X(18) DTSXL102 00073 VALUE 'BEGIN=(0.50,0.41),'. DTSXL102 00074 10 COLUMN 57 PIC X(07) DTSXL102 00075 VALUE 'TOF=12,'. DTSXL102 00076 10 COLUMN 64 PIC X(07) DTSXL102 00077 VALUE 'BOF=60,'. DTSXL102 00078 10 COLUMN 71 PIC X(04) DTSXL102 00079 VALUE 'END;'. DTSXL102 00080 10 COLUMN 75 PIC X(07) DTSXL102 00081 VALUE SPACES. DTSXL102 00082 DTSXL102 00083 05 LINE 20. DTSXL102 00084 10 COLUMN 20 PIC X(49) DTSXL102 00085 VALUE ALL '*'. DTSXL102 00086 05 LINE 21. DTSXL102 00087 10 COLUMN 20 PIC X(40) DTSXL102 00088 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL102 00089 05 LINE 22. DTSXL102 00090 10 COLUMN 20 PIC X(40) DTSXL102 00091 VALUE '* STATUS UNIT *'. DTSXL102 00092 05 LINE 23. DTSXL102 00093 10 COLUMN 20 PIC X(40) DTSXL102 00094 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL102 00095 05 LINE 24. DTSXL102 00096 10 COLUMN 20 PIC X(49) DTSXL102 00097 VALUE ALL '*'. DTSXL102