66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
00001 ***** 04/08/03
|
|
00002 * DTSXL303
|
|
00003 * DTSXL303 XEROX LASER REPORT LAYOUT AND LV038
|
|
00004 * DEFINITIONS DTSXL303
|
|
00005 * DTSXL303
|
|
00006 * 07-20-1999 ADDED FILLER BYTE TO BEGINNING OF XEROX LASER DEFIN- DTSXL303
|
|
00007 * ITION RECORDS TO ALLOW FOR COMPILER DIFFERENCES. DTSXL303
|
|
00008 * REFERENCE RFP #**** PROGRAMMER: DVS DTSXL303
|
|
00009 * DTSXL303
|
|
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL303
|
|
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL303
|
|
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL303
|
|
00013 * DTSXL303
|
|
00014 ***** DTSXL303
|
|
00015 ******************************************************************DTSXL303
|
|
00016 * ETA581 XEROX LASER DEFINITION *DTSXL303
|
|
00017 ******************************************************************DTSXL303
|
|
00018 01 XEROX-XL303-LINE1. DTSXL303
|
|
00019 * 05 FILLER PIC X. CL*38
|
|
00020 05 XL3031-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL303
|
|
00021 05 XL3031-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL303
|
|
00022 05 XL3031-JDE PIC X(11) VALUE 'JDE=ETA581,'. DTSXL303
|
|
00023 05 XL3031-FORMS PIC X(13) VALUE 'FORMS=DTUIRV,'. DTSXL303
|
|
00024 05 XL3031-BFORM PIC X(11) VALUE 'BFORM=NONE,'. DTSXL303
|
|
00025 05 XL3031-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXL303
|
|
00026 05 XL3031-FONTS PIC X(13) VALUE 'FONTS=UN210A,'. DTSXL303
|
|
00027 05 XL3031-LINE-END PIC X(1) VALUE ';'. DTSXL303
|
|
00028 DTSXL303
|
|
00029 01 XEROX-XL303-LINE2. DTSXL303
|
|
00030 * 05 FILLER PIC X. CL*38
|
|
00031 05 XL3032-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL303
|
|
00032 05 XL3032-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL303
|
|
00033 05 XL3032-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL303
|
|
00034 05 XL3032-TOF PIC X(06) VALUE 'TOF=5,'. DTSXL303
|
|
00035 05 XL3032-BOF PIC X(07) VALUE 'BOF=55,'. DTSXL303
|
|
00036 05 XL3032-BEGIN PIC X(18) VALUE DTSXL303
|
|
00037 'BEGIN=(0.50,0.41),'. DTSXL303
|
|
00038 05 XL3032-LINE-END PIC X(4) VALUE 'END;'. DTSXL303
|
|
00039 05 FILLER PIC X(08) VALUE SPACES. DTSXL303
|
|
00040 DTSXL303
|
|
00041 DTSXL303
|
|
00042 EJECT DTSXL303
|
|
00043 01 BLANK-LINE PIC X(132) VALUE SPACES. DTSXL303
|
|
00044 SKIP3 DTSXL303
|
|
00045 01 XEROX-START-LINE. DTSXL303
|
|
00046 05 LINE-13. DTSXL303
|
|
00047 10 FILLER PIC X(75) VALUE SPACES. DTSXL303
|
|
00048 10 FILLER PIC X(40) DTSXL303
|
|
00049 VALUE ALL '*'. DTSXL303
|
|
00050 05 LINE-14. DTSXL303
|
|
00051 10 FILLER PIC X(75) VALUE SPACES. DTSXL303
|
|
00052 10 FILLER PIC X(40) DTSXL303
|
|
00053 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL303
|
|
00054 05 LINE-15. DTSXL303
|
|
00055 10 FILLER PIC X(75) VALUE SPACES. DTSXL303
|
|
00056 10 FILLER PIC X(40) DTSXL303
|
|
00057 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL303
|
|
00058 05 LINE-16. DTSXL303
|
|
00059 10 FILLER PIC X(75) VALUE SPACES. DTSXL303
|
|
00060 10 FILLER PIC X(40) DTSXL303
|
|
00061 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL303
|
|
00062 05 LINE-17. DTSXL303
|
|
00063 10 FILLER PIC X(75) VALUE SPACES. DTSXL303
|
|
00064 10 FILLER PIC X(40) DTSXL303
|
|
00065 VALUE ALL '*'. DTSXL303
|