62 lines
4.8 KiB
COBOL
62 lines
4.8 KiB
COBOL
00001 ***** 04/08/03
|
|
00002 * DTSXL405
|
|
00003 * DTSXL405 XEROX LASER REPORT DEFINITION FOR LIEN LV002
|
|
00004 * RELEASE LETTER FORM(DTSCSP). PRINTED ON DTSXL405
|
|
00005 * 8 X 14 PAPER. DTSXL405
|
|
00006 * DTSXL405
|
|
00007 * 10-26-2000 MODIFIED TO CALL DTS405 DJDE. DTSXL405
|
|
00008 * REFERENCE RFP #**** PROGRAMMER: ZL1 DTSXL405
|
|
00009 * DTSXL405
|
|
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL405
|
|
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL405
|
|
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL405
|
|
00013 * DTSXL405
|
|
00014 ***** DTSXL405
|
|
00015 ******************************************************************DTSXL405
|
|
00016 * JDE- DTS405 * XEROX LASER DEFINITION *DTSXL405
|
|
00017 ******************************************************************DTSXL405
|
|
00018 01 XEROX-XMOM-CNTL1. DTSXL405
|
|
00019 * 05 FILLER PIC X. CL**2
|
|
00020 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL405
|
|
00021 05 XEROX-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL405
|
|
00022 05 XEROX-JDE PIC X(11) VALUE 'JDE=DTS405,'. DTSXL405
|
|
00023 05 XEROX-PMODE PIC X(10) VALUE 'PMODE=POR,'. DTSXL405
|
|
00024 05 XEROX-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXL405
|
|
00025 05 XEROX-FONT PIC X(12) VALUE 'FONT=P07TDB,'. DTSXL405
|
|
00026 05 XEROX-LINE1-END PIC X(1) VALUE ';'. DTSXL405
|
|
00027 DTSXL405
|
|
00028 01 XEROX-XMOM-CNTL2. DTSXL405
|
|
00029 * 05 FILLER PIC X. CL**2
|
|
00030 05 DJDE-LINE2 PIC X(12) VALUE '$X9700$DJDE '. DTSXL405
|
|
00031 05 XEROX-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL405
|
|
00032 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL405
|
|
00033 05 XEROX-TOF PIC X(07) VALUE 'TOF=10,'. DTSXL405
|
|
00034 05 XEROX-BOF PIC X(07) VALUE 'BOF=80,'. DTSXL405
|
|
00035 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DTSXL405
|
|
00036 05 FILLER PIC X(08) VALUE SPACES. DTSXL405
|
|
00037 DTSXL405
|
|
00038 EJECT DTSXL405
|
|
00039 01 BLANK-LINE PIC X(180) VALUE SPACES. DTSXL405
|
|
00040 SKIP3 DTSXL405
|
|
00041 01 XEROX-ROUTE-PAGE. DTSXL405
|
|
00042 05 ROUTE-INFO-LINE13. DTSXL405
|
|
00043 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
|
|
00044 10 FILLER PIC X(40) DTSXL405
|
|
00045 VALUE '****************************************'. DTSXL405
|
|
00046 05 ROUTE-INFO-LINE14. DTSXL405
|
|
00047 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
|
|
00048 10 FILLER PIC X(40) DTSXL405
|
|
00049 VALUE '* ROUTE FOLLOWING FORMS TO: *'. DTSXL405
|
|
00050 05 ROUTE-INFO-LINE15. DTSXL405
|
|
00051 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
|
|
00052 10 FILLER PIC X(40) DTSXL405
|
|
00053 VALUE '* TAX ACCOUNTING SECTION *'. DTSXL405
|
|
00054 05 ROUTE-INFO-LINE16. DTSXL405
|
|
00055 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
|
|
00056 10 FILLER PIC X(40) DTSXL405
|
|
00057 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. DTSXL405
|
|
00058 05 ROUTE-INFO-LINE17. DTSXL405
|
|
00059 10 FILLER PIC X(08) VALUE SPACES. DTSXL405
|
|
00060 10 FILLER PIC X(40) DTSXL405
|
|
00061 VALUE '****************************************'. DTSXL405
|