87 lines
6.8 KiB
COBOL
87 lines
6.8 KiB
COBOL
00001 ***** 04/08/03
|
|
00002 * DTSXL434
|
|
00003 * DTSXL434 XEROX LASER REPORT LAYOUT AND LV058
|
|
00004 * DEFINITIONS DTSXL434
|
|
00005 * DTSXL434
|
|
00006 * 10-27-2000 CONVERTED REPORT WRITER FORMAT TO COBOL II FORMAT. DTSXL434
|
|
00007 * THE ORIGINAL COPYBOOK MEMBER NAMED DTSXLBLH. DTSXL434
|
|
00008 * REFERENCE RFP #**** PROGRAMMER: RLW1 DTSXL434
|
|
00009 * DTSXL434
|
|
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL434
|
|
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL434
|
|
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL434
|
|
00013 * DTSXL434
|
|
00014 ***** DTSXL434
|
|
00015 ******************************************************************DTSXL434
|
|
00016 * XEROX LASER DEFINITION *DTSXL434
|
|
00017 ******************************************************************DTSXL434
|
|
00018 DTSXL434
|
|
00019 01 XEROX-CNTL-LINE1. DTSXL434
|
|
00020 * 05 FILLER PIC X VALUE SPACES. CL*58
|
|
00021 05 CNTL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434
|
|
00022 05 CNTL1-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXL434
|
|
00023 05 CNTL1-JDE PIC X(11) VALUE 'JDE=SWORKS,'. DTSXL434
|
|
00024 05 CNTL1-END PIC X(01) VALUE ';'. DTSXL434
|
|
00025 05 FILLER PIC X(34) VALUE SPACES. DTSXL434
|
|
00026 DTSXL434
|
|
00027 01 XEROX-CNTL-LINE2. DTSXL434
|
|
00028 * 05 FILLER PIC X VALUE SPACES. CL*58
|
|
00029 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434
|
|
00030 05 CNTL2-FORMS PIC X(13) VALUE 'FORMS=DTSBLH,'. DTSXL434
|
|
00031 05 CNTL2-BFORMS PIC X(11) VALUE 'BFORM=NONE,'. DTSXL434
|
|
00032 05 CNTL2-OTEXT PIC X(40) VALUE DTSXL434
|
|
00033 'OTEXT=(''*** LOAD NO HOLE PAPER''),;'. CL*57
|
|
00034 05 FILLER PIC X(03) VALUE SPACES. DTSXL434
|
|
00035 DTSXL434
|
|
00036 01 XEROX-CNTL-LINE3. DTSXL434
|
|
00037 * 05 FILLER PIC X VALUE SPACES. CL*58
|
|
00038 05 CNTL3-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434
|
|
00039 05 CNTL3-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXL434
|
|
00040 05 CNTL3-FORMAT PIC X(12) VALUE 'FORMAT=FMT6,'. DTSXL434
|
|
00041 05 CNTL3-FONTS PIC X(13) VALUE 'FONTS=P08TAB,'. DTSXL434
|
|
00042 05 CNTL3-FINDX PIC X(19) VALUE DTSXL434
|
|
00043 'FONTINDEX=(82,ONE),'. DTSXL434
|
|
00044 05 CNTL3-END PIC X(01) VALUE ';'. DTSXL434
|
|
00045 05 FILLER PIC X(14) VALUE SPACES. DTSXL434
|
|
00046 DTSXL434
|
|
00047 01 XEROX-CNTL-LINE4. DTSXL434
|
|
00048 * 05 FILLER PIC X VALUE SPACES. CL*58
|
|
00049 05 CNTL4-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL434
|
|
00050 05 CNTL4-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL434
|
|
00051 05 CNTL4-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL434
|
|
00052 05 CNTL4-BEGIB PIC X(18) VALUE DTSXL434
|
|
00053 'BEGIN=(0.10,0.11),'. DTSXL434
|
|
00054 05 CNTL4-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL434
|
|
00055 05 CNTL4-BOF PIC X(07) VALUE 'BOF=70,'. DTSXL434
|
|
00056 05 CNTL4-END PIC X(04) VALUE 'END;'. DTSXL434
|
|
00057 05 FILLER PIC X(07) VALUE SPACES. DTSXL434
|
|
00058 DTSXL434
|
|
00059 01 ROUTE-INFO-LINE20. DTSXL434
|
|
00060 05 FILLER PIC X VALUE SPACE. DTSXL434
|
|
00061 05 FILLER PIC X(20) VALUE SPACES. DTSXL434
|
|
00062 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL434
|
|
00063 DTSXL434
|
|
00064 01 ROUTE-INFO-LINE21. DTSXL434
|
|
00065 05 FILLER PIC X VALUE SPACE. DTSXL434
|
|
00066 05 FILLER PIC X(20) VALUE SPACES. DTSXL434
|
|
00067 05 FILLER PIC X(40) VALUE DTSXL434
|
|
00068 '* ROUTE FOLLOWING FORMS TO: *'. DTSXL434
|
|
00069 DTSXL434
|
|
00070 01 ROUTE-INFO-LINE22. DTSXL434
|
|
00071 05 FILLER PIC X VALUE SPACE. DTSXL434
|
|
00072 05 FILLER PIC X(20) VALUE SPACES. DTSXL434
|
|
00073 05 FILLER PIC X(40) VALUE DTSXL434
|
|
00074 '* TAX ACCOUNTING SECTION *'. DTSXL434
|
|
00075 DTSXL434
|
|
00076 01 ROUTE-INFO-LINE23. DTSXL434
|
|
00077 05 FILLER PIC X VALUE SPACES. DTSXL434
|
|
00078 05 FILLER PIC X(20) VALUE SPACES. DTSXL434
|
|
00079 05 FILLER PIC X(40) VALUE DTSXL434
|
|
00080 '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL434
|
|
00081 DTSXL434
|
|
00082 01 ROUTE-INFO-LINE24. DTSXL434
|
|
00083 05 FILLER PIC X VALUE SPACES. DTSXL434
|
|
00084 05 FILLER PIC X(20) VALUE SPACES. DTSXL434
|
|
00085 05 FILLER PIC X(40) VALUE ALL '*'. DTSXL434
|
|
00086 DTSXL434
|