57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
00001 ***** 01/11/05
|
|
00002 * DTSXLRQI
|
|
00003 * DTSXLRQI XEROX LASER REPORT LAYOUT FOR I CLASS LV001
|
|
00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXLRQI
|
|
00005 * DTSXLRQI
|
|
00006 * 08-24-2004 DTSXLRQI
|
|
00007 * DTSXLRQI
|
|
00008 * DTSXLRQI
|
|
00009 ***** DTSXLRQI
|
|
00010 ******************************************************************DTSXLRQI
|
|
00011 * XEROX LASER DEFINITION *DTSXLRQI
|
|
00012 ******************************************************************DTSXLRQI
|
|
00013 DTSXLRQI
|
|
00014 01 XEROX-CNTL-LINE1. DTSXLRQI
|
|
00015 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXLRQI
|
|
00016 05 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXLRQI
|
|
00017 05 XEROX-JDE PIC X(11) VALUE 'JDE=DTSRQI,'. DTSXLRQI
|
|
00018 05 XEROX-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXLRQI
|
|
00019 05 XEROX-SIMPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXLRQI
|
|
00020 05 XEROX-FONTS PIC X(13) VALUE 'FONTS=CS12NP,'. DTSXLRQI
|
|
00021 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXLRQI
|
|
00022 05 XEROX-END PIC X(04) VALUE 'END;'. DTSXLRQI
|
|
00023 DTSXLRQI
|
|
00024 01 XEROX-CNTL-LINE2. DTSXLRQI
|
|
00025 05 XEROX-FILLER PIC X(132) VALUE SPACES. DTSXLRQI
|
|
00026 DTSXLRQI
|
|
00027 01 ROUTE-INFO-LINE1. DTSXLRQI
|
|
00028 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI
|
|
00029 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLRQI
|
|
00030 DTSXLRQI
|
|
00031 01 ROUTE-INFO-LINE2. DTSXLRQI
|
|
00032 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI
|
|
00033 05 FILLER PIC X(24) VALUE DTSXLRQI
|
|
00034 ' ROUTE REPORT '. DTSXLRQI
|
|
00035 05 REPORT-NUMBER PIC X(08). DTSXLRQI
|
|
00036 05 FILLER PIC X(05) VALUE ' TO:'. DTSXLRQI
|
|
00037 05 FILLER PIC X(12) VALUE SPACES. DTSXLRQI
|
|
00038 05 FILLER PIC X(01) VALUE ' '. DTSXLRQI
|
|
00039 DTSXLRQI
|
|
00040 01 ROUTE-INFO-LINE3. DTSXLRQI
|
|
00041 05 FILLER PIC X VALUE SPACES. DTSXLRQI
|
|
00042 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI
|
|
00043 05 FILLER PIC X(50) VALUE DTSXLRQI
|
|
00044 ' STATUS UNIT '. DTSXLRQI
|
|
00045 DTSXLRQI
|
|
00046 01 ROUTE-INFO-LINE4. DTSXLRQI
|
|
00047 05 FILLER PIC X VALUE SPACES. DTSXLRQI
|
|
00048 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI
|
|
00049 05 FILLER PIC X(50) VALUE DTSXLRQI
|
|
00050 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSXLRQI
|
|
00051 DTSXLRQI
|
|
00052 01 ROUTE-INFO-LINE5. DTSXLRQI
|
|
00053 05 FILLER PIC X VALUE SPACES. DTSXLRQI
|
|
00054 05 FILLER PIC X(18) VALUE SPACES. DTSXLRQI
|
|
00055 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLRQI
|
|
00056 DTSXLRQI
|