98 lines
7.7 KiB
COBOL
98 lines
7.7 KiB
COBOL
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
|