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